X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=1967138ff6b32f87f01e5b24ee01cba52075a77f;hb=5609701cc026608baadbf9c3b46c1fc5c03ab50e;hp=3f846daa9937e034402a541aa05d1d1b92cd5385;hpb=3d4b6045b8875099666b99edbf1457c91b5da928;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 3f846da..1967138 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,6 +1,6 @@ { -# $Id: mtargets.egw,v 1.4 1995/11/08 18:07:23 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,36 +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 {
} [ lindex $targets($t) 0] -# html { } 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 { } $d } - html "\n" + 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"