Mailing List Archive

commit e250c1f2701eec05f1e6f6c68af919e12af1d63c
Author: Jon Jensen <jon@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();
}
}

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs