--- loncom/interface/lonmeta.pm 2006/05/31 17:44:14 1.158 +++ loncom/interface/lonmeta.pm 2006/06/23 00:28:43 1.159 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.158 2006/05/31 17:44:14 www Exp $ +# $Id: lonmeta.pm,v 1.159 2006/06/23 00:28:43 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1247,22 +1247,13 @@ ENDEDIT '<>&"'). ''.$tag.'>'; } - if ($fn =~ m|/portfolio/|) { + if ($fn =~ m|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/portfolio/|) { my ($path, $new_fn) = ($fn =~ m|/(portfolio.*)/([^/]*)$|); - $env{'form.'.$formname}=$file_content."\n"; - $env{'form.'.$formname.'.filename'}=$new_fn; - my $result =&Apache::lonnet::userfileupload($formname,'', - $path); - - if ($result =~ /(error|notfound)/) { - $r->print('
'. - &mt('Could not write metadata').', '. - &mt('FAIL').'
'); - } else { - $r->print(''.&mt('Wrote Metadata'). - ' '.&Apache::lonlocal::locallocaltime(time). - '
'); - } + $r->print(&store_portfolio_metadata($formname,$file_content,$path, + $new_fn)); + } elsif ($fn =~ m|^$Apache::lonnet::perlvar{'lonDocRoot'}/userfiles/groups/\w+/portfolio/|) { + 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))) { $r->print(''.
@@ -1282,6 +1273,9 @@ ENDEDIT
if ($file_type eq 'portfolio') {
my ($port_path,$group) = &get_port_path_and_group($uri);
+ if ($group) {
+ $r->print('');
+ }
$r->print('