bug fix for open transactions

diff --git a/httemplate/autohandler b/httemplate/autohandler
index a017ecc..bdea505 100644 (file)
--- a/httemplate/autohandler
+++ b/httemplate/autohandler
@@ -30,3 +30,6 @@ if ( UNIVERSAL::can(dbh, 'sprintProfile') ) {
 
 s/(<\/BODY>[\s\n]*<\/HTML>[\s\n]*)$/$profile$1/i;
 </%filter>
+<%cleanup>
+   dbh->commit();
+</%cleanup>