version 1.24, 2009/08/13 11:00:38
|
version 1.25, 2011/10/25 14:28:13
|
Line 84 sub copy_stage {
|
Line 84 sub copy_stage {
|
$author_name = $env{'user.name'}; |
$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 |
#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) { |
if (!$uname || !$udom) { |
$r->print(&Apache::loncommon::start_page('Not Allowed')); |
$r->print(&Apache::loncommon::start_page('Not Allowed')); |