loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.140, 2003/06/19 15:30:58	version 1.141, 2003/06/19 18:45:57
Line 1701 sub end_dd {	Line 1701 sub end_dd {
#-- <table> tag	#-- <table> tag
sub start_table {	sub start_table {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $textwidth;	my $textwidth='';
if (not defined @Apache::londefdef::table) {	if (not defined @Apache::londefdef::table) {
$textwidth=&recalc($ENV{'form.textwidth'});	$textwidth=&recalc($ENV{'form.textwidth'});
$textwidth=~/(\d+\.?\d*)/;	$textwidth=~/(\d+\.?\d*)/;
Line 1747 sub start_table {	Line 1747 sub start_table {
$Apache::londefdef::table[-1]{'vvinc'} = '';	$Apache::londefdef::table[-1]{'vvinc'} = '';
}	}
$Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';	$Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';
$currentstring = '\keephidden{NEW TABLE ENTRY '.$textwidth.'}';	$currentstring = '\keephidden{NEW TABLE ENTRY '.$textwidth.' }';
}	}
return $currentstring;	return $currentstring;
}	}
Line 1825 sub end_table {	Line 1825 sub end_table {
} else {	} else {
$currentstring .= $Apache::londefdef::table[-1]{'output'};	$currentstring .= $Apache::londefdef::table[-1]{'output'};
pop @Apache::londefdef::table;	pop @Apache::londefdef::table;
	undef @Apache::londefdef::table;
}	}
}	}
return $currentstring;	return $currentstring;