loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.168.2.2, 2006/08/28 00:14:19	version 1.168.2.3, 2006/08/28 00:19:38
Line 1288 ENDEDIT	Line 1288 ENDEDIT
'<>&"').	'<>&"').
'</'.$tag.'>';	'</'.$tag.'>';
}	}
if ($fn =~ m\|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/portfolio/\|) {	if ($fn =~ m\|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles\|) {
my ($path, $new_fn) = ($fn =~ m\|/(portfolio.)/([^/])$\|);	my ($path, $new_fn);
	if ($fn =~ m\|\w+/groups/\w+/portfolio/\|) {
	($path, $new_fn) = ($fn =~ m\|/(groups/\w+/portfolio.)/([^/])$\|);
	} else {
	($path, $new_fn) = ($fn =~ m\|/(portfolio.)/([^/])$\|);
	}
$r->print(&store_portfolio_metadata($formname,$file_content,$path,	$r->print(&store_portfolio_metadata($formname,$file_content,$path,
$new_fn));	$new_fn));
} elsif ($fn =~ m\|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/groups/\w+/portfolio/\|) {	} else {
my ($path, $new_fn) = ($fn =~ m\|/(groups/\w+/portfolio.)/([^/])$\|);
$r->print(&store_portfolio_metadata($formname,$file_content,$path,$new_fn));
} else {
if (! ($mfh=Apache::File->new('>'.$fn))) {	if (! ($mfh=Apache::File->new('>'.$fn))) {
$r->print('<p><font color="red">'.	$r->print('<p><font color="red">'.
&mt('Could not write metadata').', '.	&mt('Could not write metadata').', '.