X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fmsearch.egw;h=08f5ea697fb560ef68a5312c366a1e76ab7016c9;hb=fa0ddb755d3a836e4e13cc05a6ba3eb6b0010958;hp=5407ca30fdd2ece41056bc53ea543e14c5359940;hpb=3a8f973d3eae6f61c31340874c84610fd3a7f8e5;p=egate.git diff --git a/www/msearch.egw b/www/msearch.egw index 5407ca3..08f5ea6 100644 --- a/www/msearch.egw +++ b/www/msearch.egw @@ -1,6 +1,6 @@ { -# $Id: msearch.egw,v 1.9 1996/01/04 10:40:00 adam Exp $ +# $Id: msearch.egw,v 1.12 1996/01/24 08:27:26 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl @@ -15,7 +15,7 @@ html "\n" set setNo [lindex $sessionParms 0] - if {[wform menu1] != ""} { + if {[egw_form menu1] != ""} { set hist($nextSetNo,0,host) $hist($setNo,0,host) for {set i 1} {$i <= $hist($setNo,0,host)} {incr i} { set hist($nextSetNo,$i,host) $hist($setNo,$i,host) @@ -29,7 +29,7 @@ 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,maxPresent) [wform hits] + set hist($setNo,maxPresent) [egw_form hits] if {$hist($setNo,maxPresent) == ""} { set hist($setNo,maxPresent) 30 } @@ -50,7 +50,7 @@ html "Error\n

NSD$code: $msg: $addinfo" } else { set r [z39$i.$setNo resultCount] - html "$r hits\n

\n" display-rec 1 $hist($setNo,$i,offset) display-brief $i html "" @@ -64,19 +64,19 @@ global useIcons if {$useIcons} { - html {

} + html {

} } html {

} + html {">

} } else { html {"> New target } " | \n" } html {

} + html {">

} } else { html {"> New query } } @@ -91,7 +91,7 @@ foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} { html $e {: } $env($e) {
} \n } - html "form: " [wform] "
\n" + html "form: " [egw_form] "
\n" html "target: " $host "
\n" html "query: --" $hist($setNo,1,query) "--
\n" html "database: " $hist($setNo,1,database) "
\n"