X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fmtargets.egw;h=a41168f6b8e75809510387d77ecf56889a6146f4;hb=7b58e36bc4c5a57dec46408bbfb3707638dd967a;hp=0d23dc976d0b010bc92fa51f926a348f5ffc26f6;hpb=8bafbc608e1ffba9ee87f4856e586dffa57901b8;p=egate.git diff --git a/www/mtargets.egw b/www/mtargets.egw index 0d23dc9..a41168f 100644 --- a/www/mtargets.egw +++ b/www/mtargets.egw @@ -1,6 +1,6 @@ { -# $Id: mtargets.egw,v 1.20 1996/03/14 11:50:46 adam Exp $ +# $Id: mtargets.egw,v 1.22 1996/05/24 11:16:00 adam Exp $ set setNo 1 source ztargets.conf if {![info exists debug]} { @@ -36,6 +36,7 @@ set useIcons 1 button-main + button-feedback button-define-target html "

Choose one or more targets

\n" @@ -48,7 +49,11 @@ } proc targetC {t} { global targets - html {
} [ lindex $targets($t) 0] + global waisFlag + if {!$waisFlag && ![string compare [lindex $targets($t) 1] WAIS]} { + return + } + html {
} [lindex $targets($t) 0] html {: } set databases [splitDatabaseSpec $t] @@ -63,6 +68,14 @@ } html "

\n" } + if {![info exists waisFlag]} { + set waisFlag 1 + if {[catch {wais waisdummy}]} { + set waisFlag 0 + } else { + rename waisdummy {} + } + } serverList headlineC targetC html "\n" @@ -71,6 +84,7 @@ html "

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