--- loncom/interface/lonparmset.pm 2003/10/09 16:30:00 1.132 +++ loncom/interface/lonparmset.pm 2003/10/10 16:56:16 1.133 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.132 2003/10/09 16:30:00 albertel Exp $ +# $Id: lonparmset.pm,v 1.133 2003/10/10 16:56:16 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -293,6 +293,19 @@ sub startpage { &Apache::loncommon::selectstudent_link('parmform','uname','udom'); my $selscript=&Apache::loncommon::studentbrowser_javascript(); my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); + my %lt=&Apache::lonlocal::texthash( + 'cep' => "Course Environment Parameters", + 'scep' => "Set Course Environment Parameters", + 'smcap' => "Set/Modify Course Assessment Parameter", + 'mcap' => "Modify Course Assessment Parameters", + 'caphm' => "Course Assessment Parameter - Helper Mode", + 'capom' => "Course Assessment Parameters - Overview Mode", + 'captm' => "Course Assessments Parameters - Table Mode", + 'sg' => "Section/Group", + 'fu' => "For User", + 'oi' => "or ID", + 'ad' => "at Domain" + ); $r->print(< @@ -343,37 +356,37 @@ $selscript $bodytag
-

Course Environment Parameters

- +

$lt{'cep'}

+
-

Course Assessment Parameter - Helper Mode

- +

$lt{'caphm'}

+
-

Course Assessment Parameters - Overview Mode

- +

$lt{'capom'}

+
-

Course Assessments Parameters - Table Mode

+

$lt{'captm'}

ENDHEAD if (!$have_assesments) { - $r->print('There are no assesment parameters in this course to set.
'); + $r->print(''.&mt('There are no assesment parameters in this course to set.').'
'); } else { $r->print(< -Section/Group: +$lt{'sg'}:
-For User +$lt{'fu'} -or ID +$lt{'oi'} -at Domain +$lt{'ad'} $chooseopt @@ -726,7 +739,8 @@ sub assessparms { $id=''; } else { $message= - "Unknown ID '$id' at domain '$udom'"; + "".&mt("Unknown ID")." '$id' ". + &mt('at domain')." '$udom'"; } } else { $uname=$ENV{'form.uname'}; @@ -737,24 +751,25 @@ sub assessparms { $uhome=&Apache::lonnet::homeserver($uname,$udom); if ($uhome eq 'no_host') { $message= - "Unknown user '$uname' at domain '$udom'"; + "".&mt("Unknown user")." '$uname' ". + &mt("at domain")." '$udom'"; $uname=''; } else { $csec=&Apache::lonnet::getsection($udom,$uname, $ENV{'request.course.id'}); if ($csec eq '-1') { $message="". - "User '$uname' at domain '$udom' not ". - "in this course"; + &mt("User")." '$uname' ".&mt("at domain")." '$udom' ". + &mt("not in this course").""; $uname=''; $csec=$ENV{'form.csec'}; } else { my %name=&Apache::lonnet::userenvironment($udom,$uname, ('firstname','middlename','lastname','generation','id')); - $message="\n

\nFull Name: ". + $message="\n

\n".&mt("Full Name").": ". $name{'firstname'}.' '.$name{'middlename'}.' ' .$name{'lastname'}.' '.$name{'generation'}. - "
\nID: ".$name{'id'}.'

'; + "
\n".&mt('ID').": ".$name{'id'}.'

'; } } } @@ -1081,20 +1096,38 @@ sub assessparms { $r->print(""); $r->print(&mt("User")." $uname ".&mt('at Domain')." $udom"); } + my %lt=&Apache::lonlocal::texthash( + 'pie' => "Parameter in Effect", + 'csv' => "Current Session Value", + 'at' => 'at', + 'rl' => "Resource Level", + 'ic' => 'in Course', + 'aut' => "Assessment URL and Title", + 'type' => 'Type', + 'emof' => "Enclosing Map or Folder", + 'part' => 'Part', + 'pn' => 'Parameter Name', + 'def' => 'default', + 'femof' => 'from Enclosing Map or Folder', + 'gen' => 'general', + 'foremf' => 'for Enclosing Map or Folder', + 'fr' => 'for Resource' + ); $r->print(<Parameter in Effect -Current Session Value
($csuname at $csudom) -Resource Level -in Course +$lt{'pie'} +$lt{'csv'}
($csuname $lt{'at'} $csudom) +$lt{'rl'} +$lt{'ic'} ENDTABLETWO if ($csec) { - $r->print("in Section/Group $csec"); + $r->print("". + &mt("in Section/Group")." $csec"); } $r->print(<Assessment URL and TitleType -Enclosing Map or FolderPartParameter Name -defaultfrom Enclosing Map or Folder -generalfor Enclosing Map or Folderfor Resource +$lt{'aut'}$lt{'type'} +$lt{'emof'}$lt{'part'}$lt{'pn'} +$lt{'def'}$lt{'femof'} +$lt{'gen'}$lt{'foremf'}$lt{'fr'} ENDTABLEHEADFOUR if ($csec) { @@ -1264,7 +1297,7 @@ ENDTABLEHEADFOUR } # end loop through ids #---------------------------------------------------- print header information - my $foldermap=($maptitle=~/^uploaded/?'Folder':'Map'); + my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map'); my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':''); $r->print(<

@@ -1348,9 +1381,10 @@ ENDMAPONE } # end loop through ids #---------------------------------------------------- print header information + my $setdef=&mt("Set Defaults for All Resources in Course"); $r->print(<

-Set Defaults for All Resources in Course +

$setdef + $coursename
ENDMAPONE if ($uname) {