X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmquery.egw;h=ba507590c4efde6dd156b07cd70dac04d7db2b02;hb=HEAD;hp=9e76a0356d34d42346eee5470ccfc2eb44d99f6a;hpb=71ad5b6272d0bc6320bea6c1ec10f5e10bbfe8ef;p=egate.git
diff --git a/www/mquery.egw b/www/mquery.egw
index 9e76a03..ba50759 100644
--- a/www/mquery.egw
+++ b/www/mquery.egw
@@ -1,13 +1,13 @@
-
- WWW/Z39.50 Gateway Query Form
-
-
{
-# $Id: mquery.egw,v 1.8 1996/01/08 08:42:13 adam Exp $
+# $Id: mquery.egw,v 1.18 2001/02/26 14:32:36 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
+ if {![info exists debug]} {
+ session-lost
+ egw_abort
+ }
}
global setNo
@@ -20,69 +20,126 @@
set setNo 1
}
- 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 +156,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"