X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=306fe16ae07775076b7927f069ffbbe69e76670e;hb=0b3eb3daeefb46be87146e1885ec14438c897279;hp=9254cad20dbebb480c3d282125cdd0ccd09416eb;hpb=71ad5b6272d0bc6320bea6c1ec10f5e10bbfe8ef;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 9254cad..306fe16 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,38 +1,41 @@ { -# $Id: mtargets.egw,v 1.9 1996/01/08 08:42:14 adam Exp $ +# $Id: mtargets.egw,v 1.14 1996/01/29 17:31:47 adam Exp $ set setNo 1 - source /usr/local/etc/httpd/conf/ztargets.conf + source ztargets.conf if {[info commands saveState] == ""} { source z39util.tcl } -} - -Europagate, WWW/Z39.50 Gateway - - -{ + set mMode 1 + if {![info exists debug]} { - if {[lindex $sessionParms 0] == "1"} { + if {[lindex $sessionParms 1] == "1"} { set debug 1 } else { set debug 0 } } - - if {![info exists useIcons]} { - if {[lindex $sessionParms 1] == "1"} { - set useIcons 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 useIcons 1 + set html3 0 + egw_log debug "New user Not using Netscape" } } } -
-EUROPAGATE -
-

Choose one or more Z39.50 targets

+ +Europagate, WWW/Z39.50 Gateway + + { + set useIcons 1 + button-europagate + button-define-target 0 + + html "

Choose one or more targets

\n" html {

} \n html "
\n" @@ -43,7 +46,7 @@ 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 } - - + { catch maintenance if {!$debug} return