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

Diff for /loncom/interface/portfolio.pm between versions 1.225 and 1.226

version 1.225, 2010/10/23 19:28:12 version 1.226, 2010/10/27 01:02:29
Line 1915  ENDSMP Line 1915  ENDSMP
   
 sub upload {  sub upload {
     my ($r,$url,$group)=@_;      my ($r,$url,$group)=@_;
     my $fname=&Apache::lonnet::clean_filename($env{'form.uploaddoc.filename'});      my $formname = 'uploaddoc';
       my $fname = &Apache::lonnet::clean_filename($env{'form.'.$formname.'.filename'});
       my ($state,$msg);
       if ($fname eq '') {
           my $msg = &mt('Invalid filename: [_1]; the name of the uploaded file did not contain any letters, '.
                         'so after eliminating special characters there was nothing left.',
                         '<span class="LC_filename">'.$env{'form.uploaddoc.filename'}.'</span>'); 
           $r->print($msg.&done('Back',$url));
           return;
       }
     my $disk_quota = &get_quota($group);      my $disk_quota = &get_quota($group);
     my $portfolio_root = &get_portfolio_root();      my $portfolio_root = &get_portfolio_root();
     my $port_path = &get_port_path();      my $port_path = &get_port_path();
     my ($uname,$udom) = &get_name_dom($group);      my ($uname,$udom) = &get_name_dom($group);
     my $getpropath = 1;      my $getpropath = 1;
     my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,$portfolio_root,$getpropath);      my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,$portfolio_root,$getpropath);
     my ($state,$msg) =       ($state,$msg) = 
         &Apache::loncommon::check_for_upload($env{'form.currentpath'},$fname,          &Apache::loncommon::check_for_upload($env{'form.currentpath'},$fname,
                              $group,'uploaddoc',$portfolio_root,                               $group,$formname,$portfolio_root,
                                              $port_path,$disk_quota,                                               $port_path,$disk_quota,
                                              $current_disk_usage,$uname,$udom);                                               $current_disk_usage,$uname,$udom);
     if ($state eq 'will_exceed_quota'      if ($state eq 'will_exceed_quota'
  || $state eq 'file_locked'   || $state eq 'file_locked') {
  || $state eq 'file_exists' ) {  
  $r->print($msg.&done('Back',$url));   $r->print($msg.&done('Back',$url));
  return;   return;
     }      }
   
     my (%allfiles,%codebase,$mode);      my (%allfiles,%codebase,$mode);
     if ($env{'form.uploaddoc.filename'} =~ m/(\.htm|\.html|\.shtml)$/i) {      if ($env{'form.'.$formname.'.filename'} =~ m/(\.htm|\.html|\.shtml)$/i) {
         if ($env{'form.parserflag'}) {          if ($env{'form.parserflag'}) {
     $mode = 'parse';      $mode = 'parse';
         }          }
     }      }
     my $result=      my $context;
  &Apache::lonnet::userfileupload('uploaddoc','',      if ($state eq 'existingfile') {
           $context = $state;
       }
       my ($result,$timestamp) =
    &Apache::lonnet::userfileupload($formname,$context,
  $port_path.$env{'form.currentpath'},   $port_path.$env{'form.currentpath'},
  $mode,\%allfiles,\%codebase);   $mode,\%allfiles,\%codebase);
     if ($result !~ m|^/uploaded/|) {      if ($state eq 'existingfile') {
           my $group_elem;
           my $rootdir = $r->dir_config('lonDaemons').'/tmp/overwrites';
           if ($group eq '') {
               $rootdir .= '/'.$env{'user.domain'}.'/'.$env{'user.name'};
           } else {
               $rootdir .= '/'.$env{'course.'.$env{'request.course.id'}.'.domain'}.
                           '/'.$env{'course.'.$env{'request.course.id'}.'.num'};
               $group_elem = '<input type="hidden" name="group" value="'.$group.'" />';
           }
           if (($result eq $rootdir.'/'.$port_path.$env{'form.currentpath'}.$fname) && ($timestamp =~ /^\d+$/)) {
               my $showfname = &HTML::Entities::encode($fname,'&<>"');
               my %lt = &Apache::lonlocal::texthash (
                                                      over => 'Overwrite existing file?',
                                                      yes  => 'Yes',
                                                      no   => 'No',
                                                      undo => 'This action can not be undone.',
                                                      conf => 'Are you sure you want to overwrite an existing file?',
                                                      cont => 'Continue',
                                                    );
               $r->print(<<"END");
   <script type="text/javascript">
   // <![CDATA[
   function confirmOverwrite() {
       if (confirm('$lt{'conf'}')) {
           document.existingfile.action.value = "process_overwrite";
       } else {
           if (document.existingfile.overwrite.length) {
               for (var i=0; i<document.existingfile.overwrite.length; i++) { 
                   if (document.existingfile.overwrite[i].value == "0") { 
                       document.existingfile.overwrite[i].checked = true;
                   }
               }
           }
           document.existingfile.action.value = "cancel_overwrite";
       }
       document.existingfile.submit();
       return;
   }
   function cancelOverwrite() {
       document.existingfile.action.value = "cancel_overwrite";
       document.existingfile.submit();
   }
   // ]]>
   </script>
   $msg
   <br /><div class="LC_warning"><form method="post" action="$url" name="existingfile">
   <span class="LC_nobreak">$lt{'over'}
   <label><input type="radio" name="overwrite" value="1" onclick="javascript:confirmOverwrite();" />
   $lt{'yes'}</label>&nbsp;
   <label><input type="radio" name="overwrite" value="0" onclick="javascript:cancelOverwrite()" />$lt{'no'}</label></span>
   <input type="hidden" name="action" value="cancel_overwrite" />
   <input type="hidden" name="currentpath" value="$env{'form.currentpath'}" />
   <input type="hidden" name="filename" value="$showfname" />
   <input type="hidden" name="fieldname" value="$env{'form.fieldname'}" />
   <input type="hidden" name="mode" value="$mode" />
   <input type="hidden" name="timestamp" value="$timestamp" />
   <input type="hidden" name="showversions" value="$env{'form.showversions'}" /> 
   $group_elem
   <br /><br />
   <input type="submit" name="process" value="$lt{'cont'}" />
   </form></div>
   END
           } else {
               $r->print('<span class="LC_error">'.&mt('An error occurred ([_1]) while trying to upload [_2].'
                         ,$result,&display_file(undef,$fname)).'</span><br />');
               $r->print(&done('Back',$url));
           }
       } elsif ($result !~ m|^/uploaded/|) {
  $r->print('<span class="LC_error">'.&mt('An error occurred ([_1]) while trying to upload [_2].'   $r->print('<span class="LC_error">'.&mt('An error occurred ([_1]) while trying to upload [_2].'
                   ,$result,&display_file()).'</span><br />');                    ,$result,&display_file(undef,$fname)).'</span><br />');
  $r->print(&done('Back',$url));   $r->print(&done('Back',$url));
     } else {      } else {
  if (%allfiles) {   if (%allfiles) {
             if (!&suppress_embed_prompt()) {              if (!&suppress_embed_prompt()) {
         my $state = <<STATE;                  &print_dependency_form($r,$url,\%allfiles,\%codebase);
               }
    } else {
       $r->print(&done(undef,$url));
    }
       }
   }
   
   sub print_dependency_form {
       my ($r,$url,$allfiles,$codebase) = @_;
       my $state = <<STATE;
     <input type="hidden" name="action"      value="upload_embedded" />      <input type="hidden" name="action"      value="upload_embedded" />
     <input type="hidden" name="currentpath" value="$env{'form.currentpath'}" />      <input type="hidden" name="currentpath" value="$env{'form.currentpath'}" />
     <input type="hidden" name="fieldname"   value="$env{'form.fieldname'}" />      <input type="hidden" name="fieldname"   value="$env{'form.fieldname'}" />
     <input type="hidden" name="mode"        value="$env{'form.mode'}" />      <input type="hidden" name="mode"        value="$env{'form.mode'}" />
 STATE  STATE
                 $r->print("<h2>".&mt("Reference Warning")."</h2>");      if ($env{'form.group'} ne '') {
                 $r->print("<p>".&mt("Completed upload of the file. This file contained references to other files. You must upload the referenced files or else the uploaded file may not work properly.")."</p>");          $state .= '<input type="hidden" name="group" value="'.$env{'form.group'}.'" />'."\n";
                 $r->print("<p>".&mt("Please select the locations from which the referenced files are to be uploaded.")."</p>");      }
         $r->print(&Apache::loncommon::ask_for_embedded_content('/adm/portfolio',$state,\%allfiles,\%codebase,      my $embedded = &Apache::loncommon::ask_for_embedded_content($url,$state,$allfiles,$codebase,
       {'error_on_invalid_names'   => 1,                                    {'error_on_invalid_names'   => 1,
        'ignore_remote_references' => 1,}));                                     'ignore_remote_references' => 1,});
         $r->print('<p>Or '.&done('Return to directory',$url).'</p>');      if ($embedded) {
           $r->print('<h2>'.&mt("Reference Warning").'</h2>'.
                     '<p>'.&mt("Completed upload of the file. This file contained references to other files. You must upload the referenced files or else the uploaded file may not work properly.").'</p>'.
                     '<p>'.&mt("Please select the locations from which the referenced files are to be uploaded.").'</p>'.
                     $embedded.
                     '<p>Or '.&done('Return to directory',$url).'</p>');
       } else {
           $r->print(&done(undef,$url));
       }
       return;
   }
   
   sub overwrite {
       my ($r,$url,$group)=@_;
       my $formname = 'existingfile';
       my $port_path = &get_port_path();
       my $fname = &Apache::lonnet::clean_filename($env{'form.filename'});
       my (%allfiles,%codebase,$mode);
       $mode = $env{'form.mode'};
       if ($mode eq 'parse') {
           if ($fname !~ /\.s?html?$/i) {
               undef($mode);
           }
       }
       if ($fname eq '') {
           my $msg = &mt('Invalid filename: [_1]; the name of the uploaded file did not contain any letters, '.
                         'so after eliminating special characters there was nothing left.',
                         '<span class="LC_filename">'.$env{'form.filename'}.'</span>');
           $r->print($msg.&done('Back',$url));
           return;
       }
       $env{'form.'.$formname.'.filename'} = $fname;
       my $result=
           &Apache::lonnet::userfileupload($formname,'overwrite',
                                           $port_path.$env{'form.currentpath'},
                                           $mode,\%allfiles,\%codebase);
       if ($result !~ m|^/uploaded/|) {
           $r->print('<span class="LC_error">'.&mt('An error occurred ([_1]) while trying to overwrite [_2].'
                     ,$result,&display_file(undef,$fname)).'</span><br />');
           $r->print(&done('Back',$url));
       } else {
           if (%allfiles) {
               if (!&suppress_embed_prompt()) {
                   foreach my $file (keys(%allfiles)) {
                       print STDERR "got $file\n";
                   }
                   &print_dependency_form($r,$url,\%allfiles,\%codebase);
               } else {
                   $r->print(&done(undef,$url));
             }              }
  } else {          } else {
     $r->print(&done(undef,$url));              $r->print(&done(undef,$url));
  }          }
     }      }
       return;
 }  }
   
 sub lock_info {  sub lock_info {
Line 2165  sub missing_priv { Line 2304  sub missing_priv {
     }      }
     $rtnlink .= '">'.&mt('Return to directory').'</a>';      $rtnlink .= '">'.&mt('Return to directory').'</a>';
     $r->print('<br />'.$rtnlink);      $r->print('<br />'.$rtnlink);
     $r->print(&Apache::loncommon::end_page());  
     return;      return;
 }  }
   
