X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Ftargets.egw;h=04b5ec01927782cff652e375e685462061b006d6;hb=a61ad0378b93e99e362a1d92c33d701dbf103eba;hp=f9c15f1bac229506710d056daf1733dda1256553;hpb=077cc4d735856a5e9c31e16ee75d28e85c67ac62;p=egate.git diff --git a/www/targets.egw b/www/targets.egw index f9c15f1..04b5ec0 100644 --- a/www/targets.egw +++ b/www/targets.egw @@ -1,12 +1,10 @@ { -# $Id: targets.egw,v 1.20 1996/03/05 18:50:25 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 @@ -32,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" @@ -50,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" @@ -60,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