--- loncom/interface/lonhelper.pm 2004/04/20 15:08:26 1.69
+++ loncom/interface/lonhelper.pm 2004/04/21 17:57:02 1.72
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.69 2004/04/20 15:08:26 sakharuk Exp $
+# $Id: lonhelper.pm,v 1.72 2004/04/21 17:57:02 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -263,8 +263,13 @@ sub real_handler {
# Send header, don't cache this page
-
- if (&Apache::lonhomework::setupheader($r)) { return OK; }
+ if ($ENV{'browser.mathml'}) {
+ &Apache::loncommon::content_type($r,'text/xml');
+ } else {
+ &Apache::loncommon::content_type($r,'text/html');
+ }
+ $r->send_http_header;
+ return OK if $r->header_only;
$r->rflush();
# Discard result, we just want the objects that get created by the
@@ -3121,7 +3126,7 @@ sub render {
# Print the granularity, depending on the action
if ($vars->{GRANULARITY} eq 'whole_course') {
- $resourceString .= '
for all resources in the course';
+ $resourceString .= ''.&mt('for').' '.&mt('all resources in the course').'';
$level = 9; # general course, see lonparmset.pm perldoc
$affectedResourceId = "0.0";
$symb = 'a';
@@ -3152,12 +3157,12 @@ sub render {
$result .= ''.&mt('Confirm that this information is correct, then click "Finish Helper" to complete setting the parameter.').'
';
# Print the type of manipulation:
- $result .= '- Setting the ' . $dateTypeHash{$vars->{ACTION_TYPE}} . '';
+ $result .= '
- '.&mt('Setting the').' ' . &mt($dateTypeHash{$vars->{ACTION_TYPE}}) . '';
if ($vars->{ACTION_TYPE} eq 'tries') {
- $result .= ' to ' . $vars->{TRIES} . '';
+ $result .= ' '.&mt('to').' ' . $vars->{TRIES} . '';
}
if ($vars->{ACTION_TYPE} eq 'weight') {
- $result .= ' to ' . $vars->{WEIGHT} . '';
+ $result .= ' '.&mt('to').' ' . $vars->{WEIGHT} . '';
}
$result .= "
\n";
if ($vars->{ACTION_TYPE} eq 'due_date' ||
@@ -3188,10 +3193,10 @@ sub render {
# Print targets
if ($vars->{TARGETS} eq 'course') {
- $result .= '- for all students in course
';
+ $result .= '- '.&mt('for').' '.&mt('all students in course').'
';
} elsif ($vars->{TARGETS} eq 'section') {
my $section = $vars->{SECTION_NAME};
- $result .= "- for section $section
";
+ $result .= "- ".&mt('for section')." $section
";
$level -= 3;
$result .= "&"') . "' />\n";
@@ -3202,7 +3207,7 @@ sub render {
# Chop off everything after the last colon (section)
$username = substr($username, 0, rindex($username, ':'));
my $name = $classlist->{$username}->[6];
- $result .= "- for $name
";
+ $result .= "- ".&mt('for')." $name
";
$level -= 6;
my ($uname, $udom) = split /:/, $vars->{USER_NAME};
$result .= "{ACTION_TYPE} ne 'weight') {
- $result .= "- to " . ctime($vars->{PARM_DATE}) . " (" .
+ $result .= "
- ".&mt('to')." " . ctime($vars->{PARM_DATE}) . " (" .
Apache::lonnavmaps::timeToHumanString($vars->{PARM_DATE})
. ")
\n";
}
@@ -3228,7 +3233,7 @@ sub render {
$result .= "\n";
$result .= "\n";
- $result .= "
\n";
+ $result .= "
\n";
return $result;
}