<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
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 {
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"
<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 {<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 "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"
}