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

[sakharuk]

sakharuk		Wed Aug 20 11:27:52 2003 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  <pre> tag can be correctly rendered for 'tex' target.
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.162 loncom/xml/londefdef.pm:1.163
--- loncom/xml/londefdef.pm:1.162	Wed Aug 20 11:22:03 2003
+++ loncom/xml/londefdef.pm	Wed Aug 20 11:27:52 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.162 2003/08/20 15:22:03 sakharuk Exp $
+# $Id: londefdef.pm,v 1.163 2003/08/20 15:27:52 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -2318,7 +2318,6 @@
     return $currentstring;
 }
 
-
 #-- <pre>
 sub start_pre {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
@@ -3149,7 +3148,9 @@
     my $currentstring = '';
     if ($target eq 'web') {
 	$currentstring = $token->[4];     
-    } 
+    } elsif ($target eq 'tex') {
+	$currentstring = '\textit{'; 
+    }
     return $currentstring;
 }
 
@@ -3157,12 +3158,14 @@
     my ($target,$token) = @_;
     my $currentstring = '';
     if ($target eq 'web') {
-	$currentstring = $token->[2];    
+	$currentstring = $token->[2];
+    } elsif ($target eq 'tex') {
+	$currentstring = '}'; 
     } 
     return $currentstring;
 }
 
-#-- <wbr> tag
+#-- <wbr> tag (end tag forbidden)
 sub start_wbr {
     my ($target,$token) = @_;
     my $currentstring = '';