<html>
{
-# $Id: mquery.egw,v 1.16 1996/03/14 11:50:45 adam Exp $
+# $Id: mquery.egw,v 1.18 2001/02/26 14:32:36 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
button-main
button-new-target
- html {<form action="http:} $env(SCRIPT_NAME)
+ html {<form action="} $env(SCRIPT_NAME)
html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
set phost {}
if {$host != $phost} {
set phost $host
incr i
+ catch {unset hist($setNo,$i,database)}
set hist($setNo,$i,host) $host
set hist($setNo,$i,idAuthentication) [lindex $targets($host) 3]
}