+ if ( $session && $session->{'Current_User'} ) {
+ warn "$me access_right: using existing session and CurrentUser: \n".
+ Dumper($session->{'CurrentUser'})
+ if $DEBUG;
+ } else {
+ warn "$me access_right: loading session and CurrentUser\n" if $DEBUG > 1;
+ $self->_web_external_auth($session);
+ }
+
+ #warn "$me access_right: CurrentUser ". $session->{'CurrentUser'}. ":\n".
+ # ( $DEBUG>1 ? Dumper($session->{'CurrentUser'}) : '' )
+ # if $DEBUG > 1;