X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/22c021254b5dcf3367d95d48cea3e1f7412ef369..f15528902d0fc633e86d08e1da7c0753fa076cc7:/SL/Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 095188306..3b14def5d 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -36,6 +36,15 @@ sub new {
   return $self;
 }
 
+sub reset {
+  my ($self, %params) = @_;
+
+  $self->{SESSION}          = { };
+  $self->{FULL_RIGHTS}      = { };
+  $self->{RIGHTS}           = { };
+  $self->{unique_counter}   = 0;
+}
+
 sub get_user_dbh {
   my ($self, $login) = @_;
   my %user = $self->read_user($login);
@@ -971,7 +980,7 @@ sub delete_group {
   my $self = shift;
   my $id   = shift;
 
-  my $form = $main::from;
+  my $form = $main::form;
 
   my $dbh  = $self->dbconnect();
   $dbh->begin_work;