X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fz39util.tcl;h=451fb70af4e1c44487b44c1c021747b187c2216c;hb=2e38b5dbea87903010208d15a8a9073d2049bbae;hp=1d78f644c3ff8beea814e3dc0fa2a1dd534a4029;hpb=da4f027b1e7c0bf90efe6782a326448af164cd37;p=egate.git diff --git a/www/z39util.tcl b/www/z39util.tcl index 1d78f64..451fb70 100644 --- a/www/z39util.tcl +++ b/www/z39util.tcl @@ -1,5 +1,5 @@ # -# $Id: z39util.tcl,v 1.28 1996/01/29 17:31:48 adam Exp $ +# $Id: z39util.tcl,v 1.29 1996/01/31 15:56:37 adam Exp $ # proc saveState {} { uplevel #0 { @@ -601,7 +601,7 @@ proc display-scan {setNo scanNo tno} { set hist($setNo,[expr $scanNo + 1],scanTerm) $t } } - html {} + html {
} html {} \n @@ -1029,10 +1029,10 @@ proc z39history {} { html "

History


\n" if {$html3} { html {
Scan term} html {Hits} html {
} - html {} "\n" } else { html {
} "\n"
Target} - html {Database} - html {Hits} - html {Query} + html {Target} + html {Database} + html {Hits} + html {Query} html {