version 1.157, 2003/07/31 21:00:55
|
version 1.158, 2003/08/01 13:35:20
|
Line 1084 sub start_p {
|
Line 1084 sub start_p {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $signal=1; |
my $signal=1; |
foreach my $tag (@$tagstack) {if ($tag eq 'b') {$signal=0;}} |
foreach my $tag (@$tagstack) {if (lc($tag) eq 'b') {$signal=0;}} |
if ($signal) {$currentstring .= '\par ';} |
if ($signal) {$currentstring .= '\par ';} |
} |
} |
return $currentstring; |
return $currentstring; |
Line 1971 sub start_img {
|
Line 1971 sub start_img {
|
my $width_param = ''; |
my $width_param = ''; |
my $height_param = ''; |
my $height_param = ''; |
my $scaling = .3; |
my $scaling = .3; |
|
|
if ($target eq 'web') { |
if ($target eq 'web') { |
if ($ENV{'browser.imagesuppress'} ne 'on') { |
if ($ENV{'browser.imagesuppress'} ne 'on') { |
$currentstring = $token->[4]; |
$currentstring.= $token->[4]; |
} else { |
} else { |
my $alttag= &Apache::lonxml::get_param |
my $alttag= &Apache::lonxml::get_param |
('alt',$parstack,$safeeval,undef,1); |
('alt',$parstack,$safeeval,undef,1); |
Line 1982 sub start_img {
|
Line 1981 sub start_img {
|
$alttag=&Apache::lonmeta::alttag |
$alttag=&Apache::lonmeta::alttag |
($Apache::lonxml::pwd[-1],$src); |
($Apache::lonxml::pwd[-1],$src); |
} |
} |
$currentstring='[IMAGE: '.$alttag.']'; |
$currentstring.='[IMAGE: '.$alttag.']'; |
} |
} |
} 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); |
&image_replication($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 |