tcl: fixes following merge/reorg

diff --git a/sg-execute-flight b/sg-execute-flight
index c91562581785566d1b54b959db7c49f2009f59a7..81dc1dbd7f5a6e3432527309acceaec9cf8d2b3d 100755 (executable)
--- a/sg-execute-flight
+++ b/sg-execute-flight
@@ -177,7 +177,7 @@ proc main_iteration {} {
 
     kill-term $job $pid
 
-    transaction flights {
+    jobdb::transaction flights {
         set found [pg_execute -array jobinfo dbh "
             SELECT * FROM jobs
                     WHERE flight=$flight