More work!

[egate.git] / www / z39util.tcl

diff --git a/www/z39util.tcl b/www/z39util.tcl
index e893729..7ee6cf2 100644 (file)
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: z39util.tcl,v 1.43 1996/03/26 16:27:03 adam Exp $
+# $Id: z39util.tcl,v 1.44 1996/05/15 18:43:38 adam Exp $
 #
 proc saveState {} {
     uplevel #0 {
@@ -727,15 +727,16 @@ proc build-query {t ilines} {
                 egw_log debug "attr failed for $t"
                 set attr [lindex [lindex [lindex $targets($t) 2] 0] 1]
             }
+           egw_log debug "op=${op}"
             switch $op {
                 And
-                { set q "@and $q ${attr} \"${term}\"" }
+                { set q "@and $q ${attr} \"${term}\""; egw_log debug AND }
                 Or
-                { set q "@or $q ${attr} \"${term}\"" }
-                {And not}
-                { set q "@not $q ${attr} \"${term}\"" }
+                { set q "@or $q ${attr} \"${term}\""; egw_log debug OR }
                 {}
-                { set q "${attr} \"${term}\"" }
+                { set q "${attr} \"${term}\""; egw_log debug NOPE }
+               default
+                { set q "@not $q ${attr} \"${term}\""; egw_log debug ANDNOT }
             }
             set op [egw_form logic$i]
         }
@@ -1641,7 +1642,10 @@ proc z39history {} {
                 html {">Query</a>: }
             }
             set op {}
-            for {set j 1} {$j <= 3} {incr j} {
+            for {set j 1} {$j <= 10} {incr j} {
+                if {![info exists hist($setNo,form,entry$j)]} {
+                    break
+                }
                 if {[string length $hist($setNo,form,entry$j)] > 0} {
                     html " <b>" [join $op " "] "</b> "
                 set pre [join $hist($setNo,form,menu$j)]
@@ -1847,6 +1851,7 @@ proc mkAssoc {assoc host} {
             wais $assoc
         } else {
             ir $assoc
+            $assoc maximumRecordSize 1000000
         }
     } else {
         if {![string compare [lindex $targets($host) 1] WAIS]} {
@@ -1855,6 +1860,7 @@ proc mkAssoc {assoc host} {
         } else {
             if {[$assoc comstack] == "tcpip"} return
             ir $assoc
+            $assoc maximumRecordSize 1000000
         }
     }
 }