loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.26, 2011/10/25 19:11:52	version 1.27, 2011/10/31 01:16:59
Line 90 sub copy_stage {	Line 90 sub copy_stage {
my ($role,$author_name,$domain)=&copy_author();	my ($role,$author_name,$domain)=&copy_author();

# Construct path to copy and filter out any possibly nasty stuff	# Construct path to copy and filter out any possibly nasty stuff
my $path_to_new_file = '/home/httpd/html/priv/'.$domain.'/'.$author_name.'/'.$newpath.'/'.$listname;	my $path_to_new_file = $r->dir_config('lonDocRoot').
	"/priv/$domain/$author_name/$newpath/$listname";
$path_to_new_file=~s/\.\.//g;	$path_to_new_file=~s/\.\.//g;
$path_to_new_file=~s/\~//g;	$path_to_new_file=~s/\~//g;
$path_to_new_file=~s/\/+/\//g;	$path_to_new_file=~s/\/+/\//g;
Line 166 sub copy_file {	Line 167 sub copy_file {
#Figure out if we are author or co-author	#Figure out if we are author or co-author
my ($role,$author_name,$domain)=&copy_author();	my ($role,$author_name,$domain)=&copy_author();

my $path = '/home/httpd/html/priv/'.$domain.'/'.$author_name.'/';	my $path = $r->dir_config('lonDocRoot')."/priv/$domain/$author_name/";
my @directories = split(/\//,$newpath);	my @directories = split(/\//,$newpath);

foreach my $now_checking (@directories) {	foreach my $now_checking (@directories) {