X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fmquery.egw;h=4fc8f45884d4633767abc0516f39a8f06fcc49e8;hb=fa0ddb755d3a836e4e13cc05a6ba3eb6b0010958;hp=c20551929268c1b7865f7fe8a0772d4b418553c8;hpb=cc5af6a5323f9576c208519dbf4351b4f818e166;p=egate.git diff --git a/www/mquery.egw b/www/mquery.egw index c205519..4fc8f45 100644 --- a/www/mquery.egw +++ b/www/mquery.egw @@ -4,7 +4,7 @@ { -# $Id: mquery.egw,v 1.9 1996/01/09 16:16:47 adam Exp $ +# $Id: mquery.egw,v 1.10 1996/01/24 08:27:25 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl @@ -25,7 +25,7 @@ set phost {} set i 0 - foreach t [lsort [wform target]] { + foreach t [lsort [egw_form target]] { set host [lindex $t 0] set base [lindex $t 1] if {$host != $phost} { @@ -38,7 +38,7 @@ } if {$i == 0} { html "

No targets specified

" - wabort 1 + egw_abort 1 } set hist($setNo,0,host) $i } @@ -99,7 +99,7 @@ html "host=" $hist($setNo,$i,host) " " $hist($setNo,$i,database) html "
\n" } - html "form: " [wform] "
\n" + html "form: " [egw_form] "
\n" html "target: " $host "
\n" html "setNo: " $setNo "
\n" html "nextSetNo: " $nextSetNo "
\n"