X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fz39util.tcl;h=ec5631fd7cacbdda30635a8fd11727a7a60b15c8;hb=8207321cb84c2f4925f44bc15c1a39f29a232d3e;hp=19c75f3e4681c26f36fb594a98940d88b1009d53;hpb=8475d385a59bc414a07804de7de9692edc022364;p=egate.git

diff --git a/www/z39util.tcl b/www/z39util.tcl
index 19c75f3..ec5631f 100644
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: z39util.tcl,v 1.46 1996/08/28 09:36:03 adam Exp $
+# $Id: z39util.tcl,v 1.47 1996/09/03 14:06:43 adam Exp $
 #
 proc saveState {} {
     uplevel #0 {
@@ -69,9 +69,9 @@ proc display-medium {zset no setNo targetNo} {
     global env
     global sessionId
 
-    html {<li>}
     set type [$zset type $no]
     if {$type == "SD"} {
+        html {<li>}
         set err [lindex [$zset diag $no] 1]
         set add [lindex [$zset diag $no] 2]
         if {$add != {}} {
@@ -83,6 +83,7 @@ proc display-medium {zset no setNo targetNo} {
     if {$type != "DB"} {
         return
     }
+    html {<li>}
     set rtype [$zset recordType $no]
     switch $rtype {
         SUTRS {
@@ -165,9 +166,9 @@ proc display-brief {zset no setNo targetNo} {
     global env
     global sessionId
 
-    html {<li>}
     set type [$zset type $no]
     if {$type == "SD"} {
+        html {<li>}
         set err [lindex [$zset diag $no] 1]
         set add [lindex [$zset diag $no] 2]
         if {$add != {}} {
@@ -179,6 +180,7 @@ proc display-brief {zset no setNo targetNo} {
     if {$type != "DB"} {
         return
     }
+    html {<li>}
     set rtype [$zset recordType $no]
     switch $rtype {
         SUTRS {
@@ -1536,6 +1538,7 @@ proc button-feedback {} {
         html {<img src="/egwgif/button-user-feedback.gif" alt="User Feedback"
         border=0></a>}
     } else {
+        html "\n | "
         html {User Feedback</a>}
     }    
 }