diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-21 00:18:38 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-21 00:18:38 +0000 |
commit | 6a2b68a7a5ecd97a1e1ace6aaa5fdf7e9508028e (patch) | |
tree | 247ca4b1d8fa925142d2d2c6663c9ed8e7c1473b /LedgerSMB/User.pm | |
parent | c89cf3316e3296067eae5989d403c4a4015a6955 (diff) |
added with no-user handling in User.pm
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@965 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/User.pm')
-rwxr-xr-x | LedgerSMB/User.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index 0d918640..3cf3e0e5 100755 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -136,6 +136,9 @@ sub fetch_config { $fetchUserPrefs->execute($login); my $userHashRef = $fetchUserPrefs->fetchrow_hashref; + if (!$userHashRef) { + &error($self, "Access Denied"); + } while ( my ($key, $value) = each(%{$userHashRef}) ) { $myconfig{$key} = $value; |