Nach Request alle Datenbankhandle rollbacken

An diversen Stellen wird in Legacycode eine Transaktion manuell
erstellt. Wenn in dieser Transaktion eine Exception geworfen wird,
beendet das den Requst ohne die Handle aufzuräumen in der Annahme, dass
die disconnected werden.

Deshalb nach jedem Request einmal alle Handle rollbacken, ohne sie zu
disconnecten.

diff --git a/SL/DBConnect/Cache.pm b/SL/DBConnect/Cache.pm
index 262c113..e45965f 100644 (file)
--- a/SL/DBConnect/Cache.pm
+++ b/SL/DBConnect/Cache.pm
@@ -35,6 +35,10 @@ sub reset {
   $dbh;
 }
 
+sub reset_all {
+  $_->rollback for values %cache;
+}
+
 sub clear {
   %cache = ();
 }

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index e8725b5..77074cc 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -335,6 +335,8 @@ sub handle_request {
   $::form     = undef;
   $::myconfig = ();
   $::request  = undef;
+
+  SL::DBConnect::Cache->reset_all;
   Form::disconnect_standard_dbh;
 
   $self->_watch_for_changed_files;