X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Ftargets.egw;h=366e50217da016e79154c9ff42b04c30b4ef9aac;hb=6c6f3deb01675917b3c73cca50dd20d738593a47;hp=cd5cdf580ea36b6f05c02654f229c17e377265bb;hpb=150d836eb46d0dde8fedeb77fc7fd4ef6eafba4f;p=egate.git
diff --git a/www/targets.egw b/www/targets.egw
index cd5cdf5..366e502 100644
--- a/www/targets.egw
+++ b/www/targets.egw
@@ -1,7 +1,10 @@
{
-# $Id: targets.egw,v 1.4 1995/11/02 16:35:36 adam Exp $
+# $Id: targets.egw,v 1.7 1995/11/08 16:14:34 adam Exp $
source /usr/local/etc/httpd/conf/ztargets.conf
+ if {[info commands saveState] == ""} {
+ source z39util.tcl
+ }
}
Europagate, WWW/Z39.50 Gateway
@@ -20,16 +23,22 @@ EU libraries Programme carried out by:
Library Council
Consejo Superior de Investigaciones Científicas
- Choose a Z39.50 target:
+ Choose a Z39.50 target:
{
foreach t [array names targets] {
- html {- } $t "\n"
- html "
- " [lindex $targets($t) 0] \n
+ html {
- } [lindex $targets($t) 0] " \n"
+ set desc [lindex $targets($t) 4]
+ if {$desc != ""} {
+ html "
- $desc\n"
+ }
}
}
+{
+ z39history
+}
This page is maintained by Peter Wad Hansen .
Last modified 25. september 1995.
@@ -37,7 +46,7 @@ Last modified 25. september 1995.
until the end of December 1995.
{
html "
\n"
- html "Debug information
\n"
+ html "Debug information
\n"
html "sessionId: $sessionId
\n"
html "sessionParms: $sessionParms
\n"
foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {