loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.3, 2006/06/16 22:37:29	version 1.4, 2006/06/26 20:23:33
Line 56 sub handler {	Line 56 sub handler {
}	}
}	}
if ($requrl=~m\|^/public/\|	if ($requrl=~m\|^/public/\|
	\|\| $requrl=~m\|^/adm/help/.*\.hlp$\|
\|\| (&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 ($requrl =~ m\|/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$\|) {
if (&process_portfolio($1,$2,$3)) {	if (&process_portfolio($1,$2,$3)) {
&process_public($r,$requrl);	&process_public($r,$requrl);
return OK;	return OK;
}	}
} elsif ($requrl =~ m#/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$#) {	} elsif ($requrl =~ m\|/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$\|) {
if (&process_portfolio($1,$2,$3.'/'.$4,$3)) {	if (&process_portfolio($1,$2,$3.'/'.$4,$3)) {
&process_public($r,$requrl);	&process_public($r,$requrl);
return OK;	return OK;