loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.7, 2006/07/17 19:49:14	version 1.8, 2006/07/21 18:52:32
Line 40 use Apache::lonacc();	Line 40 use Apache::lonacc();

sub handler {	sub handler {
my $r = shift;	my $r = shift;

my $requrl=$r->uri;	my $requrl=$r->uri;
my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));	my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
my $lonid=$cookies{'lonID'};	my $lonid=$cookies{'lonID'};
Line 60 sub handler {	Line 61 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 (&Apache::lonacc::is_portfolio_url($requrl)) {	} elsif (&Apache::lonnet::is_portfolio_url($requrl)) {
my (undef,$udom,$unum,$file_name,$group) =	my (undef,$udom,$unum,$file_name,$group) =
&Apache::lonacc::parse_portfolio_url($requrl);	&Apache::lonnet::parse_portfolio_url($requrl);
my $access = &process_portfolio($udom,$unum,$file_name,$group);	my $access = &process_portfolio($udom,$unum,$file_name,$group);
if ($access) {	if ($access) {
&process_public($r,$requrl,$access);	&process_public($r,$requrl,$access);
Line 70 sub handler {	Line 71 sub handler {
}	}
} elsif ($requrl eq '/adm/restrictedaccess') {	} elsif ($requrl eq '/adm/restrictedaccess') {
&process_public($r,$requrl);	&process_public($r,$requrl);
	return OK;
}	}
return DECLINED;	return DECLINED;
}	}