--- loncom/publisher/loncfile.pm 2009/08/28 01:08:48 1.102 +++ loncom/publisher/loncfile.pm 2009/12/02 09:53:02 1.103 @@ -9,7 +9,7 @@ # and displays a page showing the results of the action. # # -# $Id: loncfile.pm,v 1.102 2009/08/28 01:08:48 raeburn Exp $ +# $Id: loncfile.pm,v 1.103 2009/12/02 09:53:02 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -363,14 +363,14 @@ sub cleanDest { if (! -d "$newpath") { $request->print('

' .&mt("You have requested to create file in directory [_1] which doesn't exist. The requested directory path has been removed from the requested file name." - ,''.&display($newpath).'') + ,&display($newpath)) .'

'); $dest=~s|.*/||; } } if ($dest =~ /\.(\d+)\.(\w+)$/){ $request->print('

' - .&mt('Bad filename [_1]',''.&display($dest).'') + .&mt('Bad filename [_1]',&display($dest)) .'
' .&mt('[_1](name).(number).(extension)[_2] not allowed.','','') .'
' @@ -552,8 +552,9 @@ sub Rename1 { $request->print('' .'

' - .&mt($action.' [_1] to [_2]?' - ,&display($fn),&display($newfilename)) + .&mt($action.' [_1] to [_2]?', + &display($fn), + &display($newfilename)) .'

' ); &CloseForm1($request, $fn); @@ -563,8 +564,8 @@ sub Rename1 { } } else { $request->print('

' - .&mt('No such file: [_1]' - ,''.&display($fn).'') + .&mt('No such file: [_1]', + &display($fn)) .'

' ); return; @@ -625,15 +626,15 @@ sub Delete1 { } } $request->print('

' - .&mt('Delete [_1]?' - ,''.&display($fn).'') + .&mt('Delete [_1]?', + &display($fn)) .'

' ); &CloseForm1($request, $fn); } else { $request->print('

' - .&mt('No such file: [_1]' - ,''.&display($fn).'') + .&mt('No such file: [_1]', + &display($fn)) .'

' ); } @@ -689,19 +690,20 @@ sub Copy1 { $request->print('
'.&mt('Cancel').''); return; } - $request->print('' - .'

' - .&mt('Copy [_1] to [_2]?' - ,''.&display($fn).'' - ,''.&display($newfilename).'') - .'

' + $request->print( + '' + .'

' + .&mt('Copy [_1] to [_2]?', + &display($fn), + &display($newfilename)) + .'

' ); &CloseForm1($request, $fn); } else { $request->print('

' - .&mt('No such file: [_1]' - ,''.&display($fn).'') + .&mt('No such file: [_1]', + &display($fn)) .'

' ); } @@ -762,8 +764,8 @@ sub NewDir1 { $request->print('' .'

' - .&mt('Make new directory [_1]?' - ,''.&display($newfilename).'') + .&mt('Make new directory [_1]?', + &display($newfilename)) .'

' ); &CloseForm1($request, $fn); @@ -776,15 +778,15 @@ sub Decompress1 { if( -e $fn) { $request->print(''); $request->print('

' - .&mt('Decompress [_1]?' - ,''.&display($fn).'') + .&mt('Decompress [_1]?', + &display($fn)) .'

' ); &CloseForm1($request, $fn); } else { $request->print('

' - .&mt('No such file: [_1]' - ,''.&display($fn).'') + .&mt('No such file: [_1]', + &display($fn)) .'

' ); } @@ -1069,10 +1071,11 @@ sub Rename2 { unlink $tmp2; } } else { - $request->print('

' - .&mt('No such file: [_1]' - ,''.&display($oldfile).'') - .'

' + $request->print( + '

' + .&mt('No such file: [_1]', + &display($oldfile)) + .'

' ); return 0; }