X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=1967138ff6b32f87f01e5b24ee01cba52075a77f;hb=0eb16f9fa8de016fbe9378db5f975825cc9c5e48;hp=6c91b0310c6a816a3ed3c455fb89997c78101902;hpb=6e37e8e91bf35cb14c930e8988085cf78f11029a;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 6c91b03..1967138 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,6 +1,6 @@ { -# $Id: mtargets.egw,v 1.2 1995/11/07 14:56:58 adam Exp $ +# $Id: mtargets.egw,v 1.10 1996/01/09 16:16:48 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"