--- loncom/interface/lonhelper.pm 2004/03/31 05:23:59 1.67 +++ loncom/interface/lonhelper.pm 2004/04/20 15:08:26 1.69 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # .helper XML handler to implement the LON-CAPA helper # -# $Id: lonhelper.pm,v 1.67 2004/03/31 05:23:59 albertel Exp $ +# $Id: lonhelper.pm,v 1.69 2004/04/20 15:08:26 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -263,21 +263,8 @@ sub real_handler { # Send header, don't cache this page - if ($r->header_only) { - if ($ENV{'browser.mathml'}) { - $r->content_type('text/xml; charset=UTF-8'); - } else { - $r->content_type('text/html; charset=UTF-8'); - } - $r->send_http_header; - return OK; - } - if ($ENV{'browser.mathml'}) { - $r->content_type('text/xml'); - } else { - $r->content_type('text/html'); - } - $r->send_http_header; + + if (&Apache::lonhomework::setupheader($r)) { return OK; } $r->rflush(); # Discard result, we just want the objects that get created by the @@ -583,7 +570,7 @@ sub display { } # Phase 4: Display. - my $stateTitle = &mt($state->title()); + my $stateTitle=&mt($state->title()); my $helperTitle = &mt($self->{TITLE}); my $bodytag = &Apache::loncommon::bodytag($helperTitle,'',''); my $previous = HTML::Entities::encode(&mt("<- Previous"), '<>&"'); @@ -593,6 +580,30 @@ sub display { $result .= < + $loncapaHelper: $helperTitle @@ -998,8 +1009,8 @@ sub start_message { return ''; } - $paramHash->{MESSAGE_TEXT} = &Apache::lonxml::get_all_text('/message', - $parser); + $paramHash->{MESSAGE_TEXT} = &mtn(&Apache::lonxml::get_all_text('/message', + $parser)); if (defined($token->[2]{'nextstate'})) { $paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; @@ -1169,8 +1180,8 @@ sub start_choice { } my $computer = $token->[2]{'computer'}; - my $human = &Apache::lonxml::get_all_text('/choice', - $parser); + my $human = &mt(&Apache::lonxml::get_all_text('/choice', + $parser)); my $nextstate = $token->[2]{'nextstate'}; my $evalFlag = $token->[2]{'eval'}; push @{$paramHash->{CHOICES}}, [$human, $computer, $nextstate, @@ -1206,10 +1217,13 @@ SCRIPT # Only print "select all" and "unselect all" if there are five or # more choices; fewer then that and it looks silly. if ($self->{'multichoice'} && scalar(@{$self->{CHOICES}}) > 4) { + my %lt=&Apache::lonlocal::texthash( + 'sa' => "Select All", + 'ua' => "Unselect All"); $buttons = < - - + +
  BUTTONS } @@ -1276,6 +1290,7 @@ BUTTONS $choiceLabel = eval($choiceLabel); $choiceLabel = &$choiceLabel($helper, $self); } + &Apache::lonnet::logthis("TITLE TRANSLATION >$choiceLabel<"); $result .= "/> " . &mtn($choiceLabel) . "\n"; } $result .= "\n\n\n"; @@ -1893,10 +1908,14 @@ sub render { } SCRIPT + my %lt=&Apache::lonlocal::texthash( + 'sar' => "Select All Resources", + 'uar' => "Unselect All Resources"); + $buttons = <   - - + +
  BUTTONS } @@ -2104,16 +2123,21 @@ sub render { SCRIPT - my $selectAllStudents = &mt('Select All Students'); - my $unselectAllStudents = &mt('Unselect All Students'); + my %lt=&Apache::lonlocal::texthash( + 'ocs' => "Select Only Current Students", + 'sas' => "Select All Students", + 'uas' => "Unselect All Students", + 'sfsg' => "Select for Section/Group", + 'ufsg' => "Unselect for Section/Group"); + $buttons = < - - - - + + + +   - +
BUTTONS } @@ -2172,15 +2196,16 @@ BUTTONS } } - my $name = &mt($self->{'coursepersonnel'} ? 'Name' : 'Student Name'); + my $name = $self->{'coursepersonnel'} ? &mt('Name') : &mt('Student Name'); + &Apache::lonnet::logthis("THE NAME IS >$name<"); my $type = 'radio'; if ($self->{'multichoice'}) { $type = 'checkbox'; } $result .= "\n"; $result .= "". "" . - "" . - "" . - ""; + "" . + "" . + ""; my $checked = 0; for my $choice (@$choices) { @@ -2403,20 +2428,22 @@ sub render { } SCRIPT - my $selectAllFiles = &mt("Select All Files"); - my $unselectAllFiles = &mt("Unselect All Files"); - $buttons = < "Select All Files", + 'uaf' => "Unselect All Files"); + $buttons = <   - - + + BUTTONS - my $selectAllPublished = &mt("Select All Published"); - my $unselectAllPublished= &mt("UnselectAllPublished"); + %lt=&Apache::lonlocal::texthash( + 'sap' => "Select All Published", + 'uap' => "Unselect All Published"); if ($helper->{VARS}->{'construction'}) { - $buttons .= < - + $buttons .= < +
  BUTTONS } @@ -3042,6 +3069,7 @@ package Apache::lonhelper::parmwizfinal; no strict; @ISA = ('Apache::lonhelper::element'); use strict; +use Apache::lonlocal; BEGIN { &Apache::lonhelper::register('Apache::lonhelper::parmwizfinal', @@ -3121,7 +3149,7 @@ sub render { } my $result = "
\n"; - $result .= '

Confirm that this information is correct, then click "Finish Helper" to complete setting the parameter.

    '; + $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}} . '';
$name" . &mt('Section') . "Status" . &mt("Role") . "
Username:Domain
".&mt('Status')."" . &mt("Role") . "".&mt('Username').":".&mt('Domain')."