- WWW/Z39.50 Gateway Query Form
-
-
{
-# $Id: mquery.egw,v 1.3 1995/11/08 18:07:22 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
-
- 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"
@@ -97,7 +150,12 @@ and will continue to be so until the end of December 1995.
foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
html $e {: } $env($e) { } \n
}
- html "form: " [wform] " \n"
+ set j $hist($setNo,0,host)
+ for {set i 1} {$i <= $j} {incr i} {
+ html "host=" $hist($setNo,$i,host) " " $hist($setNo,$i,database)
+ html " \n"
+ }
+ html "form: " [egw_form] " \n"
html "target: " $host " \n"
html "setNo: " $setNo " \n"
html "nextSetNo: " $nextSetNo " \n"