X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=setup.tcl;h=8f4464733052009f802c126bde587ca6c3befdc5;hb=e38936a73431577301570b129ccd1dfca146aa4e;hp=3d6e0603b45a42704f41d1291709f383a0fa6322;hpb=03dae994ae05a36d5c8bb443f5f59dbb396ca80c;p=ir-tcl-moved-to-github.git

diff --git a/setup.tcl b/setup.tcl
index 3d6e060..8f44647 100644
--- a/setup.tcl
+++ b/setup.tcl
@@ -6,7 +6,13 @@
 # Configuration Driver
 #
 # $Log: setup.tcl,v $
-# Revision 1.4  1998-02-12 13:32:42  adam
+# Revision 1.6  1999-12-12 00:25:59  adam
+# Updated list of preconfigure targets.
+#
+# Revision 1.5  1998/04/02 14:32:01  adam
+# Minor changes to EXPLAIN driver.
+#
+# Revision 1.4  1998/02/12 13:32:42  adam
 # Updated configuration system.
 #
 # Revision 1.3  1998/01/30 13:30:50  adam
@@ -63,7 +69,7 @@ proc protocol-setup-action {target} {
     
     set timedef $profileS($target,timeDefine)
     if {![string length $timedef]} {
-        set timedef [clock seconds]
+	set profileS($target,timeDefine) [clock seconds]
     }
 
     foreach n [array names profileS $target,*] {
@@ -411,7 +417,6 @@ proc target-setup-db-remove {target wp} {
         target-setup-dblist-update $target $wp
         if {![llength $profileS($target,databases)]} {
             unset profileS($target,databases)
-            puts removed
         }
     }
 }