fix crash when attempting login as user w/o 'catalogue' permission

[srvgit] / C4 / Auth.pm

diff --git a/C4/Auth.pm b/C4/Auth.pm
index ec0fe59..5c69ab3 100755 (executable)
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -1341,7 +1341,11 @@ sub haspermission {
                 return 0 unless ( $flags->{$module} == 1 or ref($flags->{$module}) );
             } else {
                 return 0 unless ( $flags->{$module} == 1 or
-                                    ( exists $flags->{$module}->{$subperm} and $flags->{$module}->{$subperm} == 1 ) );
+                                    ( ref($flags->{$module}) and 
+                                      exists $flags->{$module}->{$subperm} and 
+                                      $flags->{$module}->{$subperm} == 1 
+                                    ) 
+                                );
             }
         } else {
             return 0 unless ( $flags->{$module} );