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

Diff for /loncom/interface/portfolio.pm between versions 1.180 and 1.181

version 1.180, 2007/06/11 17:13:30 version 1.181, 2007/06/11 20:56:38
Line 1818  sub upload { Line 1818  sub upload {
  $port_path.$env{'form.currentpath'},   $port_path.$env{'form.currentpath'},
  $mode,\%allfiles,\%codebase);   $mode,\%allfiles,\%codebase);
     if ($result !~ m|^/uploaded/|) {      if ($result !~ m|^/uploaded/|) {
  $r->print('<span class="LC_error">'.'An errror occured ('.$result.   $r->print('<span class="LC_error">'.'An error occured ('.$result.
   ') while trying to upload '.&display_file().'</span><br />');    ') while trying to upload '.&display_file().'</span><br />');
  $r->print(&done('Back',$url));   $r->print(&done('Back',$url));
     } else {      } else {
Line 1870  sub upload_embedded { Line 1870  sub upload_embedded {
     &Apache::lonnet::userfileupload('embedded_item_'.$i,'',      &Apache::lonnet::userfileupload('embedded_item_'.$i,'',
     $port_path.$path);      $port_path.$path);
  if ($result !~ m|^/uploaded/|) {   if ($result !~ m|^/uploaded/|) {
     $r->print('<span class="LC_error">'.'An errror occured ('.$result.      $r->print('<span class="LC_error">'.'An error occured ('.$result.
       ') while trying to upload '.&display_file($path,$fname).'</span><br />');        ') while trying to upload '.&display_file($path,$fname).'</span><br />');
     next;      next;
  } else {   } else {
Line 1953  sub createdir { Line 1953  sub createdir {
         my $result=&Apache::lonnet::mkdiruserfile($uname,$udom,          my $result=&Apache::lonnet::mkdiruserfile($uname,$udom,
          $port_path.$env{'form.currentpath'}.$newdir);           $port_path.$env{'form.currentpath'}.$newdir);
         if ($result ne 'ok') {          if ($result ne 'ok') {
        $r->print('<span class="LC_error">'.'An errror occured ('.$result.         $r->print('<span class="LC_error">'.'An error occured ('.$result.
           ') while trying to create a new directory '.&display_file().'</span><br />');            ') while trying to create a new directory '.&display_file().'</span><br />');
         }          }
     }      }
Removed from v.1.180  
changed lines
  Added in v.1.181

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