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

sakharuk lon-capa-cvs@mail.lon-capa.org
Tue, 27 Apr 2004 18:30:35 -0000


sakharuk		Tue Apr 27 14:30:35 2004 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  Corrected till the end.
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.78 loncom/interface/lonhelper.pm:1.79
--- loncom/interface/lonhelper.pm:1.78	Tue Apr 27 14:07:18 2004
+++ loncom/interface/lonhelper.pm	Tue Apr 27 14:30:35 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.78 2004/04/27 18:07:18 sakharuk Exp $
+# $Id: lonhelper.pm,v 1.79 2004/04/27 18:30:35 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3180,7 +3180,7 @@
         $result .= '<li>'.&mt('for <b>all students in course</b>').'</li>';
     } elsif ($vars->{TARGETS} eq 'section') {
         my $section = $vars->{SECTION_NAME};
-        $result .= &mt('<li>for section <b>[_1]</b></li>',$section);
+        $result .= '<li>'.&mt('for section [_1]',"<b>$section</b>").'</li>';
         $level -= 3;
         $result .= "<input type='hidden' name='csec' value='" .
             HTML::Entities::encode($section,'<>&"') . "' />\n";
@@ -3191,8 +3191,7 @@
         # Chop off everything after the last colon (section)
         $username = substr($username, 0, rindex($username, ':'));
         my $name = $classlist->{$username}->[6];
-        $result .= &mt('<li>for <b>[_1]</b></li>',$name);
-##        $result .= "<li>".&mt('for [_1]',"<b>$name</b>")."</li>";
+        $result .= '<li>'.&mt('for [_1]',"<b>$name</b>").'</li>';
         $level -= 6;
         my ($uname, $udom) = split /:/, $vars->{USER_NAME};
         $result .= "<input type='hidden' name='uname' value='".
@@ -3203,9 +3202,7 @@
 
     # Print value
     if ($vars->{ACTION_TYPE} ne 'tries' && $vars->{ACTION_TYPE} ne 'weight') {
-	$result .= "<li>".&mt('to')." <b>" . ctime($vars->{PARM_DATE}) . "</b> (" .
-	    Apache::lonnavmaps::timeToHumanString($vars->{PARM_DATE}) 
-	    . ")</li>\n";
+	$result .= '<li>'.&mt('to [_1] ( [_2] )',"<b>ctime($vars->{PARM_DATE})</b>",Apache::lonnavmaps::timeToHumanString($vars->{PARM_DATE})).'</li>\n';
     }
  
     # print pres_marker