loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.34, 2002/07/03 20:54:49	version 1.36, 2002/10/25 13:59:40
Line 155 sub handler {	Line 155 sub handler {

# ---------------------------------------------------------------- Check access	# ---------------------------------------------------------------- Check access

if ($requrl!~/^\/adm\//) {	if ($requrl!~/^\/adm\|public\//) {
my $access=&Apache::lonnet::allowed('bre',$requrl);	my $access=&Apache::lonnet::allowed('bre',$requrl);
if ($access eq '1') {	if ($access eq '1') {
$ENV{'user.error.msg'}="$requrl:bre:0:0:Choose Course";	$ENV{'user.error.msg'}="$requrl:bre:0:0:Choose Course";
Line 207 sub handler {	Line 207 sub handler {
}	}

# -------------------------------------------- See if this is a public resource	# -------------------------------------------- See if this is a public resource
if (&Apache::lonnet::metadata($requrl,'copyright') eq 'public') {	if (($requrl=~/^\/public\//) \|\|
	(&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {
&Apache::lonnet::logthis('Granting public access: '.$requrl);	&Apache::lonnet::logthis('Granting public access: '.$requrl);
$ENV{'user.name'}='public';	$ENV{'user.name'}='public';
$ENV{'user.domain'}='public';	$ENV{'user.domain'}='public';