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

Diff for /loncom/interface/portfolio.pm between versions 1.237 and 1.239

version 1.237, 2012/10/04 13:41:10 version 1.239, 2012/12/17 06:29:02
Line 2119  sub print_dependency_form { Line 2119  sub print_dependency_form {
             $r->print('<h3>'.&mt("Reference Information").'</h3>');              $r->print('<h3>'.&mt("Reference Information").'</h3>');
         }          }
         if ($num) {          if ($num) {
             $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>'.              $r->print('<p>'.&mt('Completed upload of the file.').' '.
                         &mt('This file contained references to other files.').' '.
                         &mt('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>'.                        '<p>'.&mt("Please select the locations from which the referenced files are to be uploaded.").'</p>'.
                        $embedded.                         $embedded.
                        '<p>'.&mt('or').'</p>'.&done('Return to directory',$url));                         '<p>'.&mt('or').'</p>'.&done('Return to directory',$url));
Line 2376  sub get_port_path { Line 2379  sub get_port_path {
   
 sub missing_priv {  sub missing_priv {
     my ($r,$url,$priv) = @_;      my ($r,$url,$priv) = @_;
     my $longtext = {      my %longtext = 
           &Apache::lonlocal::texthash(
                       upload => 'upload files',                        upload => 'upload files',
                       delete => 'delete files',                        delete => 'delete files',
                       rename => 'rename files',                        rename => 'rename files',
                       setacl => 'set access controls for files',                        setacl => 'set access controls for files',
                    };      );
     my $escpath = &HTML::Entities::encode($env{'form.currentpath'},'&<>"');      my $escpath = &HTML::Entities::encode($env{'form.currentpath'},'&<>"');
     my $rtnlink = '<a href="'.$url;      my $rtnlink = '<a href="'.$url;
     if ($url =~ /\?/) {      if ($url =~ /\?/) {
Line 2391  sub missing_priv { Line 2395  sub missing_priv {
     }      }
     $rtnlink .= 'currentpath='.$escpath;      $rtnlink .= 'currentpath='.$escpath;
     $r->print('<h3>'.&mt('Action disallowed').'</h3>');      $r->print('<h3>'.&mt('Action disallowed').'</h3>');
     $r->print(&mt('You do not have sufficient privileges to [_1] ',      $r->print(&mt('You do not have sufficient privileges to [_1]',
                   $longtext->{$priv}));                    $longtext{$priv}));
     if (defined($env{'form.group'})) {      if (defined($env{'form.group'})) {
         $r->print(&mt("in the group's group portfolio."));          $r->print(' '.&mt("in the group's group portfolio."));
         $rtnlink .= &group_args()          $rtnlink .= &group_args()
     } else {      } else {
         $r->print(&mt('in this portfolio.'));          $r->print(' '.&mt('in this portfolio.'));
     }      }
     $rtnlink .= '">'.&mt('Return to directory').'</a>';      $rtnlink .= '">'.&mt('Return to directory').'</a>';
     $r->print('<br />'.$rtnlink);      $r->print('<br />'.$rtnlink);
Removed from v.1.237  
changed lines
  Added in v.1.239

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