X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=e3bb9dd9e4bc18fd7611a6b71b8c4cdecabd76b9;hb=a61ad0378b93e99e362a1d92c33d701dbf103eba;hp=6c91b0310c6a816a3ed3c455fb89997c78101902;hpb=6e37e8e91bf35cb14c930e8988085cf78f11029a;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 6c91b03..e3bb9dd 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,36 +1,82 @@ { -# $Id: mtargets.egw,v 1.2 1995/11/07 14:56:58 adam Exp $ +# $Id: mtargets.egw,v 1.19 1996/03/13 14:07:30 adam Exp $ set setNo 1 - source /usr/local/etc/httpd/conf/ztargets.conf + source ztargets.conf if {[info commands saveState] == ""} { source z39util.tcl } + if {![info exists debug]} { + if {[lindex $sessionParms 1] == "1"} { + set debug 1 + } else { + set debug 0 + } + } + set html3 [lindex $sessionParms 0] + if {[string length $html3] == 0} { + if {![info exists env(HTTP_USER_AGENT)]} { + set html3 1 + } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} { + set html3 1 + egw_log debug "New user using Netscape" + } else { + set html3 0 + egw_log debug "New user Not using Netscape" + } + } } Europagate, WWW/Z39.50 Gateway -

Search in multiple targets

-
-

Choose one or more Z39.50 targets:

{ - html {

} \n - foreach t [array names targets] { - html { } $t \n - html "
\n" + set scriptQuery mquery.egw + set scriptTarget mtargets.egw + + set useIcons 1 + button-main + button-define-target + + html "

Choose one or more targets

\n" + html {
} \n + html "
\n" + + proc headlineC {h} { + html {

} $h \n {

} + } + proc targetC {t} { + global targets + html {
} [ lindex $targets($t) 0] + html {: } + set databases [splitDatabaseSpec $t] + + set desc [lindex $targets($t) 4] + if {[string length $desc] > 0} { + html "$desc
\n" + } + html {
} + foreach d $databases { + html { } $d + } + html "

\n" } + serverList headlineC targetC + + html "
\n" + html {
} \n + + html "

\n" + set useIcons 0 + button-main + button-define-target } - - -

-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"