projects / egate.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (from parent 1: 2ffd22f)
Work on scan window.
authorAdam Dickmeiss <adam@indexdata.dk>
Fri, 12 Jan 1996 10:03:16 +0000 (10:03 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Fri, 12 Jan 1996 10:03:16 +0000 (10:03 +0000)
www/history.egw patch | blob | history
www/query.egw patch | blob | history
www/search.egw patch | blob | history
www/targets.egw patch | blob | history
www/z39util.tcl patch | blob | history

diff --git a/www/history.egw b/www/history.egw
index a0cd7f2..a099c3b 100644 (file)
--- a/www/history.egw
+++ b/www/history.egw
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
 </head>
 <body>
 {
-# $Id: history.egw,v 1.2 1996/01/09 16:16:47 adam Exp $
+# $Id: history.egw,v 1.3 1996/01/12 10:03:16 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -37,13 +37,6 @@
         html $e {: } $env($e) {<br>} \n
     }
     html "form: " [wform] " <br>\n"
         html $e {: } $env($e) {<br>} \n
     }
     html "form: " [wform] " <br>\n"
-    html "target: " $host " <br>\n"
-    html "databases: " $databases " <br>\n"
-    html "setNo: " $setNo " <br>\n"
-    html "nextSetNo: " $nextSetNo " <br>\n"
-    html "initSet: " $initSet " <br>\n"
-    html "scanLine: " $scanLine " <br>\n"
-    html "scanTerm: " $scanTerm " <br>\n"
 }
 </body></html>
 
 }
 </body></html>
 
diff --git a/www/query.egw b/www/query.egw
index a5b874e..cad8e7a 100644 (file)
--- a/www/query.egw
+++ b/www/query.egw
@@ -4,7 +4,7 @@
 </head>
 <body>
 {
 </head>
 <body>
 {
-# $Id: query.egw,v 1.26 1996/01/08 08:42:15 adam Exp $
+# $Id: query.egw,v 1.27 1996/01/12 10:03:17 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -97,13 +97,6 @@ proc ok-response {} {
     }
     set databases [lindex $targets($host) 1]
 
     }
     set databases [lindex $targets($host) 1]
 
