--- 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()" />'
.'