projects
/
egate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Major revision. Single-target result set can be reached from the
[egate.git]
/
www
/
targets.egw
diff --git
a/www/targets.egw
b/www/targets.egw
index
55d8189
..
04b5ec0
100644
(file)
--- a/
www/targets.egw
+++ b/
www/targets.egw
@@
-1,12
+1,10
@@
<html>
{
<html>
{
-# $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
}
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
if {![info exists debug]} {
if {[lindex $sessionParms 1] == "1"} {
set debug 1
@@
-15,8
+13,10
@@
}
}
set html3 [lindex $sessionParms 0]
}
}
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 {
set html3 1
egw_log debug "New user using Netscape"
} else {
@@
-30,13
+30,16
@@
</head>
<body>
{
</head>
<body>
{
+ set scriptQuery query.egw
+ set scriptTarget targets.egw
+
set useIcons 1
set useIcons 1
- button-europagate
+ button-main
if {[info exists nextSetNo]} {
if {[info exists nextSetNo]} {
- button-view-history 1
+ button-view-history
}
}
- button-define-target 0
+ button-define-target
html "<h2>Choose a target</h2><br>\n"
html "<dl>\n"
html "<h2>Choose a target</h2><br>\n"
html "<dl>\n"
@@
-48,9
+51,9
@@
set tt [array names targets]
set tn [lsort -command targetsCmp $tt]
foreach t $tn {
set tt [array names targets]
set tn [lsort -command targetsCmp $tt]
foreach t $tn {
- if {[string index $t 0] == "."} continue
html {<dt><a href="http:} $env(SCRIPT_NAME) /
html {<dt><a href="http:} $env(SCRIPT_NAME) /
- html "$sessionId/query.egw;/$t" {"> } [lindex $targets($t) 0] " </a>\n"
+ html "$sessionId/query.egw;/-1+$t" {"> } [lindex $targets($t) 0]
+ html " </a>\n"
set desc [lindex $targets($t) 4]
if {$desc != ""} {
html "<dd>$desc\n"
set desc [lindex $targets($t) 4]
if {$desc != ""} {
html "<dd>$desc\n"
@@
-58,11
+61,11
@@
}
html "</dl><br>\n"
set useIcons 0
}
html "</dl><br>\n"
set useIcons 0
- button-europagate
+ button-main
if {[info exists nextSetNo]} {
if {[info exists nextSetNo]} {
- button-view-history 1
+ button-view-history
}
}
- button-define-target 0
+ button-define-target
}
{
catch maintenance
}
{
catch maintenance