Bug fix: Sometimes the databaseNames were duplicated.
authorAdam Dickmeiss <adam@indexdata.dk>
Fri, 11 Oct 1996 13:16:34 +0000 (13:16 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Fri, 11 Oct 1996 13:16:34 +0000 (13:16 +0000)
www/mquery.egw

index b694786..849afba 100644 (file)
@@ -1,6 +1,6 @@
 <html>
 {
-# $Id: mquery.egw,v 1.16 1996/03/14 11:50:45 adam Exp $
+# $Id: mquery.egw,v 1.17 1996/10/11 13:16:34 adam Exp $
 
     if {[info commands saveState] == ""} {
         source z39util.tcl
@@ -37,6 +37,7 @@
         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]
         }