--- loncom/xml/londefdef.pm 2005/12/01 18:46:17 1.299 +++ loncom/xml/londefdef.pm 2005/12/05 23:22:49 1.300 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.299 2005/12/01 18:46:17 albertel Exp $ +# $Id: londefdef.pm,v 1.300 2005/12/05 23:22:49 foxr Exp $ # # # Copyright Michigan State University Board of Trustees @@ -2218,9 +2218,9 @@ sub end_table { my $min_nested_width = 0; my $max_nested_width = 0; for (my $col = 0; $col <= $Apache::londefdef::table[-1]{'counter_columns'}; $col++) { - $min_nested_width += $min_len[$col]; $max_nested_width += $max_len[$col]; + } # Fudge in an extra 5 mm for borders etc: @@ -2262,6 +2262,10 @@ sub start_tr { push @ {$Apache::londefdef::table[-1]{'rows'} }, 'l'; } push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'}); + # + # Need to save the number of table columns to preserve the max # columns. + # + $Apache::londefdef::table[-1]{'prior_columns'} = $Apache::londefdef::table[-1]{'counter_columns'}; $Apache::londefdef::table[-1]{'counter_columns'} = -1; push @ {$Apache::londefdef::table[-1]{'TeXlen'}}, []; push @ {$Apache::londefdef::table[-1]{'objectlen'}}, []; @@ -2281,6 +2285,11 @@ sub end_tr { if ($Apache::londefdef::TD_redirection) { &end_td_tex($parstack,$parser,$safeeval); } + # Counter columns must be the maximum number of columns seen + # in the table so far so: + if ($Apache::londefdef::table[-1]{'prior_columns'} > $Apache::londefdef::table[-1]{'counter_columns'}) { + $Apache::londefdef::table[-1]{'counter_columns'} = $Apache::londefdef::table[-1]{'prior_columns'}; + } @@ -2418,9 +2427,7 @@ sub end_td_tex { } for (my $in=0; $in<=$#{$Apache::londefdef::table[-1]{'include'}};$in++) { my $nested = $Apache::londefdef::table[-1]{'include'}[$in]; - &Apache::lonnet::logthis("Nested: $nested"); $nested =~ s/\\end\{tabular\}\\strut\\\\/\\end\{tabular\}/; - &Apache::lonnet::logthis("After sub: $nested"); # $data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}[$in]/; $data =~ s/\\keephidden\{NEW TABLE ENTRY\}/$nested/; }