loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.310, 2015/03/01 22:21:00	version 1.311, 2015/04/13 18:32:43
Line 657 ENDENTERKEY	Line 657 ENDENTERKEY
}	}
}	}
# Are we allowed to look at the first resource?	# Are we allowed to look at the first resource?
	my $access;
if ($furl =~ m{^(/adm/wrapper\|)/ext/}) {	if ($furl =~ m{^(/adm/wrapper\|)/ext/}) {
# If it's an external resource,	# If it's an external resource,
# strip off the symb argument and possible query	# strip off the symb argument and possible query
Line 664 ENDENTERKEY	Line 665 ENDENTERKEY
# Unencode $symb	# Unencode $symb
$symb = &unescape($symb);	$symb = &unescape($symb);
# Then check for permission	# Then check for permission
if (!&Apache::lonnet::allowed('bre',$exturl,$symb)) {	$access = &Apache::lonnet::allowed('bre',$exturl,$symb);
$furl = &Apache::lonpageflip::first_accessible_resource();
}
# For other resources just check for permission	# For other resources just check for permission
} elsif (!&Apache::lonnet::allowed('bre',$furl)) {	} else {
	$access = &Apache::lonnet::allowed('bre',$furl);
	}
	if (!$access) {
$furl = &Apache::lonpageflip::first_accessible_resource();	$furl = &Apache::lonpageflip::first_accessible_resource();
	} elsif ($access eq 'B') {
	$furl = '/adm/navmaps?showOnlyHomework=1';
}	}

$msg = &mt('Entering [_1] ...',	$msg = &mt('Entering [_1] ...',
$env{'course.'.$cdom.'_'.$cnum.'.description'});	$env{'course.'.$cdom.'_'.$cnum.'.description'});
&redirect_user($r, &mt('Entering [_1]',	&redirect_user($r, &mt('Entering [_1]',