loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.169, 2006/08/16 18:02:01	version 1.170, 2006/08/16 18:06:47
Line 1288 ENDEDIT	Line 1288 ENDEDIT
$r->print(&store_portfolio_metadata($formname,$file_content,$path,	$r->print(&store_portfolio_metadata($formname,$file_content,$path,
$new_fn));	$new_fn));
unless ($env{'form.associate'}) {	unless ($env{'form.associate'}) {
$r->print(&Apache::portfolio::done("return",'/adm/portfolio'));	$r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio'));
return;	return;
}	}
} elsif ($fn =~ m\|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/groups/\w+/portfolio/\|) {	} elsif ($fn =~ m\|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/groups/\w+/portfolio/\|) {
my ($path, $new_fn) = ($fn =~ m\|/(groups/\w+/portfolio.)/([^/])$\|);	my ($path, $new_fn) = ($fn =~ m\|/(groups/\w+/portfolio.)/([^/])$\|);
$r->print(&store_portfolio_metadata($formname,$file_content,$path,$new_fn));	$r->print(&store_portfolio_metadata($formname,$file_content,$path,$new_fn));
unless ($env{'form.associate'}) {	unless ($env{'form.associate'}) {
$r->print(&Apache::portfolio::done("return",'/adm/portfolio'));	$r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio'));
return;	return;
}	}
} else {	} else {
Line 1310 ENDEDIT	Line 1310 ENDEDIT
'</font></p>');	'</font></p>');
}	}
unless ($env{'form.associate'}) {	unless ($env{'form.associate'}) {
$r->print(&Apache::portfolio::done("return",'/adm/portfolio'));	$r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio'));
return;	return;
}	}
}	}