Minor change in table display (scan/history).
authorAdam Dickmeiss <adam@indexdata.dk>
Wed, 31 Jan 1996 15:56:37 +0000 (15:56 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Wed, 31 Jan 1996 15:56:37 +0000 (15:56 +0000)
www/z39util.tcl

index 1d78f64..451fb70 100644 (file)
@@ -1,5 +1,5 @@
 #
-# $Id: z39util.tcl,v 1.28 1996/01/29 17:31:48 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 {<table border=0><tr>}
+    html {<table width=500 border=0><tr>}
     html {<td align=left><b>Scan term</b>}
     html {<td align=right><b>Hits</b>}
     html {<tr>} \n
@@ -1029,10 +1029,10 @@ proc z39history {} {
     html "<h2>History</h2><br>\n"
     if {$html3} {
         html {<table width=500 border=1><tr>}
-        html {<td align=left><b>Target</b>}
-        html {<td align=left><b>Database</b>}
-        html {<td align=right><b>Hits</b>}
-        html {<td><b>Query</b>}
+        html {<td align=center><b>Target</b>}
+        html {<td align=center><b>Database</b>}
+        html {<td align=center><b>Hits</b>}
+        html {<td align=center><b>Query</b>}
         html {<tr>} "\n"
     } else {
         html {<dl>} "\n"