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

[sakharuk]

sakharuk		Wed May  7 12:59:01 2003 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
   Fixed me stupid error to calculate the width of the table. This probably will fix Guy's bug but I have to check more. 
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.130 loncom/xml/londefdef.pm:1.131
--- loncom/xml/londefdef.pm:1.130	Fri Apr 18 11:14:18 2003
+++ loncom/xml/londefdef.pm	Wed May  7 12:59:01 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.130 2003/04/18 15:14:18 sakharuk Exp $
+# $Id: londefdef.pm,v 1.131 2003/05/07 16:59:01 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1697,7 +1697,7 @@
 sub start_table {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
     my $textwidth;
-    if ($#Apache::londefdef::table==0) {
+    if (not defined @Apache::londefdef::table) {
 	$textwidth=&recalc($ENV{'form.textwidth'});
 	$textwidth=~/(\d+)/;
 	$textwidth=$1;
@@ -1742,7 +1742,7 @@
 	    $Apache::londefdef::table[-1]{'vvinc'} = '';
 	}
 	$Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';
-	$currentstring = '\keephidden{NEW TABLE ENTRY}';
+	$currentstring = '\keephidden{NEW TABLE ENTRY '.$textwidth.'}';
     }
     return $currentstring;
 }