[LON-CAPA-cvs] cvs: loncom /interface lonhelper.pm

[albertel]

albertel		Thu Jan 20 15:20:35 2005 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  - Bug#3839, [] in a resource title confused &mt, on &mt when the text is in a .helper and isn't dynamically generated
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.93 loncom/interface/lonhelper.pm:1.94
--- loncom/interface/lonhelper.pm:1.93	Sun Jan 16 03:20:38 2005
+++ loncom/interface/lonhelper.pm	Thu Jan 20 15:20:35 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.93 2005/01/16 08:20:38 albertel Exp $
+# $Id: lonhelper.pm,v 1.94 2005/01/20 20:20:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1165,7 +1165,7 @@
                                               $parser));
     my $nextstate = $token->[2]{'nextstate'};
     my $evalFlag = $token->[2]{'eval'};
-    push @{$paramHash->{CHOICES}}, [$human, $computer, $nextstate, 
+    push @{$paramHash->{CHOICES}}, [&mtn($human), $computer, $nextstate, 
                                     $evalFlag];
     return '';
 }
@@ -1281,7 +1281,7 @@
             $choiceLabel = &$choiceLabel($helper, $self);
         }
         $result .= "/></td><td> ".qq{<label for="$id">}.
-            &mtn($choiceLabel). "</label></td></tr>\n";
+            $choiceLabel. "</label></td></tr>\n";
     }
     $result .= "</table>\n\n\n";
     $result .= $buttons;