version 1.101, 2002/11/15 15:01:16
|
version 1.102, 2002/11/15 15:14:12
|
Line 1566 sub start_table {
|
Line 1566 sub start_table {
|
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
&image_replication($src); |
&image_replication($src); |
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
#if original gif/jpg file exist do following: |
#if original gif/jpg/png file exist do following: |
if (-e $src) { |
if (-e $src) { |
#defines the default size of image |
#defines the default size of image |
my $image = Image::Magick->new; |
my $image = Image::Magick->new; |
Line 1599 sub start_table {
|
Line 1599 sub start_table {
|
$path = $1.'/'; |
$path = $1.'/'; |
} |
} |
my $newsrc = $src; |
my $newsrc = $src; |
$newsrc =~ s/(\.gif|\.jpg)$/\.eps/i; |
$newsrc =~ s/(\.gif|\.jpg|\.png)$/\.eps/i; |
$file=~s/(\.gif|\.jpg)$/\.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) { |
#eps counterpart for image exist |
#eps counterpart for image exist |
Line 2553 sub image_replication {
|
Line 2553 sub image_replication {
|
&Apache::lonnet::repcopy('/home/httpd/html'.$src); |
&Apache::lonnet::repcopy('/home/httpd/html'.$src); |
#replicates eps or ps |
#replicates eps or ps |
my $newsrc = $src; |
my $newsrc = $src; |
$newsrc =~ s/(.gif|.jpg)$/.eps/; |
$newsrc =~ s/(.gif|.jpg|\.png)$/.eps/; |
if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') { |
if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') { |
$newsrc =~ s/\.ps$/\.eps/; |
$newsrc =~ s/\.ps$/\.eps/; |
&Apache::lonnet::repcopy('/home/httpd/html'.$newsrc); |
&Apache::lonnet::repcopy('/home/httpd/html'.$newsrc); |