X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/21794e2bd0fbd04915f28eee0ef533b6073fcf50..4faf9504bb12c69c31d7eff53ca8b350ad6893e7:/SL/DBConnect/Cache.pm

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