X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=9254cad20dbebb480c3d282125cdd0ccd09416eb;hb=71ad5b6272d0bc6320bea6c1ec10f5e10bbfe8ef;hp=f23edd2d176b9104a6c1c968271c5caa3d89576e;hpb=5495ff55c27d5df117280bf7b7a32bf458d56ffc;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index f23edd2..9254cad 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,6 +1,6 @@ { -# $Id: mtargets.egw,v 1.1 1995/11/07 10:44:31 adam Exp $ +# $Id: mtargets.egw,v 1.9 1996/01/08 08:42:14 adam Exp $ set setNo 1 source /usr/local/etc/httpd/conf/ztargets.conf if {[info commands saveState] == ""} { @@ -11,26 +11,53 @@ Europagate, WWW/Z39.50 Gateway -

Search in multiple targets

-
-

Choose one or more Z39.50 targets:

{ - html {

} \n + 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 + } + } +} +
+EUROPAGATE +
+

Choose one or more Z39.50 targets

+{ + html {
} \n + html "
\n" foreach t [array names targets] { - html { } $t \n + html {
} [ lindex $targets($t) 0] + html {
} + set databases [lindex $targets($t) 1] + + set desc [lindex $targets($t) 4] + if {$desc != ""} { + html "$desc
\n" + } + foreach d $databases { + html { } $d + } html "
\n" } + html "
\n" }
-
-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"