X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/21794e2bd0fbd04915f28eee0ef533b6073fcf50..e24e657067548d45e6a23ff56ee4c3ee69b5687b:/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 = ();
 }