#
-# $Id: z39util.tcl,v 1.42 1996/03/15 14:43:45 adam Exp $
+# $Id: z39util.tcl,v 1.45 1996/05/24 11:16:02 adam Exp $
#
proc saveState {} {
uplevel #0 {
html "No Title"
}
html {</a> }
- if {[scan $score %d nscore]} {
+ if {[scan $score %d nscore] == 1} {
html "; Score " $nscore
}
} else {
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)]
}
}
+proc button-feedback {} {
+ global useIcons
+
+ html {<a href="http://europagate.dtv.dk/wwwquest.html">}
+ if {$useIcons} {
+ html {<img src="/egwgif/button-user-feedback.gif" alt="User Feedback"
+ border=0></a>}
+ } else {
+ html {User Feedback</a>}
+ }
+}
+
proc button-define-target {} {
global useIcons
global env
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
}
}
}