--- loncom/interface/lonsource.pm 2007/08/28 22:46:32 1.20 +++ loncom/interface/lonsource.pm 2008/08/01 16:01:44 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Souce Code handler # -# $Id: lonsource.pm,v 1.20 2007/08/28 22:46:32 albertel Exp $ +# $Id: lonsource.pm,v 1.21 2008/08/01 16:01:44 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,15 +52,18 @@ sub make_link { sub stage_2 { my ($r, $filename, $author, $listname) = @_; my ($uname, $udom) = &Apache::loncacc::constructaccess('/~'.$author.'/',$r->dir_config('lonDefDomain')); - $r->print(&Apache::loncommon::start_page('Problem source code moving operation')); - $r->print("Please enter the directory that you would like the source code to go into, a default has also been provided
"); - $r->print("Also note, the path is in reference to the root of your construction space, and new directories will be automatically created.

"); + $r->print(&Apache::loncommon::start_page('Copy Problem Source Code to Construction 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,' + .' and new directories will be automatically created.') + .'

'); $r->print('
-   - +   +
'); return OK; } @@ -250,11 +253,11 @@ sub handler { &delete_copy_file($r, $env{'form.author'}, $env{'form.newpath'}, $env{'form.filename'}, $env{'form.path'}, '0'); } else { $r->print('
- + - +
'); $r->print('
'); &print_item($r, $env{'form.filename'});