X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmsearch.egw;h=4e501bd8b0668f4c269d9ce6a1df60faecb248ef;hb=7b58e36bc4c5a57dec46408bbfb3707638dd967a;hp=6959878e51b6e3cb4b972a85471a50207a901179;hpb=a4571caef991e968e3c20b515490b7923306a1cf;p=egate.git diff --git a/www/msearch.egw b/www/msearch.egw index 6959878..4e501bd 100644 --- a/www/msearch.egw +++ b/www/msearch.egw @@ -1,9 +1,13 @@ { -# $Id: msearch.egw,v 1.19 1996/03/12 16:30:26 adam Exp $ +# $Id: msearch.egw,v 1.22 1996/05/15 18:43:37 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl + if {![info exists debug]} { + session-lost + egw_abort + } } global sessionWait global nextSetNo @@ -42,21 +46,16 @@ incr nextSetNo for {set i 1} {$i <= $hist($setNo,0,host)} {incr i} { - set hist($setNo,$i,query) [build-query $hist($setNo,$i,host) 3] + set hist($setNo,$i,query) [build-query $hist($setNo,$i,host) 6] } - set hist($setNo,form,menu1) [egw_form menu1] - set hist($setNo,form,menu2) [egw_form menu2] - set hist($setNo,form,menu3) [egw_form menu3] + set hist($setNo,scan) 0 - set hist($setNo,form,entry1) [egw_form entry1] - set hist($setNo,form,entry2) [egw_form entry2] - set hist($setNo,form,entry3) [egw_form entry3] - - set hist($setNo,form,logic1) [egw_form logic1] - set hist($setNo,form,logic2) [egw_form logic2] - set hist($setNo,form,logic3) {} - + for {set i 1} {$i < 6} {incr i} { + set hist($setNo,form,menu$i) [egw_form menu$i] + set hist($setNo,form,entry$i) [egw_form entry$i] + set hist($setNo,form,logic$i) [egw_form logic$i] + } set hist($setNo,maxPresent) [egw_form hits] if {$hist($setNo,maxPresent) == ""} { set hist($setNo,maxPresent) 20 @@ -73,8 +72,9 @@ set useIcons 1 button-main - button-new-query 1 $setNo - button-new-target 0 + button-new-query $setNo + button-view-history + button-new-target html "
\n" z39msearch $setNo B 1 $hist($setNo,maxPresent) 1 @@ -83,8 +83,9 @@ set useIcons 0 button-main - button-new-query 1 $setNo - button-new-target 0 + button-new-query $setNo + button-view-history + button-new-target } {