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

sakharuk lon-capa-cvs@mail.lon-capa.org
Tue, 23 Jul 2002 19:15:08 -0000


sakharuk		Tue Jul 23 15:15:08 2002 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  Added correction for the <br /> tag inside the math mode (inside <sub></sub> or <sup></sup>. 
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.74 loncom/xml/londefdef.pm:1.75
--- loncom/xml/londefdef.pm:1.74	Tue Jul 16 17:03:26 2002
+++ loncom/xml/londefdef.pm	Tue Jul 23 15:15:08 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.74 2002/07/16 21:03:26 sakharuk Exp $
+# $Id: londefdef.pm,v 1.75 2002/07/23 19:15:08 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -837,12 +837,15 @@
 	}
 #-- <br> tag
         sub start_br {
-	    my ($target,$token) = @_;
+	    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
             my $currentstring = '';
             if ($target eq 'web') {
 	       $currentstring .= $token->[4];
 	    } elsif ($target eq 'tex') {
-		$currentstring .= '\vskip 0 mm';
+		my @temp = @$tagstack;
+		if ($temp[-2] ne 'sub' && $temp[-2] ne 'sup') {
+		    $currentstring .= '\vskip 0 mm';
+		}
 	    } elsif ($target eq 'latexsource') {
 		$currentstring .= '\\';
 	    }