X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmquery.egw;h=b6947867263a61c94eeaecd4b5d49bd115a71529;hb=8bafbc608e1ffba9ee87f4856e586dffa57901b8;hp=548026a7a5f330cac3c2422ed98281f9383883c6;hpb=ba37ce207c47ac1fa27bb46df7dc54f72740bb96;p=egate.git
diff --git a/www/mquery.egw b/www/mquery.egw
index 548026a..b694786 100644
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -1,13 +1,13 @@
-
- WWW/Z39.50 Gateway Query Form
-
-
{
-# $Id: mquery.egw,v 1.7 1996/01/03 15:19:37 adam Exp $
+# $Id: mquery.egw,v 1.16 1996/03/14 11:50:45 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
+ if {![info exists debug]} {
+ session-lost
+ egw_abort
+ }
}
global setNo
@@ -20,12 +20,18 @@
set setNo 1
}
+ html { WWW/Z39.50 Gateway Query Form}
+
+ set useIcons 1
+ button-main
+ button-new-target
+
html {
-{
- global useIcons
- if {$useIcons} {
- html {}
- }
- html {}
+
+ html {}
+ html "
\n"
+
+ html {Display each record in notation"
+ html { and sort by
\n"
+
+ set useIcons 0
+ button-main
+ button-new-target
}
{
catch maintenance
@@ -99,7 +155,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"