[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