loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.425, 2010/11/01 10:52:09	version 1.426, 2010/11/18 17:42:15
Line 2314 sub tag_check {	Line 2314 sub tag_check {

sub cell_config_hash {	sub cell_config_hash {
my ($align, $rowspan, $colspan, $width) = @_;	my ($align, $rowspan, $colspan, $width) = @_;
	if ($rowspan ne '') {
	$rowspan =~ s/^\s+\|\s+$//g;
	}
	if ($colspan ne '') {
	$colspan =~ s/^\s+\|\s+$//g;
	}
my %config;	my %config;
if ($align ne '') {	if ($align ne '') {
$config{'halign'} = $align;	$config{'halign'} = $align;
}	}
if ($colspan ne "") {	if (($colspan =~ /^\d+$/) && ($colspan > 0)) {
$config{'colspan'} = $colspan;	$config{'colspan'} = $colspan;
}	}
if ($rowspan ne '') {	if (($rowspan =~ /^\d+$/) && ($rowspan > 0)) {
$config{'rowspan'} = $rowspan;	$config{'rowspan'} = $rowspan;
}	}
if ($width ne '') {	if ($width ne '') {