#
-# $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 {
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]
}
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)]
wais $assoc
} else {
ir $assoc
+ $assoc maximumRecordSize 1000000
}
} else {
if {![string compare [lindex $targets($host) 1] WAIS]} {
} else {
if {[$assoc comstack] == "tcpip"} return
ir $assoc
+ $assoc maximumRecordSize 1000000
}
}
}