projects / egate.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Minor changes.
[egate.git] / www / search.egw
diff --git a/www/search.egw b/www/search.egw
index 3091a5a..dd7162d 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,12 +1,22 @@
 <html>
 {
-# $Id: search.egw,v 1.13 1995/11/10 10:20:24 adam Exp $
+# $Id: search.egw,v 1.16 1995/11/13 18:17:48 adam Exp $
 
-proc buttons {setNo setMax startPos} {
+proc buttons {setNo setMax startPos after} {
     global sessionId
     global env
     global hist
 
+    if {$after && $setMax < [z39.$setNo resultCount]} {
+        html "<p>\n"
+        html "<center>\n"
+        html {<a href="http:} $env(SCRIPT_NAME)
+        html / $sessionId {/search.egw/} $setNo + [expr $setMax + 1]
+        html + [expr $setMax + $hist($setNo,maxPresent)]
+        html {"><img src="/gif/darrw.gif"></a>}
+        html "</center>\n"
+    }
+
     html "<p>\n"
     if {$setMax < [z39.$setNo resultCount]} {
         html {<a href="http:} $env(SCRIPT_NAME)
@@ -17,17 +27,27 @@ proc buttons {setNo setMax startPos} {
     if {$startPos != "" && $startPos != "1"} {
         html {<a href="http:} $env(SCRIPT_NAME)
         html / $sessionId {/search.egw/} $setNo 
-        if {[expr $startPos - $hist($setNo,maxPresent)] > 1} {
-            html + [expr $startPos - $hist($setNo,maxPresent)]
-            html + [expr $startPos - 1]
-        }
+        html + [expr $startPos - $hist($setNo,maxPresent)]
+        html + [expr $startPos - 1]
         html {">Previous records</a>} " | \n"
     }
     html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/targets.egw">New target</a>} " | \n"
-    html {<a href="http:} $env(SCRIPT_NAME)
     html / $sessionId {/query.egw/} $hist($setNo,host) + $setNo 
-    html {">New query</a>} "\n<p>\n"
+    html {">New query</a>} " | \n"
+
+    html {<a href="http:} $env(SCRIPT_NAME)
+    html / $sessionId {/targets.egw">New target</a>} "<p>\n"
+
+    if {!$after && $startPos != "" && $startPos != "1"} {
+        html "<center>\n"
+        html {<a href="http:} $env(SCRIPT_NAME)
+        html / $sessionId {/search.egw/} $setNo 
+        html + [expr $startPos - $hist($setNo,maxPresent)]
+        html + [expr $startPos - 1]
+        html {"><img src="/gif/uarrw.gif"></a>}
+        html "</center><p>\n"
+    }
+
 }
 
     if {[info commands saveState] == ""} {
@@ -44,9 +64,29 @@ proc buttons {setNo setMax startPos} {
         set hist($nextSetNo,host) $hist($setNo,host)
         set setNo $nextSetNo
         html "using host " $hist($setNo,host) " <br\n"
-        incr nextSetNo
 
-        set hist($setNo,query) [build-query $hist($setNo,host)]
+        set query [build-query $hist($setNo,host)]
+        if {"x$query" == "x"} {
+            html "<head><title> WWW/Z39.50 Gateway Search</title>\n<body>\n"
+            displayError "Empty query" \
+                "You must specify at least one search word"
+            html "</body></html>\n"
+            wabort
+        }
+        set hist($setNo,query) $query
+
+        set hist($setNo,form,menu1) [wform menu1]
+        set hist($setNo,form,menu2) [wform menu2]
+        set hist($setNo,form,menu3) [wform menu3]
+
+        set hist($setNo,form,entry1) [wform entry1]
+        set hist($setNo,form,entry2) [wform entry2]
+        set hist($setNo,form,entry3) [wform entry3]
+
+        set hist($setNo,form,logic1) [wform logic1]
+        set hist($setNo,form,logic2) [wform logic2]
+
+        incr nextSetNo
         set b [wform base]
         if {$b == ""} {
             set hist($setNo,database) $databases
@@ -69,21 +109,21 @@ proc buttons {setNo setMax startPos} {
     set setMax 0
     set setOffset 0
     if {$startPos == ""} {
-        if {[z39search $setNo 1] != "1"} {
+        if {[z39search $setNo 1 0 B] != "1"} {
             return
         }
         set r [z39.$setNo resultCount]
         html "<h2> Search result $r hits</h2>\n"
         wflush
         set setOffset [z39.$setNo numberOfRecordsReturned]
-        display-rec 1 $setOffset display-brief z39
+        display-rec 1 $setOffset display-brief 0
         incr setOffset
         set setMax [z39.$setNo resultCount]
         if {$setMax > $hist($setNo,maxPresent)} {
             set setMax $hist($setNo,maxPresent)
         }
     } else {
-        if {[z39search $setNo 0] != "1"} {
+        if {[z39search $setNo 0 0 B] != "1"} {
             return 
         }
         set r [z39.$setNo resultCount]
@@ -95,14 +135,14 @@ proc buttons {setNo setMax startPos} {
             set setMax $endPos
         }
         if {$setMax > 0} {
-            buttons $setNo $setMax $startPos
+            buttons $setNo $setMax $startPos 0
         }
     }
     if {$setMax > 0} {
-        z39present $setNo $setOffset $setMax display-brief
+        z39present $setNo 0 $setOffset $setMax display-brief B
     }
 
-    buttons $setNo $setMax $startPos
+    buttons $setNo $setMax $startPos 1
 }
 
 {
Europgate