loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.6, 2006/07/14 21:39:16	version 1.7, 2006/07/17 19:49:14
Line 60 sub handler {	Line 60 sub handler {
\|\| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {	\|\| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {
&process_public($r,$requrl);	&process_public($r,$requrl);
return OK;	return OK;
} elsif ($requrl =~ m\|/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$\|) {	} elsif (&Apache::lonacc::is_portfolio_url($requrl)) {
my $access = &process_portfolio($1,$2,$3);	my (undef,$udom,$unum,$file_name,$group) =
	&Apache::lonacc::parse_portfolio_url($requrl);
	my $access = &process_portfolio($udom,$unum,$file_name,$group);
if ($access) {	if ($access) {
&process_public($r,$requrl,$access);	&process_public($r,$requrl,$access);
return OK;	return OK;
}	}
} elsif ($requrl =~ m\|/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$\|) {
my $access = &process_portfolio($1,$2,$3.'/'.$4,$3);
if ($access) {
&process_public($r,$requrl,$access);
return OK;
}
} elsif ($requrl eq '/adm/restrictedaccess') {	} elsif ($requrl eq '/adm/restrictedaccess') {
&process_public($r,$requrl);	&process_public($r,$requrl);
}	}