X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fz39util.tcl;h=cafca965a763321a9e917eb2f962efb6315caf36;hb=3c1a04c3c1aa9f80cd7b3f9a884968e6fc1b7220;hp=e7030623a71b93996771135a151bf7267dcefd80;hpb=3bbb844581f17ede97f6eb7ea8022b69a0859420;p=egate.git
diff --git a/www/z39util.tcl b/www/z39util.tcl
index e703062..cafca96 100644
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
#
-# $Id: z39util.tcl,v 1.27 1996/01/26 17:41:26 adam Exp $
+# $Id: z39util.tcl,v 1.31 1996/02/20 16:07:39 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"
}
@@ -391,7 +401,7 @@ proc display-full {zset no tno} {
if {"x$sp" == "x"} {
set sp $url
}
- html {
Scan term} html { | Hits} html { |