[LON-CAPA-cvs] cvs: loncom /xml londefdef.pm

[sakharuk]

sakharuk		Thu Jun 19 14:45:57 2003 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  Bug found by Ed (strange tables printing for the printing of sequence) is fixed. I've just undefined array with tables. 
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.140 loncom/xml/londefdef.pm:1.141
--- loncom/xml/londefdef.pm:1.140	Thu Jun 19 11:30:58 2003
+++ loncom/xml/londefdef.pm	Thu Jun 19 14:45:57 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.140 2003/06/19 15:30:58 sakharuk Exp $
+# $Id: londefdef.pm,v 1.141 2003/06/19 18:45:57 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1701,7 +1701,7 @@
 #-- <table> tag
 sub start_table {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
-    my $textwidth;
+    my $textwidth='';
     if (not defined @Apache::londefdef::table) {
 	$textwidth=&recalc($ENV{'form.textwidth'});
 	$textwidth=~/(\d+\.?\d*)/;
@@ -1747,7 +1747,7 @@
 	    $Apache::londefdef::table[-1]{'vvinc'} = '';
 	}
 	$Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';
-	$currentstring = '\keephidden{NEW TABLE ENTRY '.$textwidth.'}';
+	$currentstring = '\keephidden{NEW TABLE ENTRY '.$textwidth.' }';
     }
     return $currentstring;
 }
@@ -1825,6 +1825,7 @@
 	} else {
 	    $currentstring .= $Apache::londefdef::table[-1]{'output'};
 	    pop @Apache::londefdef::table;
+            undef @Apache::londefdef::table;
 	}
     }
     return $currentstring;