loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1026, 2011/10/31 17:27:15	version 1.1027, 2011/11/02 23:05:07
Line 8824 sub upload_embedded {	Line 8824 sub upload_embedded {
my $fullpath = $dir_root.$dirpath.'/'.$path;	my $fullpath = $dir_root.$dirpath.'/'.$path;
my $dest = $fullpath.$fname;	my $dest = $fullpath.$fname;
my $url = $url_root.$dirpath.'/'.$path.$fname;	my $url = $url_root.$dirpath.'/'.$path.$fname;
my @parts=split(/\//,$fullpath);	my @parts=split(/\//,"$dirpath/$path");
my $count;	my $count;
my $filepath = $dir_root;	my $filepath = $dir_root;
for ($count=4;$count<=$#parts;$count++) {	foreach my $subdir (@parts) {
$filepath .= "/$parts[$count]";	$filepath .= "/$subdir";
if ((-e $filepath)!=1) {	if (!-e $filepath) {
mkdir($filepath,0770);	mkdir($filepath,0770);
}	}
}	}
Line 8948 sub modify_html_refs {	Line 8948 sub modify_html_refs {
} elsif ($context eq 'coursedoc') {	} elsif ($context eq 'coursedoc') {
$container = $env{'form.primaryurl'};	$container = $env{'form.primaryurl'};
} else {	} else {
$container = $env{'form.filename'};	$container = $Apache::lonnet::perlvar{'lonDocRoot'}.$env{'form.filename'};
}	}
my (%allfiles,%codebase,$output,$content);	my (%allfiles,%codebase,$output,$content);
my @changes = &get_env_multiple('form.namechange');	my @changes = &get_env_multiple('form.namechange');