projects
/
egate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug fixes and select on FIFOs in wcgi - doesn't really work!
[egate.git]
/
www
/
query.egw
diff --git
a/www/query.egw
b/www/query.egw
index
d07e2c3
..
ba6672f
100644
(file)
--- a/
www/query.egw
+++ b/
www/query.egw
@@
-4,7
+4,7
@@
</head>
<body>
{
</head>
<body>
{
-# $Id: query.egw,v 1.7 1995/11/01 16:15:44 adam Exp $
+# $Id: query.egw,v 1.8 1995/11/02 16:35:36 adam Exp $
proc fail-response {} {
global sessionWait
set sessionWait -1
proc fail-response {} {
global sessionWait
set sessionWait -1
@@
-19,14
+19,17
@@
proc ok-response {} {
global nextSetNo
global hist
global nextSetNo
global hist
- set host $sessionParms
+ set host [lindex $sessionParms 0]
if {[info exists setNo]} {
set oldHost $hist($setNo,host)
} else {
set oldHost ""
}
if {[info exists setNo]} {
set oldHost $hist($setNo,host)
} else {
set oldHost ""
}
- set setNo $nextSetNo
+ if {[catch {set setNo $nextSetNo}]} {
+ set nextSetNo 1
+ set setNo 1
+ }
set hist($setNo,host) $host
if {[catch {z39 failback fail-response}]} {
set hist($setNo,host) $host
if {[catch {z39 failback fail-response}]} {
@@
-115,7
+118,7
@@
Alternatively you can enter your query in
<input type=text name="cclentry" size=52> <br>
<hr>
<strong> Various technical parameters: </strong> <br>
<input type=text name="cclentry" size=52> <br>
<hr>
<strong> Various technical parameters: </strong> <br>
-Max hits: <input type="text" name="hits" value="50" size=3>
+Max hits: <input type="text" name="hits" value="10" size=3>
Records are shown in:
<select name="format">
<option> Long format
Records are shown in:
<select name="format">
<option> Long format