X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c781fb44ddffd751ae494781cbd239c44c844e15..7cfa7f117f02bbcab19bc265aec1469ea9949041:/SL/Auth.pm diff --git a/SL/Auth.pm b/SL/Auth.pm index ff77bfcc7..98c36d3b7 100644 --- a/SL/Auth.pm +++ b/SL/Auth.pm @@ -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