X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Ftargets.egw;h=04b5ec01927782cff652e375e685462061b006d6;hb=a61ad0378b93e99e362a1d92c33d701dbf103eba;hp=55d8189d7892da8e5d3150674947df1aabd7118d;hpb=3bbb844581f17ede97f6eb7ea8022b69a0859420;p=egate.git diff --git a/www/targets.egw b/www/targets.egw index 55d8189..04b5ec0 100644 --- a/www/targets.egw +++ b/www/targets.egw @@ -1,12 +1,10 @@ { -# $Id: targets.egw,v 1.19 1996/01/26 17:41:26 adam Exp $ +# $Id: targets.egw,v 1.23 1996/03/13 14:07:31 adam Exp $ source ztargets.conf if {[info commands saveState] == ""} { source z39util.tcl } - set mMode 0 - if {![info exists debug]} { if {[lindex $sessionParms 1] == "1"} { set debug 1 @@ -15,8 +13,10 @@ } } set html3 [lindex $sessionParms 0] - if {$html3 == ""} { - if {[string first Mozilla $env(HTTP_USER_AGENT)] == 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 { @@ -30,13 +30,16 @@ { + set scriptQuery query.egw + set scriptTarget targets.egw + set useIcons 1 - button-europagate + button-main if {[info exists nextSetNo]} { - button-view-history 1 + button-view-history } - button-define-target 0 + button-define-target html "

Choose a target


\n" html "
\n" @@ -48,9 +51,9 @@ set tt [array names targets] set tn [lsort -command targetsCmp $tt] foreach t $tn { - if {[string index $t 0] == "."} continue html {
} [lindex $targets($t) 0] " \n" + html "$sessionId/query.egw;/-1+$t" {"> } [lindex $targets($t) 0] + html " \n" set desc [lindex $targets($t) 4] if {$desc != ""} { html "
$desc\n" @@ -58,11 +61,11 @@ } html "

\n" set useIcons 0 - button-europagate + button-main if {[info exists nextSetNo]} { - button-view-history 1 + button-view-history } - button-define-target 0 + button-define-target } { catch maintenance