--- loncom/xml/londefdef.pm	2003/04/18 14:55:40	1.128
+++ loncom/xml/londefdef.pm	2003/04/18 15:08:29	1.129
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.128 2003/04/18 14:55:40 sakharuk Exp $
+# $Id: londefdef.pm,v 1.129 2003/04/18 15:08:29 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1761,8 +1761,6 @@ sub end_table {
 	    $header_of_table .= $Apache::londefdef::table[-1]{'columns'}[$in].$Apache::londefdef::table[-1]{'vvinc'};
 	}
 	$header_of_table .= '}';
-
-
 	#define the length of the table cells
 	#always starts with TeXwidth (if defined everything else is ignored)
 	my @length_row_final = split(/,/,$Apache::londefdef::table[-1]{'TeXlengthrow'}[0]);
@@ -1818,7 +1816,7 @@ sub end_table {
 	if ($#Apache::londefdef::table > 0) {	    
 	    my $inmemory = $Apache::londefdef::table[-1]{'output'};
 	    pop @Apache::londefdef::table;
-	    $Apache::londefdef::table[-1]{'include'}=$inmemory;
+	    push @{$Apache::londefdef::table[-1]{'include'}}, $inmemory;
 	} else {
 	    $currentstring .= $Apache::londefdef::table[-1]{'output'};
 	    pop @Apache::londefdef::table;
@@ -1908,8 +1906,10 @@ sub end_td {
 		$Apache::londefdef::table[-1]{'length'} .= $current_length.',';
 		$Apache::londefdef::table[-1]{'TeXlength'} .= '0,';
 	    }        
-	}                                
-	$data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}/;
+	}
+	for (my $in=0; $in<=$#{$Apache::londefdef::table[-1]{'include'}};$in++) {                                
+	    $data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}[$in]/;
+	}
 	@{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{TOBECHANGEDONNUMBER}{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'};
     }
     return $currentstring;