loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.162, 2006/08/24 18:28:43	version 1.163, 2006/09/19 14:02:42
Line 1688 sub createdir {	Line 1688 sub createdir {
}	}

sub get_portfolio_root {	sub get_portfolio_root {
my ($udom,$uname) = @_;	my ($udom,$uname,$group) = @_;
if (!(defined($udom)) \|\| !(defined($uname))) {	if (!(defined($udom)) \|\| !(defined($uname))) {
($uname,$udom) = &get_name_dom();	($uname,$udom) = &get_name_dom();
}	}
my $path;	my $path = '/userfiles/portfolio';
if (defined($env{'form.group'})) {	if (!defined($group)) {
$path = '/userfiles/groups/'.$env{'form.group'}.'/portfolio';	if (defined($env{'form.group'})) {
} else {	$group = $env{'form.group'};
$path = '/userfiles/portfolio';	}
}	}
	if (defined($group)) {
	$path = '/userfiles/groups/'.$group.'/portfolio';
	}
return (&Apache::loncommon::propath($udom,$uname).$path);	return (&Apache::loncommon::propath($udom,$uname).$path);
}	}