X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9e0b2baff3315e53a0e0aa9e66cae85e474def7a..7cfa7f117f02bbcab19bc265aec1469ea9949041:/SL/Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 77ea226ae..98c36d3b7 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -615,7 +615,7 @@ sub save_session {
 
   my $dbh          = $provided_dbh || $self->dbconnect(1);
 
-   $::lxdebug->leave_sub && return unless $dbh;
+  $::lxdebug->leave_sub && return unless $dbh && $session_id;
 
   $dbh->begin_work unless $provided_dbh;
 
@@ -1117,7 +1117,7 @@ sub load_rights_for_user {
   my $dbh   = $self->dbconnect;
   my ($query, $sth, $row, $rights);
 
-  $rights = { map { $rights->{$_} = 0 } all_rights() };
+  $rights = { map { $_ => 0 } all_rights() };
 
   $query =
     qq|SELECT gr."right", gr.granted