version 1.116, 2003/02/18 21:14:16
|
version 1.118, 2003/02/19 14:30:10
|
Line 44
|
Line 44
|
|
|
package Apache::londefdef; |
package Apache::londefdef; |
|
|
use Apache::lonnet; |
use Apache::lonnet(); |
use strict; |
use strict; |
use Apache::lonxml; |
use Apache::lonxml(); |
use Apache::File(); |
use Apache::File(); |
use Image::Magick; |
use Image::Magick; |
use Apache::lonmenu; |
use Apache::lonmenu(); |
#use Apache::lonmeta; |
use Apache::lonmeta(); |
|
|
BEGIN { |
BEGIN { |
|
|
Line 1602 sub start_table {
|
Line 1602 sub start_table {
|
if ($ENV{'browser.imagesuppress'} ne 'on') { |
if ($ENV{'browser.imagesuppress'} ne 'on') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} else { |
} else { |
my $alttag=$token->[2]->{'alt'}; |
my $alttag= &Apache::lonxml::get_param |
|
('alt',$parstack,$safeeval,undef,1); |
unless ($alttag) { |
unless ($alttag) { |
$alttag=&Apache::lonmeta::alttag($token->[2]->{'src'}); |
$alttag=&Apache::lonmeta::alttag |
|
($Apache::lonxml::pwd[-1],$src); |
} |
} |
$currentstring='[IMAGE: '.$alttag.']'; |
$currentstring='[IMAGE: '.$alttag.']'; |
} |
} |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
&image_replication($src); |
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
&image_replication($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) { |
#defines the default size of image |
#defines the default size of image |
Line 1705 sub start_table {
|
Line 1708 sub start_table {
|
} else { |
} else { |
my $alttag=$token->[2]->{'alt'}; |
my $alttag=$token->[2]->{'alt'}; |
unless ($alttag) { |
unless ($alttag) { |
$alttag=&Apache::lonmeta::alttag($token->[2]->{'code'}); |
$alttag=&Apache::lonmeta::alttag($ENV{'REQUEST_URI'}, |
|
$token->[2]->{'code'}); |
} |
} |
$currentstring='[APPLET: '.$alttag.']'; |
$currentstring='[APPLET: '.$alttag.']'; |
} |
} |
Line 1738 sub start_embed {
|
Line 1742 sub start_embed {
|
} else { |
} else { |
my $alttag=$token->[2]->{'alt'}; |
my $alttag=$token->[2]->{'alt'}; |
unless ($alttag) { |
unless ($alttag) { |
$alttag=&Apache::lonmeta::alttag($token->[2]->{'src'}); |
$alttag=&Apache::lonmeta::alttag($ENV{'REQUEST_URI'}, |
|
$token->[2]->{'src'}); |
} |
} |
$currentstring='[EMBED: '.$alttag.']'; |
$currentstring='[EMBED: '.$alttag.']'; |
} |
} |
Line 1792 sub start_allow {
|
Line 1797 sub start_allow {
|
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$token->[2]->{'src'}; |
$token->[2]->{'src'}; |
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); |
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); |
|
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
&image_replication($src); |
&image_replication($src); |
my $result; |
my $result; |
if ($target eq 'edit') { |
if ($target eq 'edit') { |
Line 2607 sub end_allow {
|
Line 2613 sub end_allow {
|
|
|
sub image_replication { |
sub image_replication { |
my $src = shift; |
my $src = shift; |
if (not -e '/home/httpd/html'.$src) { |
if (not -e $src) { |
#replicates image itself |
#replicates image itself |
&Apache::lonnet::repcopy('/home/httpd/html'.$src); |
&Apache::lonnet::repcopy($src); |
#replicates eps or ps |
#replicates eps or ps |
my $newsrc = $src; |
my $newsrc = $src; |
$newsrc =~ s/\.(gif|jpg|png)$/.eps/; |
$newsrc =~ s/\.(gif|jpg|jpeg|png)$/.eps/i; |
if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') { |
if (not -e $newsrc) { |
$newsrc =~ s/\.eps$/\.ps/; |
if (&Apache::lonnet::repcopy($newsrc) ne 'OK') { |
&Apache::lonnet::repcopy('/home/httpd/html'.$newsrc); |
$newsrc =~ s/\.eps$/\.ps/; |
|
&Apache::lonnet::repcopy($newsrc); |
|
} |
} |
} |
} |
} |
return ''; |
return ''; |