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; |
} |
} |