X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=www%2Fmtargets.egw;h=ca6b89381206f6ff8e06747fda455192a9f6b35f;hb=d1fc0ff84894bba24f827a81597717e9f69b6c06;hp=e8e495eec9f2f5b9cf762604d15d8fd4d1849af6;hpb=09f416a26c1c7e35ead317106f985774ec0c97bd;p=egate.git
diff --git a/www/mtargets.egw b/www/mtargets.egw
index e8e495e..ca6b893 100644
--- a/www/mtargets.egw
+++ b/www/mtargets.egw
@@ -1,8 +1,8 @@
{
-# $Id: mtargets.egw,v 1.7 1995/12/21 15:49:51 adam Exp $
+# $Id: mtargets.egw,v 1.11 1996/01/12 16:30:10 adam Exp $
set setNo 1
- source /usr/local/etc/httpd/conf/ztargets.conf
+ source ztargets.conf
if {[info commands saveState] == ""} {
source z39util.tcl
}
@@ -11,14 +11,30 @@
Europagate, WWW/Z39.50 Gateway
+{
+ if {![info exists debug]} {
+ if {[lindex $sessionParms 0] == "1"} {
+ set debug 1
+ } else {
+ set debug 0
+ }
+ }
+ if {![info exists useIcons]} {
+ if {[lindex $sessionParms 1] == "1"} {
+ set useIcons 0
+ } else {
+ set useIcons 1
+ }
+ }
+}
-
+
Choose one or more Z39.50 targets
{
html {
-
-This page is maintained by Peter Wad Hansen .
-Last modified 25. 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"