--- loncom/xml/londefdef.pm	2003/10/16 15:29:45	1.182
+++ loncom/xml/londefdef.pm	2003/10/20 19:47:23	1.183
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.182 2003/10/16 15:29:45 sakharuk Exp $
+# $Id: londefdef.pm,v 1.183 2003/10/20 19:47:23 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1322,7 +1322,7 @@ sub start_sub {
     if ($target eq 'web') {
 	$currentstring .= $token->[4];
     } elsif ($target eq 'tex') {
-	$currentstring .= "\$_{ ";
+	$currentstring .= "\$_{";
     } 
     return $currentstring;
 }
@@ -1333,7 +1333,7 @@ sub end_sub {
     if ($target eq 'web') {
 	$currentstring .= $token->[2];
     } elsif ($target eq 'tex') {
-	$currentstring .= " }\$";
+	$currentstring .= "}\$";
     }
     return $currentstring;
 }
@@ -1345,7 +1345,7 @@ sub start_sup {
     if ($target eq 'web') {
 	$currentstring .= $token->[4];
     } elsif ($target eq 'tex') {
-	$currentstring .= "\$^{ ";
+	$currentstring .= "\$^{";
     } 
     return $currentstring;
 }
@@ -1356,7 +1356,7 @@ sub end_sup {
     if ($target eq 'web') {
 	$currentstring .= $token->[2];
     } elsif ($target eq 'tex') {
-	$currentstring .= " }\$";
+	$currentstring .= "}\$";
     }
     return $currentstring;
 }
@@ -1997,11 +1997,15 @@ sub end_td_tex {
 		    $elementdata=~s/^\s+(\S.*)/$1/; 
 		    $elementdata=~s/(.*\S)\s+$/$1/;
 		    $elementdata=~s/(\s)+/$1/;
+
 		    my $lengthnewdata=1.8*length($elementdata);
 		    if ($lengthnewdata>$current_length) {$current_length=$lengthnewdata;}
 		}
 	    } else {
-		$current_length=1.8*length($data);
+		my $working_data=$data;
+		$working_data=~s/(\$\_\{|\$\_|\$\^{|\$\^|\}\$|\$)//g;
+		$working_data=~s/\\cdot/ /;
+		$current_length=1.8*length($working_data);
 	    }
 	    $Apache::londefdef::table[-1]{'length'} .= $current_length.',';
 	    $Apache::londefdef::table[-1]{'TeXlength'} .= '0,';