|
version 1.238, 2004/08/25 19:57:27
|
version 1.239, 2004/08/30 18:25:55
|
|
Line 2434 sub start_img {
|
Line 2434 sub start_img {
|
| $currentstring.='[IMAGE: '.$alttag.']'; |
$currentstring.='[IMAGE: '.$alttag.']'; |
| } |
} |
| } elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
| |
my $oldSRC=$src; |
| |
$oldSRC=~s/\.(gif|jpg|png)$/\.eps/; |
| $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
| #if original gif/jpg/png file exist do following: |
#if original gif/jpg/png file exist do following: |
| if (-e $src) { |
if (-e $src) { |
|
Line 2442 sub start_img {
|
Line 2444 sub start_img {
|
| my ($file,$path)=&file_path($src); |
my ($file,$path)=&file_path($src); |
| my $newsrc = $src; |
my $newsrc = $src; |
| $newsrc =~ s/\.(gif|jpg|png)$/.eps/i; |
$newsrc =~ s/\.(gif|jpg|png)$/.eps/i; |
| |
my $dummy_content=&Apache::lonnet::getfile($oldSRC); |
| $file=~s/\.(gif|jpg|png)$/.eps/i; |
$file=~s/\.(gif|jpg|png)$/.eps/i; |
| #where can we find the picture? |
#where can we find the picture? |
| if (-e $newsrc) { |
if (-e $newsrc) { |
|
Line 3710 sub eps_generation {
|
Line 3713 sub eps_generation {
|
| $newsrc=~s/\/home\/httpd\/lonUsers//; |
$newsrc=~s/\/home\/httpd\/lonUsers//; |
| $newsrc=~s/\/([^\/]+)\/(\w)\/(\w)\/(\w)\//\/$1\//; |
$newsrc=~s/\/([^\/]+)\/(\w)\/(\w)\/(\w)\//\/$1\//; |
| } |
} |
| return ' \graphicspath{{/home/httpd/prtspool'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} '; |
if ($newsrc=~/\/userfiles\//) { |
| |
return ' \graphicspath{{'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} '; |
| |
} else { |
| |
return ' \graphicspath{{/home/httpd/prtspool'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} '; |
| |
} |
| } |
} |
| |
|
| sub file_path { |
sub file_path { |
![[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