[interchange] Check for admin status earlier so it's available to postlogin_action
Jon Jensen
interchange-cvs at icdevgroup.org
Sat Dec 24 14:58:07 UTC 2016
commit e250c1f2701eec05f1e6f6c68af919e12af1d63c
Author: Jon Jensen <jon at endpoint.com>
Date: Thu Dec 22 21:33:11 2016 -0700
Check for admin status earlier so it's available to postlogin_action
lib/Vend/UserDB.pm | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/lib/Vend/UserDB.pm b/lib/Vend/UserDB.pm
index 32cba8c..f8dfd59 100644
--- a/lib/Vend/UserDB.pm
+++ b/lib/Vend/UserDB.pm
@@ -1941,6 +1941,9 @@ sub login {
$Vend::login_table = $Vend::Session->{login_table} = $self->{DB_ID};
$Vend::username = $Vend::Session->{username} = $self->{USERNAME};
$Vend::Session->{logged_in} = 1;
+ if ( $Vend::ReadOnlyCfg->{AdminUserDB}{$self->{PROFILE}} ) {
+ $Vend::admin = 1;
+ }
if (my $macros = $self->{OPTIONS}{postlogin_action}) {
eval {
@@ -2940,9 +2943,6 @@ sub userdb {
return undef;
}
if ($status = $user->login(%options) ) {
- if( $Vend::ReadOnlyCfg->{AdminUserDB}{$user->{PROFILE}} ) {
- $Vend::admin = 1;
- }
::update_user();
}
}
More information about the interchange-cvs
mailing list