|
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; |
![[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