loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'));