projects / egate.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: fb9dcdf)
Scan buttons only present if scan option is set.
authorAdam Dickmeiss <adam@indexdata.dk>
Thu, 4 Jan 1996 10:40:00 +0000 (10:40 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Thu, 4 Jan 1996 10:40:00 +0000 (10:40 +0000)
www/msearch.egw patch | blob | history
www/query.egw patch | blob | history

diff --git a/www/msearch.egw b/www/msearch.egw
index ca59fef..5407ca3 100644 (file)
--- a/www/msearch.egw
+++ b/www/msearch.egw
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: msearch.egw,v 1.8 1996/01/03 15:19:38 adam Exp $
+# $Id: msearch.egw,v 1.9 1996/01/04 10:40:00 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -50,9 +50,10 @@
             html "Error</h3>\n<dd>NSD$code: $msg: $addinfo"
         } else {
             set r [z39$i.$setNo resultCount]
-            html "$r hits</h3>\n<dd>\n"
+            html "$r hits</h3>\n<dd><ul>\n"
 
             display-rec 1 $hist($setNo,$i,offset) display-brief $i
+            html "</ul>"
         }
         html "\n"
     }
@@ -73,7 +74,7 @@
        html {"> New target </a>} " | \n"
     }
     html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/mquery.egw/} $host + $setNo
+    html / $sessionId {/mquery.egw/} $setNo
     if {$useIcons} {
         html {"><img src="/gif/button-new-query.gif" border=0></a>}
     } else {
diff --git a/www/query.egw b/www/query.egw
index d1a122c..92e2e1d 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
-# $Id: query.egw,v 1.24 1996/01/03 15:19:39 adam Exp $
+# $Id: query.egw,v 1.25 1996/01/04 10:40:00 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -157,8 +157,10 @@ proc ok-response {} {
         } elseif {[info exists hist($oSetNo,form,entry$no)]} {
             html { value="} [join $hist($oSetNo,form,entry$no) " "] {"}
         }
-        html { size=35>} \n
-        html {<input type="checkbox" name="scan} $no {" value="1" scan>}
+        html { size=35> }
+        if {[lsearch [z39 options] scan] >= 0} {
+            html {<input type="checkbox" name="scan} $no {" value="1" scan>}
+        }
         if {$no < 3} {
             html {<select name="logic} $no {">} \n
             if {$oSetNo > 0} {
Europgate