--- loncom/interface/lonsource.pm 2012/04/21 02:48:24 1.28 +++ loncom/interface/lonsource.pm 2013/06/04 23:12:09 1.30 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Source Code handler # -# $Id: lonsource.pm,v 1.28 2012/04/21 02:48:24 raeburn Exp $ +# $Id: lonsource.pm,v 1.30 2013/06/04 23:12:09 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,7 +52,7 @@ 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,' @@ -98,7 +98,7 @@ sub copy_stage { #Just checking again for access as we want to make sure that it is really ok now that we have the real path - my ($uname,$udom)= &Apache::loncacc::constructaccess($path_to_new_file); + my ($uname,$udom)= &Apache::lonnet::constructaccess($path_to_new_file); if (!$uname || !$udom) { $r->print(&Apache::loncommon::start_page('Not Allowed')); @@ -236,7 +236,7 @@ sub print_item { - +


'); } else {