--- loncom/interface/lonsource.pm 2012/10/29 17:38:56 1.29 +++ loncom/interface/lonsource.pm 2014/02/11 15:49:15 1.32 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Source Code handler # -# $Id: lonsource.pm,v 1.29 2012/10/29 17:38:56 raeburn Exp $ +# $Id: lonsource.pm,v 1.32 2014/02/11 15:49:15 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,10 +52,10 @@ sub make_link { sub stage_2 { my ($r, $filename, $listname) = @_; my ($author)=($filename=~/\/res\/[^\/]+\/([^\/]+)\//); - $r->print(&Apache::loncommon::start_page('Copy Problem Source Code to Construction Space') + $r->print(&Apache::loncommon::start_page('Copy Problem Source Code to Authoring Space') .&mt('Please enter the directory that you would like the source code to go into.') .'

' - .&mt('Note: the path is in reference to the root of your construction space,' + .&mt('Note: the path is in reference to the root of your Authoring Space,' .' and new directories will be automatically created.') .'

'); $r->print('
@@ -124,7 +124,7 @@ sub copy_stage { sub confirm { my ($r, $newpath, $filename, $path_to_new_file) = @_; - $r->print("Press delete to remove file and replace it with a copy of the source you are viewing

"); + $r->print(''.&mt('Press delete to remove file and replace it with a copy of the source you are viewing.').'

'); $r->print(' @@ -143,7 +143,7 @@ sub delete_copy_file { .'
' .&mt('Please use the code view in previous window to use shared code.') .'

'); - $r->print('print('' .'

'); } else { @@ -162,7 +162,7 @@ sub delete_copy_file { sub copy_file { my ($r, $newpath, $filename, $path_to_new_file) = @_; - $r->print("Creating directories"); + $r->print(''.&mt('Creating directories').''); #Figure out if we are author or co-author my ($role,$author_name,$domain)=©_author(); @@ -188,7 +188,7 @@ sub copy_file { } else { } #Just move along } - $r->print("
Copying File"); + $r->print('
'.&mt('Copying File').''); my $problem_filename = $Apache::lonnet::perlvar{'lonDocRoot'}.$filename; my $file_output = &includemeta(&Apache::lonnet::getfile($problem_filename),$filename); my $fs=Apache::File->new(">$path_to_new_file"); @@ -196,7 +196,7 @@ sub copy_file { print $fs $file_output; } $r->print("

"); - $r->print(''); + $r->print(''); #Some 1.3'ish feature is to include the derivative feature, will go here..' } @@ -236,7 +236,7 @@ sub print_item { - +

'); } else {