|
version 1.235, 2004/08/20 18:43:36
|
version 1.236, 2004/08/23 15:23:53
|
|
Line 2421 sub start_img {
|
Line 2421 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 |
|
| my $old_src=$src; |
|
| if ($src=~/^\/uploaded\/([^\/]+)\/([^\/]+)\/simplepage\/([^\/]+)$/) { |
|
| $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\/([^\/]+)$/) { |
|
| $src=&Apache::loncommon::propath($1,$2).'/userfiles/aboutme/'.$3; |
|
| } |
|
| #if original gif/jpg/png file exist do following: |
#if original gif/jpg/png file exist do following: |
| if (-e $src) { |
if (-e $src) { |
| #what is the image size? |
#what is the image size? |
![[BACK]](/icons/back.gif){kind=icon}
Return to londefdef.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml