- WWW/Z39.50 Gateway Query Form
-
-
{
-# $Id: mquery.egw,v 1.4 1995/11/10 14:47:31 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
global nextSetNo
global hist
+ global targets
if {[catch {set setNo $nextSetNo}]} {
set nextSetNo 1
set setNo 1
}
+ html { WWW/Z39.50 Gateway Query Form}
+
+ set useIcons 1
+ button-main
+ button-new-target
+
html {
-
-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.
-
-{
- html { New target }
+ html {}
+ html " \n"
+
+ html {Display each record in notation"
+ html { and sort by \n"
+
+ set useIcons 0
+ button-main
+ button-new-target
}
{
+ catch maintenance
+ if {!$debug} return
html "\n"
html "
Debug information
\n"
html "sessionId: $sessionId \n"
@@ -99,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"