--- loncom/interface/portfolio.pm 2012/06/08 12:25:59 1.235 +++ loncom/interface/portfolio.pm 2013/04/11 14:59:49 1.240 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.235 2012/06/08 12:25:59 raeburn Exp $ +# $Id: portfolio.pm,v 1.240 2013/04/11 14:59:49 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -63,7 +63,7 @@ sub group_form_data { return $output; } -# receives a file name and path stub from username/userfiles/portfolio/ +# receives a filename and path stub from username/userfiles/portfolio/ # returns an anchor tag consisting encoding filename and currentpath sub make_anchor { my ($url, $anchor_fields, $inner_text) = @_; @@ -650,7 +650,7 @@ sub done { 'symb' => $env{'form.symb'}, 'mode' => $env{'form.mode'} ); - my $result = '
'.&make_anchor($url,\%anchor_fields,&mt($message)).'
'; return $result; } @@ -670,7 +670,7 @@ sub delete { $r->print(''.&mt('Delete [_1]?',&display_file(undef,\@files)).'
'); &close_form($r,$url); } else { - $r->print("No file was checked to delete.'.&mt('No file was checked to delete.').'
'); $r->print(&done(undef,$url)); } } @@ -809,7 +809,7 @@ sub rename_confirmed { return; } if ($filenewname ne $env{'form.filenewname'}) { - $r->print(&mt("The new file name was changed from:'.&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.").'
'. + $r->print(''.&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.'). + '
'. ''.&mt("Please select the locations from which the referenced files are to be uploaded.").'
'. $embedded. ''.&mt('or').'
'.&done('Return to directory',$url)); @@ -2376,12 +2379,13 @@ sub get_port_path { sub missing_priv { my ($r,$url,$priv) = @_; - my $longtext = { + my %longtext = + &Apache::lonlocal::texthash( upload => 'upload files', delete => 'delete files', rename => 'rename files', setacl => 'set access controls for files', - }; + ); my $escpath = &HTML::Entities::encode($env{'form.currentpath'},'&<>"'); my $rtnlink = 'print(' '.&mt("in the group's group portfolio.")); $rtnlink .= &group_args() } else { - $r->print(&mt('in this portfolio.')); + $r->print(' '.&mt('in this portfolio.')); } $rtnlink .= '">'.&mt('Return to directory').''; $r->print('