version 1.172, 2006/08/21 19:26:27
|
version 1.173, 2006/08/25 23:05:52
|
Line 1291 ENDEDIT
|
Line 1291 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)); |
unless ($env{'form.associate'}) { |
if (! $env{'form.associate'}) { |
$r->print(&Apache::portfolio::done("Return to Portfolio",'/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/|) { |
} else { |
my ($path, $new_fn) = ($fn =~ m|/(groups/\w+/portfolio.*)/([^/]*)$|); |
|
$r->print(&store_portfolio_metadata($formname,$file_content,$path,$new_fn)); |
|
unless ($env{'form.associate'}) { |
|
$r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio')); |
|
return; |
|
} |
|
} 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').', '. |
Line 1317 ENDEDIT
|
Line 1315 ENDEDIT
|
' '.&Apache::lonlocal::locallocaltime(time). |
' '.&Apache::lonlocal::locallocaltime(time). |
'</font></p>'); |
'</font></p>'); |
} |
} |
unless ($env{'form.associate'}) { |
if (! $env{'form.associate'}) { |
$r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio')); |
$r->print(&Apache::portfolio::done("Return to Portfolio",'/adm/portfolio')); |
return; |
return; |
} |
} |