loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.207, 2004/04/01 16:19:13	version 1.208, 2004/04/06 18:05:29
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=();