[BACK]Return to lonmeta.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.172 and 1.173

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;
                 }                    }  
Removed from v.1.172  
changed lines
  Added in v.1.173

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>