X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=www%2Fmtargets.egw;h=1f81bfa2aea31324b3af8b6d9d48599c0699e066;hb=25db261b6bbbfcc7bc26f679f195b51d31b9d7d7;hp=e8e495eec9f2f5b9cf762604d15d8fd4d1849af6;hpb=09f416a26c1c7e35ead317106f985774ec0c97bd;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index e8e495e..1f81bfa 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,33 +1,62 @@ { -# $Id: mtargets.egw,v 1.7 1995/12/21 15:49:51 adam Exp $ +# $Id: mtargets.egw,v 1.15 1996/02/19 15:44:59 adam Exp $ set setNo 1 - source /usr/local/etc/httpd/conf/ztargets.conf + source ztargets.conf if {[info commands saveState] == ""} { source z39util.tcl } + set mMode 1 + + if {![info exists debug]} { + if {[lindex $sessionParms 1] == "1"} { + set debug 1 + } else { + set debug 0 + } + } + set html3 [lindex $sessionParms 0] + if {$html3 == ""} { + if {[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 - -
-EUROPAGATE -
-

Choose one or more Z39.50 targets

{ + set useIcons 1 + button-europagate + button-define-target 0 + + html "

Choose one or more targets

\n" html {

} \n + html / $sessionId {/mquery.egw/} $setNo {" method=get>
} \n html "
\n" - foreach t [array names targets] { + + + + 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 {
} set databases [lindex $targets($t) 1] set desc [lindex $targets($t) 4] if {$desc != ""} { - html "$desc
\n" + html "$desc
\n" } foreach d $databases { html {\n" } html "
\n" + html {
} \n + + html "

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

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