X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=www%2Fmtargets.egw;h=ca6b89381206f6ff8e06747fda455192a9f6b35f;hb=d1fc0ff84894bba24f827a81597717e9f69b6c06;hp=095aa8a23b02e93d70acbc8b39cc38a1888cb079;hpb=b443634fbd412cea15ea527188c3e241bb1edf21;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 095aa8a..ca6b893 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,8 +1,8 @@ { -# $Id: mtargets.egw,v 1.3 1995/11/08 16:14:33 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,26 +11,53 @@ Europagate, WWW/Z39.50 Gateway -

Search in multiple targets

-
-

Choose one or more Z39.50 targets:

+{ + 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 / $sessionId {/mquery.egw/} $setNo {" method=get>
} \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"