X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fmsearch.egw;h=08f5ea697fb560ef68a5312c366a1e76ab7016c9;hb=fa0ddb755d3a836e4e13cc05a6ba3eb6b0010958;hp=4ac4f3a72b9be40a1c1f0baccc1d5128d5d91031;hpb=09f416a26c1c7e35ead317106f985774ec0c97bd;p=egate.git diff --git a/www/msearch.egw b/www/msearch.egw index 4ac4f3a..08f5ea6 100644 --- a/www/msearch.egw +++ b/www/msearch.egw @@ -1,6 +1,6 @@ { -# $Id: msearch.egw,v 1.6 1995/12/21 15:49:51 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) @@ -27,9 +27,9 @@ 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) 3] } - set hist($setNo,maxPresent) [wform hits] + set hist($setNo,maxPresent) [egw_form hits] if {$hist($setNo,maxPresent) == ""} { set hist($setNo,maxPresent) 30 } @@ -50,9 +50,10 @@ html "Error\n
NSD$code: $msg: $addinfo" } else { set r [z39$i.$setNo resultCount] - html "$r hits\n
\n" + html "$r hits\n
\n" } html "\n" } @@ -63,25 +64,26 @@ global useIcons if {$useIcons} { - html {} + html {} } html {} + html {">} } else { html {"> New target } " | \n" } html {} + html {">} } else { html {"> New query } } } { + if {!$debug} return html "
\n" html "

Debug information

\n" html "sessionId: $sessionId
\n" @@ -89,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"