-#    if {[catch {set prevHost $hist([expr $setNo - 1],host)}]} {
-#        set databaseDefault [lindex $databases 0]
-#        set oSetNo 0
-#    } else {
-#        set oSetNo [expr $setNo - 1]
-#        set databaseDefault $hist($oSetNo,database)
-#    }
     if {$initSet == ""} {
         set databaseDefault [lindex $databases 0]
         set oSetNo 0
     if {$initSet == ""} {
         set databaseDefault [lindex $databases 0]
         set oSetNo 0
@@ -140,36 +133,45 @@ proc ok-response {} {
     set fields [lindex $targets($host) 2]
     for {set no 1} {$no < 4} {incr no} {
         html {<select name="menu} $no {">} \n
     set fields [lindex $targets($host) 2]
     for {set no 1} {$no < 4} {incr no} {
         html {<select name="menu} $no {">} \n
+        set template {}
         if {$oSetNo > 0} {
         if {$oSetNo > 0} {
-            html {<option> } $hist($oSetNo,form,menu$no) \n
+            set template [join $hist($oSetNo,form,menu$no)]
+        }
+        if {[string length $template] > 0} {
+            html {<option> } $template "\n"
         }
         foreach f $fields {
             set name [lindex $f 0]
         }
         foreach f $fields {
             set name [lindex $f 0]
-            if {$oSetNo > 0} {
-                if {$hist($oSetNo,form,menu$no) == $name} continue
-            }
+            if {$template == $name} continue
             html {<option> } $name \n
         }
         html "</select>\n"
         html {<input type="text" name="entry} $no {"}
             html {<option> } $name \n
         }
         html "</select>\n"
         html {<input type="text" name="entry} $no {"}
+        set template {}
         if {$scanLine == $no} {
         if {$scanLine == $no} {
-            html { value="} [join $scanTerm " "] {"}
+            set template [join $scanTerm " "] 
         } elseif {[info exists hist($oSetNo,form,entry$no)]} {
         } elseif {[info exists hist($oSetNo,form,entry$no)]} {
-            html { value="} [join $hist($oSetNo,form,entry$no) " "] {"}
+            set template [join $hist($oSetNo,form,entry$no) " "]
+        }
+        if {[string length $template] > 0} {
+            html { value="} $template {"}
         }
         html { size=35> }
         if {[lsearch [z39 options] scan] >= 0} {
             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>}
         }
+        html "<br>\n"
         if {$no < 3} {
             html {<select name="logic} $no {">} \n
         if {$no < 3} {
             html {<select name="logic} $no {">} \n
+            set template {}
             if {$oSetNo > 0} {
             if {$oSetNo > 0} {
-                html "<option> " [join $hist($oSetNo,form,logic$no) " "] \n
+                set template [join $hist($oSetNo,form,logic$no) " "]
+            }
+            if {[string length $template] > 0} {
+                html "<option> " $template \n
             }
             foreach op {And Or {And not}} {
             }
             foreach op {And Or {And not}} {
-                if {$oSetNo > 0} {
-                    if {$hist($oSetNo,form,logic$no) == $op} continue
-                }
+                if {$template == $op} continue
                 html "<option> " [join $op " "] \n
             }
             html "</select>\n"
                 html "<option> " [join $op " "] \n
             }
             html "</select>\n"
diff --git a/www/search.egw b/www/search.egw
index 45589ac..ede4eed 100644 (file)
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,8 +1,8 @@
 <html>
 {
 <html>
 {
-# $Id: search.egw,v 1.26 1996/01/09 16:16:48 adam Exp $
+# $Id: search.egw,v 1.27 1996/01/12 10:03:19 adam Exp $
 
 
-proc start-scan {scanNo cache dir} {
+proc start-scan {scanNo cache dir initSet} {
     global sessionId
     global sessionParms
     global sessionWait
     global sessionId
     global sessionParms
     global sessionWait
@@ -18,10 +18,62 @@ proc start-scan {scanNo cache dir} {
 
     html "<head><title> WWW/Z39.50 Gateway Scan " $host " </title>\n"
     html "</head><body>\n"
 
     html "<head><title> WWW/Z39.50 Gateway Scan " $host " </title>\n"
     html "</head><body>\n"
-                
+
+    set databases [lindex $targets($host) 1]
+
+    if {$initSet == ""} {
+        set databaseDefault [lindex $databases 0]
+        set oSetNo 0
+    } else {
+        set oSetNo $initSet
+        set databaseDefault $hist($oSetNo,database)
+    }
+    
+    html {<form action="http:} $env(SCRIPT_NAME)
+    html / $sessionId {/search.egw/} $setNo {+1" method=get>} \n
+    set nodb [llength $databases]
+    if {$nodb > 1} {
+        if {$nodb > 2} {
+            html "Databases:<br>\n"
+        }
+        set i 0
+        foreach d $databases {
+            html {<input type="checkbox" name="base" value="} $d 
+            if {[lsearch $databaseDefault $d] == -1} {
+                html {"> } $d \n
+            } else {
+                html {" checked> } $d \n
+            }
+        }
+        html "<br>\n"
+        if {$nodb > 2} {
+            html {<input type="checkbox" name="baseall" value="} 
+            html [concat $databases] {"> All <br>} \n
+        }
+        html "Input your search criteria:<br>\n"
+    }
+    set fields [lindex $targets($host) 2]
+    set no 1
+    html {<select name="menu} $no {">} \n
+    set template {}
+    if {$oSetNo > 0} {
+        set template [join $hist($oSetNo,form,menu$no)]
+    }
+    if {[string length $template] > 0} {
+        html {<option> } $template \n
+    }
+    foreach f $fields {
+        set name [lindex $f 0]
+        if {$template == $name} continue
+        html {<option> } $name \n
+    }
+    html "</select>\n"
+    html {<input type="text" name="entry} $no {"}
+    html { size=35> }
+    html {<input type=submit name=submit value="Scan">}
+    html "\n"
+    html {</form>}
     if {$hist($setNo,$scanNo,scanTerm) == ""} {
     if {$hist($setNo,$scanNo,scanTerm) == ""} {
-        displayError "Empty query" \
-                     "You must specify at least one search word"
         wabort
         return
     }
         wabort
         return
     }
@@ -38,27 +90,6 @@ proc start-scan {scanNo cache dir} {
     if {[z39scan $setNo $scanNo 0 $lines $pos $cache] != "1"} {
         return
     }
     if {[z39scan $setNo $scanNo 0 $lines $pos $cache] != "1"} {
         return
     }
-    button-europagate
-
-    html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/search.egw/} $setNo + [expr $scanNo - 1] + b {">}
-    if {$useIcons} {
-        html {<img src="/egwgif/button-previous-terms.gif" }
-        html {alt="Next Terms" border=0></a>}
-    } else {
-        html {Previous Terms</a> | }
-    }
-
-    html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/search.egw/} $setNo + [expr $scanNo + 1] + f {">}
-    if {$useIcons} {
-        html {<img src="/egwgif/button-next-terms.gif" }
-        html {alt="Next Terms" border=0></a>}
-    } else {
-        html {Next Terms</a> | }
-    }
-    html {</a>}
-    button-new-query 0 $setNo
 
     html "<br><p>\n"
     display-scan $setNo $scanNo 0
 
     html "<br><p>\n"
     display-scan $setNo $scanNo 0
@@ -189,19 +220,26 @@ proc buttons {setNo setMax startPos after} {
         if {$hist($setNo,maxPresent) == ""} {
             set hist($setNo,maxPresent) 30
         }
         if {$hist($setNo,maxPresent) == ""} {
             set hist($setNo,maxPresent) 30
         }
-        for {set i 1} {$i <= 3} {incr i} {
-            if {[wform scan$i] != ""} {
-                set scanNo 1000
-                set hist($setNo,scan) $i
-                set termPlusAttr [build-scan $hist($setNo,host) $i]
-                set hist($setNo,$scanNo,scanTerm) [lindex $termPlusAttr 0]
-                set hist($setNo,scanAttr) [lindex $termPlusAttr 1]
-                start-scan $scanNo 0 {}
-                html "</body></html>\n"
-                wabort
-                return
+        set i [lindex $sessionParms 1]
+        if {$i == ""} {
+            for {set j 1} {$j <= 3} {incr j} {
+                if {[wform scan$j] != ""} {
+                    set i $j
+                    break
+                }
             }
         }
             }
         }
+        if {$i != ""} {
+            set scanNo 1000
+            set hist($setNo,scan) $i
+            set termPlusAttr [build-scan $hist($setNo,host) $i]
+            set hist($setNo,$scanNo,scanTerm) [lindex $termPlusAttr 0]
+            set hist($setNo,scanAttr) [lindex $termPlusAttr 1]
+            start-scan $scanNo 0 {} $setNo
+            html "</body></html>\n"
+            wabort
+            return
+        }
         set query [build-query $hist($setNo,host) 3]
         if {"x$query" == "x"} {
             html "<head><title> WWW/Z39.50 Gateway Search</title>\n<body>\n"
         set query [build-query $hist($setNo,host) 3]
         if {"x$query" == "x"} {
             html "<head><title> WWW/Z39.50 Gateway Search</title>\n<body>\n"
@@ -219,7 +257,7 @@ proc buttons {setNo setMax startPos after} {
             if {$scanNo == ""} {
                 set scanNo 1000
             }
             if {$scanNo == ""} {
                 set scanNo 1000
             }
-            start-scan $scanNo 1 $dir
+            start-scan $scanNo 1 $dir $setNo
             html "</body></html>\n"
             wabort
         }
             html "</body></html>\n"
             wabort
         }
diff --git a/www/targets.egw b/www/targets.egw
index f1cf267..2bd313b 100644 (file)
--- a/www/targets.egw
+++ b/www/targets.egw
@@ -1,6 +1,6 @@
 <html>
 {
 <html>
 {
-# $Id: targets.egw,v 1.14 1996/01/09 16:16:49 adam Exp $
+# $Id: targets.egw,v 1.15 1996/01/12 10:03:20 adam Exp $
     source ztargets.conf
     if {[info commands saveState] == ""} {
         source z39util.tcl
     source ztargets.conf
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -38,7 +38,7 @@
     foreach t $tn {
        if {[string index $t 0] == "."} continue
         html {<dt><a href="http:} $env(SCRIPT_NAME) /
     foreach t $tn {
        if {[string index $t 0] == "."} continue
         html {<dt><a href="http:} $env(SCRIPT_NAME) /
-        html "$sessionId/query.egw/$t" {"> } [lindex $targets($t) 0] " </a>\n"
+        html "$sessionId/query.egw;/$t" {"> } [lindex $targets($t) 0] " </a>\n"
         set desc [lindex $targets($t) 4]
         if {$desc != ""} {
             html "<dd><em>$desc</em>\n"
         set desc [lindex $targets($t) 4]
         if {$desc != ""} {
             html "<dd><em>$desc</em>\n"
diff --git a/www/z39util.tcl b/www/z39util.tcl
index e2dca2f..a7d06d4 100644 (file)
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
 #
 #
-# $Id: z39util.tcl,v 1.19 1996/01/09 16:16:49 adam Exp $
+# $Id: z39util.tcl,v 1.20 1996/01/12 10:05:42 adam Exp $
 #
 proc saveState {} {
     uplevel #0 {
 #
 proc saveState {} {
     uplevel #0 {
@@ -384,7 +384,8 @@ proc build-scan {t i} {
 
     set term [wform entry$i]
     if {$term != ""} {
 
     set term [wform entry$i]
     if {$term != ""} {
-        set field [wform menu$i]
+        set field [join [wform menu$i]]
+        set attr {Title}
         foreach x [lindex $targets($t) 2] {
             if {[lindex $x 0] == $field} {
                 set attr [lindex $x 1]
         foreach x [lindex $targets($t) 2] {
             if {[lindex $x 0] == $field} {
                 set attr [lindex $x 1]
@@ -401,9 +402,9 @@ proc build-query {t ilines} {
     set op {}
     set q {}
     for {set i 1} {$i <= $ilines} {incr i} {
     set op {}
     set q {}
     for {set i 1} {$i <= $ilines} {incr i} {
-        set term [wform entry$i]
+        set term [join [wform entry$i]]
         if {[string length $term] > 0} {
         if {[string length $term] > 0} {
-            set field [wform menu$i]
+            set field [join [wform menu$i]]
             foreach x [lindex $targets($t) 2] {
                 if {[lindex $x 0] == $field} {
                     set attr [lindex $x 1]
             foreach x [lindex $targets($t) 2] {
                 if {[lindex $x 0] == $field} {
                     set attr [lindex $x 1]
@@ -971,9 +972,11 @@ proc button-view-history {more} {
     global useIcons
     global env
     global sessionId
     global useIcons
     global env
     global sessionId
+    global nextSetNo
 
     html {<a href="http:} $env(SCRIPT_NAME)
 
     html {<a href="http:} $env(SCRIPT_NAME)
-    html / $sessionId {/history.egw}
+    html / $sessionId {/history.egw;}
+    catch { html "/" $nextSetNo}
     if {$useIcons} {
         html {"><img src="/egwgif/button-view-history.gif" alt="View History" }
         html {border=0></a>}
     if {$useIcons} {
         html {"><img src="/egwgif/button-view-history.gif" alt="View History" }
         html {border=0></a>}
Europgate