X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Ftargets.egw;h=04b5ec01927782cff652e375e685462061b006d6;hb=a61ad0378b93e99e362a1d92c33d701dbf103eba;hp=d936080152eb92d182f47f35001e849cbe52ea93;hpb=949f8c4efedfe6d191264853690c84f527e1790b;p=egate.git diff --git a/www/targets.egw b/www/targets.egw index d936080..04b5ec0 100644 --- a/www/targets.egw +++ b/www/targets.egw @@ -1,48 +1,82 @@ { -# $Id: targets.egw,v 1.3 1995/11/01 16:15:47 adam Exp $ - source /usr/local/etc/httpd/conf/ztargets.conf - set nextSetNo 1 +# $Id: targets.egw,v 1.23 1996/03/13 14:07:31 adam Exp $ + 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 -
-Welcome to EUROPAGATE -
-Part of Europagate is a World Wide Web to Z39.50 gateway. The gateway provides search and -retrieve facilities in the databases of various libraries.

- Europagate is a -project in the -EU libraries Programme carried out by:
- University College Dublin
-Technical University & Library of Denmark
-Library Council
-Consejo Superior de Investigaciones Científicas
-

- Choose a Z39.50 target:
-
{ - foreach t [array names targets] { - html {
} $t "\n" - html "
" [lindex $targets($t) 0] \n + set scriptQuery query.egw + set scriptTarget targets.egw + + set useIcons 1 + + button-main + if {[info exists nextSetNo]} { + button-view-history + } + button-define-target + html "

Choose a target


\n" + html "
\n" + + proc targetsCmp {l r} { + global targets + return [string compare [string tolower [lindex $targets($l) 0]] \ + [string tolower [lindex $targets($r) 0]]] + } + set tt [array names targets] + set tn [lsort -command targetsCmp $tt] + foreach t $tn { + html {
} [lindex $targets($t) 0] + html " \n" + set desc [lindex $targets($t) 4] + if {$desc != ""} { + html "
$desc\n" + } + } + html "

\n" + set useIcons 0 + button-main + if {[info exists nextSetNo]} { + button-view-history } + 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 + global debug + if {!$debug} return html "
\n" - html "Debug information
\n" + html "

Debug information

\n" html "sessionId: $sessionId
\n" html "sessionParms: $sessionParms
\n" - foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} { - html $e {: } $env($e) {
} \n + foreach n [array names env] { + html "env($n) = " $env($n) "
\n" } }