loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.81, 2006/06/22 13:20:46	version 1.83, 2006/06/30 04:23:33
Line 414 sub handler {	Line 414 sub handler {
&Apache::lonnet::countacc($requrl);	&Apache::lonnet::countacc($requrl);
$requrl=~/\.(\w+)$/;	$requrl=~/\.(\w+)$/;
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') \|\|	if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') \|\|
($requrl=~/^\/adm\/.*\/(aboutme\|navmaps\|smppg\|bulletinboard)(\?\|$)/) \|\|	($requrl=~/^\/adm\/.*\/(aboutme\|navmaps\|smppg\|grppg\|bulletinboard)(\?\|$)/) \|\|
($requrl=~/^\/adm\/wrapper\//) \|\|	($requrl=~/^\/adm\/wrapper\//) \|\|
($requrl=~m\|^/adm/coursedocs/showdoc/\|) \|\|	($requrl=~m\|^/adm/coursedocs/showdoc/\|) \|\|
($requrl=~m\|\.problem/smpedit$\|) \|\|	($requrl=~m\|\.problem/smpedit$\|) \|\|
Line 504 sub handler {	Line 504 sub handler {
#FIXME need to cause generation of an intermediate page	#FIXME need to cause generation of an intermediate page
}	}
} elsif ($requrl =~ m\|/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$\|) {	} elsif ($requrl =~ m\|/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$\|) {
my $result = &portfolio_access($1,$2,$4.'/'.$3,$3);	my $result = &portfolio_access($1,$2,$3.'/'.$4,$3);
if ($result eq 'ok') {	if ($result eq 'ok') {
return OK;	return OK;
} elsif ($result =~ /^guest:(\w+)$/) {	} elsif ($result =~ /^guest:(\w+)$/) {