X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=4ac743e38b28c1525c8f0c0ee66ca9e9514c3044;hb=a4571caef991e968e3c20b515490b7923306a1cf;hp=1d5dc3240bdba5a2421a91ef46fcfa728384522a;hpb=cf6ead410b63297e714d9258f9ea593b1e127501;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 1d5dc32..4ac743e 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,50 +1,65 @@ { -# $Id: mtargets.egw,v 1.12 1996/01/26 15:50:07 adam Exp $ +# $Id: mtargets.egw,v 1.18 1996/03/12 16:30:27 adam Exp $ set setNo 1 source ztargets.conf if {[info commands saveState] == ""} { source z39util.tcl } set mMode 1 -} - -Europagate, WWW/Z39.50 Gateway - - -{ + 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 {[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 useIcons 1 + set html3 0 + egw_log debug "New user Not using Netscape" } } +} + +Europagate, WWW/Z39.50 Gateway + + +{ + set scriptQuery mquery.egw + set scriptTarget mtargets.egw set useIcons 1 - button-europagate + button-main button-define-target 0 html "

Choose one or more targets

\n" html {

} \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 databases [splitDatabaseSpec $t] + set desc [lindex $targets($t) 4] if {$desc != ""} { - html "$desc
\n" + html "$desc
\n" } foreach d $databases { html {\n" set useIcons 0 - button-europagate + button-main button-define-target 0 }