X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=www%2Fz39util.tcl;h=451fb70af4e1c44487b44c1c021747b187c2216c;hb=2e38b5dbea87903010208d15a8a9073d2049bbae;hp=6860b16fe7369223907d0491cc285add3190a698;hpb=cf6ead410b63297e714d9258f9ea593b1e127501;p=egate.git diff --git a/www/z39util.tcl b/www/z39util.tcl index 6860b16..451fb70 100644 --- a/www/z39util.tcl +++ b/www/z39util.tcl @@ -1,5 +1,5 @@ # -# $Id: z39util.tcl,v 1.26 1996/01/26 15:50:11 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 {
Scan term} html { | Hits} html { | ||||||
Target} + html { | Database} + html { | Hits} + html { | Query} + html { |
}
+ } else {
+ html {} [join $hist($setNo,database)]
+ } else {
+ if {[llength [lindex $targets($host) 1]] > 1} {
+ html ": "
+ foreach b $hist($setNo,database) {
+ html " $b"
+ }
}
+ html {. }
+ }
+ if {$html3} {
+ html { | }
}
- html {. }
-
if {[info exists hist($setNo,hits)]} {
html { Result: } $hist($setNo,hits) { hits.}
+ if {1} {
+ html {">} $hist($setNo,hits) {}
+ } else {
+ html {">Result: } $hist($setNo,hits) { hits.}
+ }
+ } else {
+ if {$html3} {
+ html {Failed}
+ } else {
+ html {Search failed.}
+ }
+ }
+ if {$html3} {
+ html { | }
} else {
- html {Search failed.}
+ html " | |
} + } else { + html {