loncom/auth/restrictedaccess.pm - diff

Return to restrictedaccess.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.2, 2006/07/14 21:38:26	version 1.3, 2006/07/17 19:49:14
Line 102 function verify() {	Line 102 function verify() {

sub check_pass {	sub check_pass {
my ($r,$origurl) = @_;	my ($r,$origurl) = @_;
my ($udom,$unum,$group,$file_name,$result,$end);	my (undef,$udom,$unum,$file_name,$group) =
if ($origurl =~ m-/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$-) {	&Apache::lonacc::parse_portfolio_url($origurl);
$udom = $1;
$unum = $2;
$file_name = $3;
} elsif ($origurl =~ m-/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$-) {
$udom = $1;
$unum = $2;
$group = $3;
$file_name = $3.'/'.$4;
}
my $curr_perms = &Apache::lonnet::get_portfile_permissions($udom,$unum);	my $curr_perms = &Apache::lonnet::get_portfile_permissions($udom,$unum);
my %acc_controls = &Apache::lonnet::get_access_controls($curr_perms,	my %acc_controls = &Apache::lonnet::get_access_controls($curr_perms,
$group,$file_name);	$group,$file_name);
my $access_hash = $acc_controls{$file_name};	my $access_hash = $acc_controls{$file_name};

	my ($result,$end);
foreach my $key (sort(keys(%{$access_hash}))) {	foreach my $key (sort(keys(%{$access_hash}))) {
if ($key =~ /^[^:]+:guest_(\d+)/) {	if ($key =~ /^[^:]+:guest_(\d+)/) {
$end = $1;	$end = $1;