X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/96f2dabc7d64e28c74358fb5745a6c68b18527f3..9c563fc70a2907684cc25a0b86b23dce842ce543:/SL/DBConnect/Cache.pm

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