loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.816, 2006/12/28 19:59:48	version 1.816.2.2, 2007/01/03 04:19:31
Line 3546 sub is_portfolio_url {	Line 3546 sub is_portfolio_url {

sub is_portfolio_file {	sub is_portfolio_file {
my ($file) = @_;	my ($file) = @_;
if (($file =~ /^portfolio/) \|\| ($file =~ /^groups\/\w\/portfolio/)) {	if (($file =~ /^portfolio/) \|\| ($file =~ /^groups\/\w+\/portfolio/)) {
return 1;	return 1;
}	}
return;	return;
Line 3558 sub is_portfolio_file {	Line 3558 sub is_portfolio_file {
sub customaccess {	sub customaccess {
my ($priv,$uri)=@_;	my ($priv,$uri)=@_;
my ($urole,$urealm)=split(/\./,$env{'request.role'},2);	my ($urole,$urealm)=split(/\./,$env{'request.role'},2);
my ($udom,$ucrs,$usec)=split(/\//,$urealm);	my (undef,$udom,$ucrs,$usec)=split(/\//,$urealm);
$udom = &LONCAPA::clean_domain($udom);	$udom = &LONCAPA::clean_domain($udom);
$ucrs = &LONCAPA::clean_username($ucrs);	$ucrs = &LONCAPA::clean_username($ucrs);
my $access=0;	my $access=0;