version 1.206, 2004/04/01 16:11:58
|
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 1824 sub start_table {
|
Line 1824 sub start_table {
|
$Apache::londefdef::table[-1]{'vvinc'} = ''; |
$Apache::londefdef::table[-1]{'vvinc'} = ''; |
} |
} |
if ($#Apache::londefdef::table==0) { |
if ($#Apache::londefdef::table==0) { |
$Apache::londefdef::table[-1]{'output'}='\setlength{\tabcolsep}{1 mm}'; |
$Apache::londefdef::table[-1]{'output'}='\newline\setlength{\tabcolsep}{1 mm}'; |
} |
} |
$Apache::londefdef::table[-1]{'output'}.=' \noindent \begin{tabular} '; |
$Apache::londefdef::table[-1]{'output'}.=' \noindent \begin{tabular} '; |
$Apache::londefdef::table[-1]{'TeXlen'}=[]; |
$Apache::londefdef::table[-1]{'TeXlen'}=[]; |
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; |