--- loncom/interface/lonsource.pm 2012/10/29 17:38:56 1.29 +++ loncom/interface/lonsource.pm 2015/05/23 18:10:02 1.33 @@ -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.33 2015/05/23 18:10:02 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,10 +52,11 @@ 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',undef, + {'only_body' => 1,}) .&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(''); + '. + &Apache::loncommon::end_page()); return OK; } @@ -101,14 +103,14 @@ sub copy_stage { my ($uname,$udom)= &Apache::lonnet::constructaccess($path_to_new_file); if (!$uname || !$udom) { - $r->print(&Apache::loncommon::start_page('Not Allowed')); + $r->print(&Apache::loncommon::start_page('Not Allowed',undef,{'only_body' => 1})); $r->print(&mt('Not allowed to create file [_1]', $path_to_new_file)); $r->print(&Apache::loncommon::end_page()); return; } #allowed - $r->print(&Apache::loncommon::start_page('Copying Source')); + $r->print(&Apache::loncommon::start_page('Copying Source',undef,{'only_body' => 1})); my $result = &Apache::loncfile::exists($uname, $udom, $path_to_new_file); $r->print($result); if(($result) && ($result =~ m|published|) ) { @@ -124,7 +126,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'.&mt('No such file').'
'); return 0; } ©_file($r, $newpath, $filename, $path_to_new_file); + $r->print(&Apache::loncommon::end_page()); } } 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 +193,7 @@ sub copy_file { } else { } #Just move along } - $r->print("