');
if (($prevvisit) || ($pschp) || ($pssymb)) {
- $submitmessage = "Update Course Assessment Parameter Display";
+ $submitmessage = &mt("Update Course Assessment Parameter Display");
} else {
- $submitmessage = "Set Course Assessment Parameters";
+ $submitmessage = &mt("Set/Modify Course Assessment Parameters");
}
$r->print('');
@@ -1063,10 +1076,10 @@ sub assessparms {
my $coursespan=$csec?8:5;
$r->print('');
$r->print(' | ');
- $r->print('Any User | ');
+ $r->print(''.&mt('Any User').' | ');
if ($uname) {
$r->print("");
- $r->print("User $uname at Domain $udom | ");
+ $r->print(&mt("User")." $uname ".&mt('at Domain')." $udom");
}
$r->print(<Parameter in Effect
@@ -1085,11 +1098,11 @@ ENDTABLETWO
ENDTABLEHEADFOUR
if ($csec) {
- $r->print('general | for Enclosing Map or Folder | for Resource | ');
+ $r->print(''.&mt('general').' | '.&mt('for Enclosing Map or Folder').' | '.&mt('for Resource').' | ');
}
if ($uname) {
- $r->print('general | for Enclosing Map or Folder | for Resource | ');
+ $r->print(''.&mt('general').' | '.&mt('for Enclosing Map or Folder').' | '.&mt('for Resource').' | ');
}
$r->print(' ');
@@ -1140,7 +1153,8 @@ ENDTABLEHEADFOUR
my $totalparms=scalar keys %name;
if ($totalparms>0) {
my $firstrow=1;
-
+ my $title=$bighash{'title_'.$rid};
+ $title=~s/\:/:/g;
$r->print(''.
@@ -1148,7 +1162,7 @@ ENDTABLEHEADFOUR
' '.
"$bighash{'title_'.$rid}");
+ " TARGET=_self>$title");
if ($thistitle) {
$r->print(' ('.$thistitle.')');
@@ -1263,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,
@@ -1342,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,
@@ -1409,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] },
@@ -1448,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.'. ';
}
}
}
@@ -1474,6 +1490,10 @@ sub crsenv {
'description' => 'Course Description',
'courseid' => 'Course ID or number '.
'(internal, optional)',
+ 'grading' => 'Grading'.
+ '"standard" or any other value. '.
+ 'Default for new courses is "standard".',
+
'default_xml_style' => 'Default XML Style File '.
' 'Visibly Separate Items on Pages '.
'("yes" for visible separation, '.
'changes will not show until next login)',
+
+ 'plc.roles.denied'=> 'Disallow live chatroom use for '.
+ 'Roles "st": '.
+ 'student, "ta": '.
+ 'TA, "in": '.
+ 'instructor; role,role,...) '.
+ Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
+ 'plc.users.denied' =>
+ 'Disallow live chatroom use for Users '.
+ '(user:domain,user:domain,...)',
+
'pch.roles.denied'=> 'Disallow Resource Discussion for '.
'Roles "st": '.
'student, "ta": '.
@@ -1523,7 +1554,7 @@ sub crsenv {
'have different numbers and answers',
'problem_stream_switch'
=> 'Allow problems to be split over pages '.
- ' ("yes" if allowed, anything else if not)',,
+ ' ("yes" if allowed, anything else if not)',
'anonymous_quiz'
=> 'Anonimous quiz/exam '.
' (yes to avoid print students names )',
@@ -1531,16 +1562,21 @@ sub crsenv {
'when enrolling students',
'default_enrollment_end_date' => 'Default ending date '.
'when enrolling students',
- 'languages' => 'Languages used'
+ 'languages' => 'Languages used',
+ 'disable_receipt_display'
+ => 'Disable display of problem receipts '.
+ ' ("yes" to disable, anything else if not)'
);
- my @Display_Order = ('url','description','courseid',
+ my @Display_Order = ('url','description','courseid','grading',
'default_xml_style','pageseparators',
'question.email','comment.email','policy.email',
+ 'plc.roles.denied','plc.users.denied',
'pch.roles.denied','pch.users.denied',
'allow_limited_html_in_feedback',
'languages',
'rndseed',
'problem_stream_switch',
+ 'disable_receipt_display',
'spreadsheet_default_classcalc',
'spreadsheet_default_studentcalc',
'spreadsheet_default_assesscalc',
@@ -1582,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
+ | | |