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

[albertel]

albertel		Thu Feb 24 00:40:08 2005 EDT

  Modified files:              
    /loncom/xml	lontexconvert.pm 
  Log:
  - cleanup minus signs
  
  
Index: loncom/xml/lontexconvert.pm
diff -u loncom/xml/lontexconvert.pm:1.47 loncom/xml/lontexconvert.pm:1.48
--- loncom/xml/lontexconvert.pm:1.47	Thu Feb 24 00:33:55 2005
+++ loncom/xml/lontexconvert.pm	Thu Feb 24 00:40:08 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # TeX Conversion Module
 #
-# $Id: lontexconvert.pm,v 1.47 2005/02/24 05:33:55 albertel Exp $
+# $Id: lontexconvert.pm,v 1.48 2005/02/24 05:40:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -242,7 +242,10 @@
     $string =~ s/<\=/\%/g;
     $string =~ s/>\=/\!/g;
     
-    #protect the confusable greek symbols
+    # makes the decision about what is a minus sign easier
+    $string =~ s/([\=\>\<\%\!\#] *)-/$1 zeroplace -/g;
+
+    # protect the confusable greek symbols
     $string =~ s/delta/zdelta/g;
     $string =~ s/beta/bita/g;
     $string =~ s/theta/thita/g;
@@ -256,6 +259,9 @@
 
 sub postprocess_algebra {
     my ($string)=@_;
+    
+    # remove the chunk used to sepearate out the minus signs
+    $string =~ s/zeroplace//g;
 
     # exapnd out some operators
     $string =~ s/\#/\\not= /g;