version 1.207, 2004/04/01 16:19:13
|
version 1.209, 2004/04/15 17:37:04
|
Line 1812 sub start_table {
|
Line 1812 sub start_table {
|
} |
} |
#table's border |
#table's border |
my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval); |
my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval); |
my $permission=&Apache::lonxml::get_param('DropEmptyColumns',$parstack,$safeeval,undef,0); |
my $permission=&Apache::lonxml::get_param('TeXDropEmptyColumns',$parstack,$safeeval,undef,0); |
unless (defined $border) { $border = 0; } |
unless (defined $border) { $border = 0; } |
if ($border) { |
if ($border) { |
$Apache::londefdef::table[-1]{'hinc'} = '\hline '; |
$Apache::londefdef::table[-1]{'hinc'} = '\hline '; |
Line 1967 sub end_table {
|
Line 1967 sub end_table {
|
} |
} |
} |
} |
#removing of empty columns if allowed |
#removing of empty columns if allowed |
my $permission=&Apache::lonxml::get_param('DropEmptyColumns',$parstack,$safeeval,undef,0); |
my $permission=&Apache::lonxml::get_param('TeXDropEmptyColumns',$parstack,$safeeval,undef,0); |
if ($permission eq 'yes') { |
if ($permission eq 'yes') { |
my @cleaned_table=(); |
my @cleaned_table=(); |
my @cleaned_header=(); |
my @cleaned_header=(); |
Line 2343 sub start_img {
|
Line 2343 sub start_img {
|
&image_replication($src); |
&image_replication($src); |
if (-e $src) { |
if (-e $src) { |
my $image = Image::Magick->new; |
my $image = Image::Magick->new; |
my ($width, $height, $size, $format) = $image->Ping($src); |
$image->Read($src); |
|
my ($width, $height) = ($image->Get('width'), |
|
$image->Get('height')); |
if ($width && $height) { |
if ($width && $height) { |
$token->[2]{'width'} =$width; |
$token->[2]{'width'} =$width; |
$token->[2]{'height'}=$height; |
$token->[2]{'height'}=$height; |