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

[sakharuk]

sakharuk		Thu Jul 31 17:00:55 2003 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  Bug 1191 (<b><p>...</p></b> does not workin LaTeX) is fixed.
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.156 loncom/xml/londefdef.pm:1.157
--- loncom/xml/londefdef.pm:1.156	Mon Jul 28 15:18:02 2003
+++ loncom/xml/londefdef.pm	Thu Jul 31 17:00:55 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.156 2003/07/28 19:18:02 sakharuk Exp $
+# $Id: londefdef.pm,v 1.157 2003/07/31 21:00:55 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1078,12 +1078,14 @@
 
 #-- <p> tag
 sub start_p {
-    my ($target,$token) = @_;
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
     my $currentstring = '';
     if ($target eq 'web') {
 	$currentstring .= $token->[4];
     } elsif ($target eq 'tex') {
-	$currentstring .= '\par ';
+	my $signal=1;
+	foreach my $tag (@$tagstack) {if ($tag eq 'b') {$signal=0;}}
+	if ($signal) {$currentstring .= '\par ';}
     }
     return $currentstring;
 }