--- loncom/interface/lonsource.pm	2013/06/07 16:07:46	1.31
+++ 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.31 2013/06/07 16:07:46 bisitz Exp $
+# $Id: lonsource.pm,v 1.32 2014/02/11 15:49:15 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -124,7 +124,7 @@ sub copy_stage {
 
 sub confirm {
     my ($r, $newpath, $filename, $path_to_new_file) = @_;
-    $r->print("<b>Press delete to remove file and replace it with a copy of the source you are viewing</b><br /><br /	>");
+    $r->print('<b>'.&mt('Press delete to remove file and replace it with a copy of the source you are viewing.').'</b><br /><br />');
     $r->print('<form name="delete_confirm" action="/adm/source" target="_parent" method="post">
               <input type="hidden" name="filename" value="'.$filename.'" />
               <input type="hidden" name="path" value="'.$path_to_new_file.'" />
@@ -143,7 +143,7 @@ sub delete_copy_file {
                  .'</span><br />'
                  .&mt('Please use the code view in previous window to use shared code.')
                  .'<br /><br />');
-        $r->print('<input type="button" value="Close Window" name="close"'
+        $r->print('<input type="button" value="'.&mt('Close Window').'" name="close"'
                  .' onclick="window.close()" />'
                  .'</p>');
     } else {
@@ -162,7 +162,7 @@ sub delete_copy_file {
 
 sub copy_file {
     my ($r, $newpath, $filename, $path_to_new_file) = @_;
-    $r->print("<b>Creating directories</b>");
+    $r->print('<b>'.&mt('Creating directories').'</b>');
 
 #Figure out if we are author or co-author
     my ($role,$author_name,$domain)=&copy_author();
@@ -188,7 +188,7 @@ sub copy_file {
         } else { } #Just move along
 
     }
-    $r->print("<br /><b>Copying File</b>");
+    $r->print('<br /><b>'.&mt('Copying File').'</b>');
     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("<br /><br />");
-    $r->print('<input type="button" value="Close Window" name="close" onclick="window.close()" />');
+    $r->print('<input type="button" value="'.&mt('Close Window').'" name="close" onclick="window.close()" />');
     #Some 1.3'ish feature is to include the derivative feature, will go here..'
 }