'.
@@ -1154,7 +1162,7 @@ ENDTABLEHEADFOUR
' '.
"$bighash{'title_'.$rid}");
+ " TARGET=_self>$title");
if ($thistitle) {
$r->print(' ('.$thistitle.')');
@@ -1269,20 +1277,22 @@ ENDMAPONE
('firstname','middlename','lastname','generation', 'id'));
my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
.$name{'lastname'}.' '.$name{'generation'};
- $r->print("User $uname \($person\) in \n");
+ $r->print(&mt("User")." $uname \($person\) ".
+ &mt('in')." \n");
} else {
- $r->print("all users in \n");
+ $r->print("".&mt('all').' '.&mt('users in')." \n");
}
- if ($csec) {$r->print("Section $csec of \n")};
+ if ($csec) {$r->print(&mt("Section")." $csec ".
+ &mt('of')." \n")};
$r->print("$coursename ");
$r->print("\n");
#---------------------------------------------------------------- print table
$r->print('');
- $r->print('Parameter Name | ');
- $r->print('Default Value | ');
- $r->print('Parameter in Effect | ');
+ $r->print(''.&mt('Parameter Name').' | ');
+ $r->print(''.&mt('Default Value').' | ');
+ $r->print(''.&mt('Parameter in Effect').' | ');
foreach (sort keys %name) {
&print_row($r,$_,\%part,\%name,$mapid,\%default,
@@ -1348,18 +1358,18 @@ ENDMAPONE
('firstname','middlename','lastname','generation', 'id'));
my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
.$name{'lastname'}.' '.$name{'generation'};
- $r->print(" User $uname \($person\) \n");
+ $r->print(" ".&mt("User")." $uname \($person\) \n");
} else {
- $r->print("ALL USERS \n");
+ $r->print("".&mt("ALL")." ".&mt("USERS")." \n");
}
- if ($csec) {$r->print("Section $csec\n")};
+ if ($csec) {$r->print(&mt("Section")." $csec\n")};
$r->print("\n");
#---------------------------------------------------------------- print table
$r->print('');
- $r->print('Parameter Name | ');
- $r->print('Default Value | ');
- $r->print('Parameter in Effect | ');
+ $r->print(''.&mt('Parameter Name').' | ');
+ $r->print(''.&mt('Default Value').' | ');
+ $r->print(''.&mt('Parameter in Effect').' | ');
foreach (sort keys %name) {
&print_row($r,$_,\%part,\%name,$mapid,\%default,
@@ -1415,7 +1425,7 @@ sub crsenv {
my $bkuptime=time;
my @tmp = &Apache::lonnet::get
('environment',['url'],$dom,$crs);
- $setoutput.='Backing up previous URL: '.
+ $setoutput.=&mt('Backing up previous URL').': '.
&Apache::lonnet::put
('environment',
{'top level map backup '.$bkuptime => $tmp[1] },
@@ -1454,10 +1464,10 @@ sub crsenv {
my $put_result = &Apache::lonnet::put('environment',
{$name=>$value},$dom,$crs);
if ($put_result eq 'ok') {
- $setoutput.='Set '.$name.' to '.$value.'. ';
+ $setoutput.=&mt('Set').' '.$name.' '.&mt('to').' '.$value.'. ';
} else {
- $setoutput.='Unable to set '.$name.' to '.
- ''.$value.' due to '.$put_result.'. ';
+ $setoutput.=&mt('Unable to set').' '.$name.' '.&mt('to').
+ ' '.$value.' '.&mt('due to').' '.$put_result.'. ';
}
}
}
@@ -1608,7 +1618,7 @@ sub crsenv {
my $onchange = 'onFocus="javascript:window.document.forms'.
'[\'envform\'].elements[\'newp_setparmval\']'.
'.checked=true;"';
- $output.='Create New Environment Variable '.
+ $output.=' | '.&mt('Create New Environment Variable').' '.
' | '.
'
ENDENV
}
+##################################################
+
+my $tableopen;
+
+sub tablestart {
+ if ($tableopen) {
+ return '';
+ } else {
+ $tableopen=1;
+ return ''.&mt('Parameter').' | '.
+ &mt('Delete').' | '.&mt('Set to ...').' | ';
+ }
+}
+
+sub tableend {
+ if ($tableopen) {
+ $tableopen=0;
+ return ' ';
+ } else {
+ return'';
+ }
+}
+
+sub overview {
+ my $r=shift;
+ my $bodytag=&Apache::loncommon::bodytag(
+ 'Set/Modify Course Assessment Parameters');
+ my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
+ my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
+ $r->print(<
+
+LON-CAPA Course Environment
+
+$bodytag
+ | |