projects
/
egate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Minor changes.
[egate.git]
/
www
/
msearch.egw
diff --git
a/www/msearch.egw
b/www/msearch.egw
index
1d1238e
..
c1c825a
100644
(file)
--- a/
www/msearch.egw
+++ b/
www/msearch.egw
@@
-1,6
+1,6
@@
<html>
{
<html>
{
-# $Id: msearch.egw,v 1.1 1995/11/07 14:56:58 adam Exp $
+# $Id: msearch.egw,v 1.3 1995/11/08 18:07:22 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
if {[info commands saveState] == ""} {
source z39util.tcl
@@
-11,6
+11,8
@@
global hist
global zstatus
global hist
global zstatus
+ html "<head><title> WWW/Z39.50 Gateway Search </title>\n"
+ html "</head><body>\n"
if {[wform menu1] == ""} {
set setNo [lindex $sessionParms 0]
} else {
if {[wform menu1] == ""} {
set setNo [lindex $sessionParms 0]
} else {
@@
-32,9
+34,6
@@
set hist($setNo,maxPresent) 30
}
}
set hist($setNo,maxPresent) 30
}
}
- html "<head><title> WWW/Z39.50 Gateway Search </title>\n"
- html "</head><body>\n"
-
z39msearch $setNo 1
html "<dl>\n"
z39msearch $setNo 1
html "<dl>\n"
@@
-63,9
+62,9
@@
<hr>
{
<hr>
{
- html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+ html {<a href="http:} $env(SCRIPT_NAME)
html / $sessionId {/mtargets.egw"> New target </a>} " | \n"
html / $sessionId {/mtargets.egw"> New target </a>} " | \n"
- html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
+ html {<a href="http:} $env(SCRIPT_NAME)
html / $sessionId {/mquery.egw/} $host + $setNo {"> New query </a>}
}
html / $sessionId {/mquery.egw/} $host + $setNo {"> New query </a>}
}
@@
-79,7
+78,8
@@
}
html "form: " [wform] " <br>\n"
html "target: " $host " <br>\n"
}
html "form: " [wform] " <br>\n"
html "target: " $host " <br>\n"
- html "query: --" $hist($setNo,1,query) "-- <br>"
+ html "query: --" $hist($setNo,1,query) "-- <br>\n"
+ html "database: " $hist($setNo,1,database) "<br>\n"
html "setNo: " $setNo " <br>\n"
html "nextSetNo: " $nextSetNo " <br>\n"
}
html "setNo: " $setNo " <br>\n"
html "nextSetNo: " $nextSetNo " <br>\n"
}