loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.545, 2004/09/21 22:38:10	version 1.546, 2004/09/22 20:43:20
Line 2785 sub allowed {	Line 2785 sub allowed {
}	}

# Free bre access to user's own portfolio contents	# Free bre access to user's own portfolio contents
$uri=~m:([^/]+)/([^/]+)/([^/]+)/([^/]+)/:;	my ($space,$domain,$name,$dir)=split('/',$uri);
if (('uploaded' eq $1)&&($ENV{'user.name'} eq $3) && ($ENV{'user.domain'} eq $2) && ('portfolio' eq $4)) {	if (('uploaded' eq $space) && ($ENV{'user.name'} eq $name) &&
	($ENV{'user.domain'} eq $domain) && ('portfolio' eq $dir)) {
return 'F';	return 'F';
}	}