--- loncom/interface/lonsource.pm 2009/04/04 21:47:41 1.22
+++ loncom/interface/lonsource.pm 2009/06/09 13:50:03 1.23
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
-# Souce Code handler
+# Source Code handler
#
-# $Id: lonsource.pm,v 1.22 2009/04/04 21:47:41 bisitz Exp $
+# $Id: lonsource.pm,v 1.23 2009/06/09 13:50:03 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -129,17 +129,22 @@ sub confirm {
sub delete_copy_file {
my ($r, $author_name, $newpath, $filename, $path_to_new_file, $type) = @_;
if($type eq '1') {
- $r->print("Cannot delete non-obsolete published file
Please
- use the code view in previous window to use shared code
");
- $r->print('');
+ $r->print('
'
+ .&mt('Cannot delete non-obsolete published file.')
+ .'
'
+ .&mt('Please use the code view in previous window to use shared code.')
+ .'
');
+ $r->print(''
+ .'
'.&mt('Error:').' '.$!.'
'); return 0; } } else { - $r->print(''.&mt('No such file').'.
'); + $r->print(''.&mt('No such file').'
'); return 0; } ©_file($r, $author_name, $newpath, $filename, $path_to_new_file); @@ -158,11 +163,11 @@ sub copy_file { else { unless(mkdir($path, 02770)) { - $r->print(''.&mt('Error').': '.$!.''); + $r->print(''.&mt('Error:').' '.$!.'
'); return 0; } unless(chmod(02770, ($path))) { - $r->print(' '.&mt('Error').': '.$!.''); + $r->print(''.&mt('Error:').' '.$!.'
'); return 0; } }