--- loncom/interface/lonhelper.pm 2004/04/22 16:47:26 1.75
+++ loncom/interface/lonhelper.pm 2004/04/27 18:30:35 1.79
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.75 2004/04/22 16:47:26 albertel Exp $
+# $Id: lonhelper.pm,v 1.79 2004/04/27 18:30:35 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2671,6 +2671,7 @@ string honors the validation function, i
no strict;
@ISA = ("Apache::lonhelper::element");
use strict;
+use Apache::lonlocal;
BEGIN {
&Apache::lonhelper::register('Apache::lonhelper::string',
@@ -3102,7 +3103,7 @@ sub render {
# Print the granularity, depending on the action
if ($vars->{GRANULARITY} eq 'whole_course') {
- $resourceString .= '
'.&mt('for').' '.&mt('all resources in the course').'';
+ $resourceString .= ''.&mt('for all resources in the course').'';
$level = 9; # general course, see lonparmset.pm perldoc
$affectedResourceId = "0.0";
$symb = 'a';
@@ -3113,7 +3114,7 @@ sub render {
my $title = $res->compTitle();
$symb = $res->symb();
$navmap->untieHashes();
- $resourceString .= "for the map named $title";
+ $resourceString .= ''.&mt('for the map named [_1]',"$title").'';
$level = 8;
$affectedResourceId = $vars->{RESOURCE_ID};
$paramlevel = 'map';
@@ -3123,7 +3124,7 @@ sub render {
$symb = $res->symb();
my $title = $res->compTitle();
$navmap->untieHashes();
- $resourceString .= "for the resource named $title";
+ $resourceString .= ''.&mt('for the resource named [_1]',"$title").'';
$level = 7;
$affectedResourceId = $vars->{RESOURCE_ID};
$paramlevel = 'full';
@@ -3176,10 +3177,10 @@ sub render {
# Print targets
if ($vars->{TARGETS} eq 'course') {
- $result .= ''.&mt('for').' '.&mt('all students in course').'';
+ $result .= ''.&mt('for all students in course').'';
} elsif ($vars->{TARGETS} eq 'section') {
my $section = $vars->{SECTION_NAME};
- $result .= "".&mt('for section')." $section";
+ $result .= ''.&mt('for section [_1]',"$section").'';
$level -= 3;
$result .= "&"') . "' />\n";
@@ -3190,7 +3191,7 @@ sub render {
# Chop off everything after the last colon (section)
$username = substr($username, 0, rindex($username, ':'));
my $name = $classlist->{$username}->[6];
- $result .= "".&mt('for')." $name";
+ $result .= ''.&mt('for [_1]',"$name").'';
$level -= 6;
my ($uname, $udom) = split /:/, $vars->{USER_NAME};
$result .= "{ACTION_TYPE} ne 'weight') {
- $result .= "".&mt('to')." " . ctime($vars->{PARM_DATE}) . " (" .
- Apache::lonnavmaps::timeToHumanString($vars->{PARM_DATE})
- . ")\n";
+ $result .= ''.&mt('to [_1] ( [_2] )',"ctime($vars->{PARM_DATE})",Apache::lonnavmaps::timeToHumanString($vars->{PARM_DATE})).'\n';
}
# print pres_marker