diff options
author | ivan <ivan> | 2006-06-19 12:15:32 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-06-19 12:15:32 +0000 |
commit | 1ed201c9f897f768e3ec8b9e7aee0fcb8b2bfed1 (patch) | |
tree | 0872fa3e642ef98eb460d905a00530369d55edd3 /FS/FS/CurrentUser.pm | |
parent | b2ff1141cfaacfce2fd9c6e5b78fdae2bae95406 (diff) |
ACL bootstrapping
Diffstat (limited to 'FS/FS/CurrentUser.pm')
-rw-r--r-- | FS/FS/CurrentUser.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/FS/FS/CurrentUser.pm b/FS/FS/CurrentUser.pm index 13d3416..37ed359 100644 --- a/FS/FS/CurrentUser.pm +++ b/FS/FS/CurrentUser.pm @@ -1,11 +1,13 @@ package FS::CurrentUser; -use vars qw($CurrentUser); +use vars qw($CurrentUser $upgrade_hack); #not at compile-time, circular dependancey causes trouble #use FS::Record qw(qsearchs); #use FS::access_user; +$upgrade_hack = 0; + =head1 NAME FS::CurrentUser - Package representing the current user @@ -19,8 +21,9 @@ FS::CurrentUser - Package representing the current user sub load_user { my( $class, $user ) = @_; #, $pass - #XXX remove me at some point - return "" if $user =~ /^fs_(queue|selfservice)$/; + return "" if $upgrade_hack; + + #return "" if $user =~ /^fs_(queue|selfservice)$/; #not the best thing in the world... eval "use FS::Record qw(qsearchs);"; |