--- loncom/interface/lonsource.pm 2009/06/09 13:50:03 1.23 +++ loncom/interface/lonsource.pm 2011/10/25 14:28:13 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Source Code handler # -# $Id: lonsource.pm,v 1.23 2009/06/09 13:50:03 bisitz Exp $ +# $Id: lonsource.pm,v 1.25 2011/10/25 14:28:13 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -84,10 +84,10 @@ sub copy_stage { $author_name = $env{'user.name'}; } - my $path_to_new_file = '/home/'.$author_name.'/public_html/'.$newpath.'/'.$listname; + my $path_to_new_file = '/home/httpd/html/priv/'.$domain.'/'.$author_name.'/'.$newpath.'/'.$listname; #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,$domain); + my ($uname,$udom)= &Apache::loncacc::constructaccess($path_to_new_file); if (!$uname || !$udom) { $r->print(&Apache::loncommon::start_page('Not Allowed')); @@ -135,7 +135,7 @@ sub delete_copy_file { .&mt('Please use the code view in previous window to use shared code.') .'

'); $r->print('' + .' onclick="window.close()" />' .'

'); } else { if(-e $path_to_new_file) { @@ -182,7 +182,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..' } @@ -258,7 +258,7 @@ sub handler { &delete_copy_file($r, $env{'form.author'}, $env{'form.newpath'}, $env{'form.filename'}, $env{'form.path'}, '0'); } else { $r->print('
- +