add missing commits

diff --git a/server/qrtn.dc b/server/qrtn.dc
index 9234e76b7e066369de6acbf260698db5d0a6e7d6..ebf3aac93f8741c356600e5e539444e2833b4538 100644 (file)
--- a/server/qrtn.dc
+++ b/server/qrtn.dc
@@ -144,6 +144,7 @@ int mr_open_database()
         return(mr_errcode);
 
     EXEC SQL SELECT SIZE(signature) INTO :mr_sig_length FROM users WHERE users_id=0; /* Harmless on second open */
+    EXEC SQL COMMIT WORK;
     if(ingres_errno)
         return(mr_errcode);
 
@@ -969,6 +970,7 @@ int *uid;
     EXEC SQL SELECT km.users_id, km.string_id INTO :u_id, :k_id
       FROM krbmap km, strings str
       WHERE km.string_id = str.string_id AND str.string = :krbname;
+    EXEC SQL COMMIT WORK;
 
     if (ingres_errno) return(mr_errcode);