projects
/
egate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Work on target definitions.
[egate.git]
/
www
/
mquery.egw
diff --git
a/www/mquery.egw
b/www/mquery.egw
index
db1f8eb
..
4fc8f45
100644
(file)
--- a/
www/mquery.egw
+++ b/
www/mquery.egw
@@
-4,7
+4,7
@@
</head>
<body>
{
</head>
<body>
{
-# $Id: mquery.egw,v 1.6 1995/12/21 15:49:51 adam Exp $
+# $Id: mquery.egw,v 1.10 1996/01/24 08:27:25 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
if {[info commands saveState] == ""} {
source z39util.tcl
@@
-21,11
+21,11
@@
}
html {<form action="http:} $env(SCRIPT_NAME)
}
html {<form action="http:} $env(SCRIPT_NAME)
- html / $sessionId {/msearch.egw/} $setNo {" method=post>} \n
+ html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
set phost {}
set i 0
set phost {}
set i 0
- foreach t [lsort [wform target]] {
+ foreach t [lsort [egw_form target]] {
set host [lindex $t 0]
set base [lindex $t 1]
if {$host != $phost} {
set host [lindex $t 0]
set base [lindex $t 1]
if {$host != $phost} {
@@
-38,7
+38,7
@@
}
if {$i == 0} {
html "<h2>No targets specified</h2></body></html>"
}
if {$i == 0} {
html "<h2>No targets specified</h2></body></html>"
- wabort 1
+ egw_abort 1
}
set hist($setNo,0,host) $i
}
}
set hist($setNo,0,host) $i
}
@@
-74,22
+74,19
@@
{
global useIcons
if {$useIcons} {
{
global useIcons
if {$useIcons} {
- html {<img src="/gif/button-egw.gif">}
+ html {<img src="/egwgif/button-egw.gif">}
}
html {<a href="http:} $env(SCRIPT_NAME)
html / $sessionId {/mtargets.egw}
if {$useIcons} {
}
html {<a href="http:} $env(SCRIPT_NAME)
html / $sessionId {/mtargets.egw}
if {$useIcons} {
- html {"><img src="/gif/button-new-target.gif" border=0></a>}
+ html {"><img src="/egwgif/button-new-target.gif" border=0></a>}
} else {
html {"> New target </a>}
}
}
} else {
html {"> New target </a>}
}
}
-<hr>
-This page is maintained by <a href="mailto:pwh@dtv.dk"> Peter Wad Hansen </a>.
-Last modified 29. september 1995. <br>
-<em> This and the following pages are under construction
-and will continue to be so until the end of December 1995.</em>
{
{
+ catch maintenance
+ if {!$debug} return
html "<hr>\n"
html "<h3>Debug information</h3>\n"
html "sessionId: $sessionId <br>\n"
html "<hr>\n"
html "<h3>Debug information</h3>\n"
html "sessionId: $sessionId <br>\n"
@@
-102,7
+99,7
@@
and will continue to be so until the end of December 1995.</em>
html "host=" $hist($setNo,$i,host) " " $hist($setNo,$i,database)
html "<br>\n"
}
html "host=" $hist($setNo,$i,host) " " $hist($setNo,$i,database)
html "<br>\n"
}
- html "form: " [wform] " <br>\n"
+ html "form: " [egw_form] " <br>\n"
html "target: " $host " <br>\n"
html "setNo: " $setNo " <br>\n"
html "nextSetNo: " $nextSetNo " <br>\n"
html "target: " $host " <br>\n"
html "setNo: " $setNo " <br>\n"
html "nextSetNo: " $nextSetNo " <br>\n"