loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.234, 2004/08/19 20:20:40	version 1.235, 2004/08/20 18:43:36
Line 2422 sub start_img {	Line 2422 sub start_img {
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
#if uploaded restore the path	#if uploaded restore the path
	my $old_src=$src;
if ($src=~/^\/uploaded\/([^\/]+)\/([^\/]+)\/simplepage\/([^\/]+)$/) {	if ($src=~/^\/uploaded\/([^\/]+)\/([^\/]+)\/simplepage\/([^\/]+)$/) {
$src=&Apache::loncommon::propath($1,$2).'/userfiles/simplepage/'.$3;	$src=&Apache::loncommon::propath($1,$2).'/userfiles/simplepage/'.$3;
	if (not -e $src) {
	$old_src=~/^\/uploaded\/(.*)$/;
	$src=$Apache::lonnet::perlvar{'lonDocRoot'}.'/userfiles/'.$1;
	}
} elsif ($src=~/^\/uploaded\/([^\/]+)\/([^\/]+)\/aboutme\/([^\/]+)$/) {	} elsif ($src=~/^\/uploaded\/([^\/]+)\/([^\/]+)\/aboutme\/([^\/]+)$/) {
$src=&Apache::loncommon::propath($1,$2).'/userfiles/aboutme/'.$3;	$src=&Apache::loncommon::propath($1,$2).'/userfiles/aboutme/'.$3;
}	}