X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Ftargets.egw;h=04b5ec01927782cff652e375e685462061b006d6;hb=a61ad0378b93e99e362a1d92c33d701dbf103eba;hp=975631dfb58b367a0516b96fcd37e402c003b24a;hpb=e406f6fe976eeae769f193a9d48938d903c02543;p=egate.git
diff --git a/www/targets.egw b/www/targets.egw
index 975631d..04b5ec0 100644
--- a/www/targets.egw
+++ b/www/targets.egw
@@ -1,12 +1,10 @@
{
-# $Id: targets.egw,v 1.21 1996/03/08 16:47:06 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"
@@ -51,7 +52,8 @@
set tn [lsort -command targetsCmp $tt]
foreach t $tn {
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"
@@ -59,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