X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=www%2Fz39util.tcl;h=59131ff122de2d5b9cb69a7cb7e32713289f314b;hb=a124021540d0bb0854668f509b28921b771c70fd;hp=451fb70af4e1c44487b44c1c021747b187c2216c;hpb=2e38b5dbea87903010208d15a8a9073d2049bbae;p=egate.git

diff --git a/www/z39util.tcl b/www/z39util.tcl
index 451fb70..59131ff 100644
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: z39util.tcl,v 1.29 1996/01/31 15:56:37 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 { <a href="http:} $env(SCRIPT_NAME) /
         html $sessionId {/showfull.egw/} $setNo + $tno + $no + full {">}
         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 {</a> }
+    } else {
+        html { <a href="http:} $env(SCRIPT_NAME) /
+        html $sessionId {/showfull.egw/} $setNo + $tno + $no + full {">}
+        html {No Title}
+        html {</a> }
+        html "Error: " $dispError "\n"
     }
     html "<br>\n"
 }