X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;ds=sidebyside;f=www%2Fz39util.tcl;h=59131ff122de2d5b9cb69a7cb7e32713289f314b;hb=a124021540d0bb0854668f509b28921b771c70fd;hp=6860b16fe7369223907d0491cc285add3190a698;hpb=cf6ead410b63297e714d9258f9ea593b1e127501;p=egate.git
diff --git a/www/z39util.tcl b/www/z39util.tcl
index 6860b16..59131ff 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.30 1996/02/12 13:39:41 adam Exp $
#
proc saveState {} {
uplevel #0 {
@@ -104,7 +104,7 @@ proc display-brief {zset no tno} {
set location [$zset getMarc $no field 260 * a]
set publisher [$zset getMarc $no field 260 * b]
set year [$zset getMarc $no field 260 * c]
- } ] } {
+ } dispError ] } {
html { }
set p 0
@@ -140,12 +140,22 @@ proc display-brief {zset no tno} {
if {$nope} {
set v [join $cover ""]
if {[string length $v] > 40} {
+ set nope 0
html [string range $v 0 38] "..."
- } else {
+ } elseif {[string length $v] > 0} {
+ set nope 0
html $v
+ } else {
+ html "No Title"
}
}
html { }
+ } else {
+ html { }
+ html {No Title}
+ html { }
+ html "Error: " $dispError "\n"
}
html "
\n"
}
@@ -601,7 +611,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 {
- html {Search failed.}
+ if {$html3} {
+ html {Failed}
+ } else {
+ html {Search failed.}
+ }
+ }
+ if {$html3} {
+ html { | }
+ } else {
+ html " | |
} + } else { + html {