loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.166 and 1.167

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.166, 2003/08/26 14:40:03	version 1.167, 2003/08/26 15:05:43
Line 1776 sub end_table {	Line 1776 sub end_table {
}	}
}	}
#continues trying estimate the width of raw data	#continues trying estimate the width of raw data
# $currentstring.=' SSS '.$Apache::londefdef::table[-1]{'lengthrow'}[0].' FFF '; ####for test only
my @length_raw_row = split(/,/,$Apache::londefdef::table[-1]{'lengthrow'}[0]);	my @length_raw_row = split(/,/,$Apache::londefdef::table[-1]{'lengthrow'}[0]);
for (my $in=1;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {	for (my $in=1;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
my @length_row = split(/,/,$Apache::londefdef::table[-1]{'lengthrow'}[$in]);	my @length_row = split(/,/,$Apache::londefdef::table[-1]{'lengthrow'}[$in]);
# $currentstring.=' SSS '.$Apache::londefdef::table[-1]{'lengthrow'}[$in].' FFF '; ####for test only
for (my $jn=0;$jn<=$#length_row;$jn++) {	for (my $jn=0;$jn<=$#length_row;$jn++) {
if ($length_raw_row[$jn]<$length_row[$jn]) {$length_raw_row[$jn]=$length_row[$jn];}	if ($length_raw_row[$jn]<$length_row[$jn]) {$length_raw_row[$jn]=$length_row[$jn];}
}	}
Line 1797 sub end_table {	Line 1795 sub end_table {
$needed=$#length_row_final-$needed+1;	$needed=$#length_row_final-$needed+1;
for (my $jn=0;$jn<=$#length_row_final;$jn++) {	for (my $jn=0;$jn<=$#length_row_final;$jn++) {
if ($length_row_final[$jn]==0) {	if ($length_row_final[$jn]==0) {
if ($length_raw_row[$jn]<$available_length/3) {	if ($length_raw_row[$jn]<$available_length) {
$length_row_final[$jn]=$length_raw_row[$jn];	$length_row_final[$jn]=$length_raw_row[$jn];
$available_length=$available_length-$length_raw_row[$jn];	$available_length=$available_length-$length_raw_row[$jn];
$needed--;	$needed--;

Removed from v.1.166
changed lines
	Added in v.1.167