Line 2337  sub handler { Line 2475  sub handler {
          $r->print(&Apache::loncommon::end_page());           $r->print(&Apache::loncommon::end_page());
          return OK;           return OK;
     }      }
  if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){      if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){
        $r->print('<span class="LC_error">');      $r->print('<span class="LC_error">');
        $r->print(&mt('No file was selected to upload.').' ');      $r->print(&mt('No file was selected to upload.').' ');
     $r->print(&mt('To upload a file, click <strong>Browse...</strong> and select a file, then click <strong>Upload</strong>.'));   $r->print(&mt('To upload a file, click <strong>Browse...</strong> and select a file, then click <strong>Upload</strong>.'));
     $r->print('</span>');   $r->print('</span>');
  }      }
     if ($env{'form.meta'}) {      if ($env{'form.meta'}) {
         &open_form($r,$url);          &open_form($r,$url);
         $r->print(&mt('Edit the meta data').'<br />');          $r->print(&mt('Edit the meta data').'<br />');
         &close_form($r,$url);          &close_form($r,$url);
     }      }
     if ($env{'form.store'}) {  
     }  
   
     if ($env{'form.uploaddoc.filename'}) {      if ($env{'form.uploaddoc.filename'}) {
         if ($can_upload) {          if ($can_upload) {
     &upload($r,$url,$group);      &upload($r,$url,$group);
         } else {          } else {
             &missing_priv($r,$url,'upload');              &missing_priv($r,$url,'upload');
         }          }
       } elsif ($env{'form.action'} eq 'process_overwrite') {
           if ($can_upload) {
               &overwrite($r,$url,$group);
           } else {
               &missing_priv($r,$url,'existingfile');
           }
     } elsif ($env{'form.action'} eq 'upload_embedded') {      } elsif ($env{'form.action'} eq 'upload_embedded') {
  if ($can_upload) {   if ($can_upload) {
             my $disk_quota = &get_quota($group);              my $disk_quota = &get_quota($group);
Line 2436  sub handler { Line 2577  sub handler {
     } elsif ($env{'form.lockinfo'}) {      } elsif ($env{'form.lockinfo'}) {
         &lock_info($r,$url,$group);          &lock_info($r,$url,$group);
     } else {      } else {
           if ($env{'form.action'} eq 'cancel_overwrite') {
               if ($can_upload) {
                   my $formname = 'existingfile';
                   my $fname = &Apache::lonnet::clean_filename($env{'form.filename'});
                   $env{'form.'.$formname.'.filename'} = $fname;
                   &Apache::lonnet::userfileupload($formname,'canceloverwrite',
                                                   $port_path.$env{'form.currentpath'});
               }
           }
  my $current_path='/';   my $current_path='/';
  if ($env{'form.currentpath'}) {   if ($env{'form.currentpath'}) {
     $current_path = $env{'form.currentpath'};      $current_path = $env{'form.currentpath'};
Line 2468  sub handler { Line 2618  sub handler {
  $can_upload,$group);   $can_upload,$group);
         &display_directory($r,$url,$current_path,$is_empty,\@dir_list,$group,          &display_directory($r,$url,$current_path,$is_empty,\@dir_list,$group,
                            $can_upload,$can_modify,$can_delete,$can_setacl);                             $can_upload,$can_modify,$can_delete,$can_setacl);
  $r->print(&Apache::loncommon::end_page());  
     }      }
       $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
   
Removed from v.1.225  
changed lines
  Added in v.1.226

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