X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fz39util.tcl;h=3a2c69482c9a0e243bb1443fa1c46631f31072e6;hb=df7b985601de6c729147a6fd6588adba6f905480;hp=8035c60b3b6e07f710b9815b5d7534a5a96bceed;hpb=2213843897f0bc54bc535935c56fe830648b171a;p=egate.git diff --git a/www/z39util.tcl b/www/z39util.tcl index 8035c60..3a2c694 100644 --- a/www/z39util.tcl +++ b/www/z39util.tcl @@ -1,5 +1,5 @@ # -# $Id: z39util.tcl,v 1.14 1995/12/22 14:21:16 adam Exp $ +# $Id: z39util.tcl,v 1.15 1996/01/02 10:52:32 adam Exp $ # proc saveState {} { uplevel #0 { @@ -858,7 +858,7 @@ proc z39history {} { if {![info exists nextSetNo]} { return } - html "

History

\n" + html "

History


\n" for {set setNo 1} {$setNo < $nextSetNo} {incr setNo} { html {
\n" - html {} + html {Error} html "

" $msga "

\n" if {$msgb != ""} { html "

" $msgb "

\n" @@ -892,4 +892,4 @@ proc displayError {msga msgb} { html "

\n" } -set useIcons 1 \ No newline at end of file +set useIcons 1