- WWW/Z39.50 Gateway Query Form
-
-
{
-# $Id: mquery.egw,v 1.6 1995/12/21 15:49:51 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
}
-
-This page is maintained by Peter Wad Hansen .
-Last modified 29. september 1995.
- This and the following pages are under construction
-and will continue to be so until the end of December 1995.
{
+ catch maintenance
+ if {!$debug} return
html "\n"
html "
Debug information
\n"
html "sessionId: $sessionId \n"
@@ -102,7 +155,7 @@ and will continue to be so until the end of December 1995.
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"