loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.143, 2006/08/02 16:56:30	version 1.144, 2006/08/04 20:41:32
Line 1476 sub upload {	Line 1476 sub upload {
}	}
}	}
$fname=&Apache::lonnet::clean_filename($fname);	$fname=&Apache::lonnet::clean_filename($fname);

my $portfolio_root=&get_portfolio_root();	my $portfolio_root=&get_portfolio_root();
my ($uname,$udom) = &get_name_dom();	my ($uname,$udom) = &get_name_dom();
my $port_path = &get_port_path();	my $port_path = &get_port_path();
Line 1596 sub createdir {	Line 1595 sub createdir {
}	}

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