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

[albertel]

albertel		Mon Mar 13 15:28:53 2006 EDT

  Modified files:              
    /loncom/xml/algebra	AlgParser.pm 
  Log:
  - revert back to ( )
  
  
Index: loncom/xml/algebra/AlgParser.pm
diff -u loncom/xml/algebra/AlgParser.pm:1.15 loncom/xml/algebra/AlgParser.pm:1.16
--- loncom/xml/algebra/AlgParser.pm:1.15	Mon Mar 13 14:23:46 2006
+++ loncom/xml/algebra/AlgParser.pm	Mon Mar 13 15:28:53 2006
@@ -487,19 +487,19 @@
   $_ = $type;
   /binop1/ && do {
     my ($p1, $p2) = ('','');
-    if ($args[2]->[0] eq 'binop1') {($p1,$p2)=qw{ [ ] };}
+    if ($args[2]->[0] eq 'binop1') {($p1,$p2)=qw{ ( ) };}
     return ($args[1]->tostring() . $args[0] . $p1 .
             $args[2]->tostring() . $p2);
   };
   /unop1/ && do {
     my ($p1, $p2) = ('','');
-    if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ [ ] };}
+    if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ ( ) };}
     return ($args[0] . $p1 . $args[1]->tostring() . $p2);
   };
   /binop2/ && do {
     my ($p1, $p2, $p3, $p4)=('','','','');
     if ($args[0] =~ /implicit/) {$args[0] = ' ';}
-    if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ [ ] };}
+    if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ ( ) };}
 #    if ($args[2]->[0] =~ /binop[12]/) {($p3,$p4)=qw{ ( ) };}
     if ($args[2]->[0] =~ /binop[12]|unop1/) {($p3,$p4)=qw{ ( ) };}
     return ($p1 . $args[1]->tostring() . $p2 . $args[0] . $p3 .