--- loncom/interface/lonparmset.pm 2006/05/18 01:08:51 1.307
+++ loncom/interface/lonparmset.pm 2006/06/23 05:05:33 1.315
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.307 2006/05/18 01:08:51 raeburn Exp $
+# $Id: lonparmset.pm,v 1.315 2006/06/23 05:05:33 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -65,6 +65,7 @@ use Apache::lonlocal;
use Apache::lonnavmaps;
use Apache::longroup;
use Apache::lonrss;
+use LONCAPA;
# --- Caches local to lonparmset
@@ -493,7 +494,7 @@ sub storeparm_by_symb_inner {
}
if ($reply=~/^error\:(.*)/) {
- return "Write Error: $1";
+ return "Write Error: $1";
}
return '';
}
@@ -701,7 +702,7 @@ sub print_row {
}
my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');
if ($automatic) {
- $parm.='
'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'';
+ $parm.='
'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'';
}
$r->print('
'.
"$title");
@@ -2076,6 +2078,10 @@ sub crsenv {
}
}
}
+
+ my $start_table =&Apache::loncommon::start_data_table();
+ my $start_header_row=&Apache::loncommon::start_data_table_header_row();
+ my $end_header_row =&Apache::loncommon::end_data_table_header_row();
# ------------------------- Re-init course environment entries for this session
&Apache::lonnet::coursedescription($env{'request.course.id'},
@@ -2092,9 +2098,9 @@ sub crsenv {
('url' => ''.&mt('Top Level Map').' '.
'".
- &mt('Select Map').'
-
'.
+ &mt('Select Map').'
'.
&mt('Modification may make assessment data inaccessible').
- '',
+ '',
'description' => ''.&mt('Course Description').'',
'courseid' => ''.&mt('Course ID or number').
'
'.
@@ -2165,8 +2171,8 @@ sub crsenv {
'('.&mt('or set value to "[_1]" to allow all roles',"yes").')',
'rndseed'
=> ''.&mt('Randomization algorithm used').'
'.
- ''.&mt('Modifying this will make problems').' '.
- &mt('have different numbers and answers').'',
+ ''.&mt('Modifying this will make problems').' '.
+ &mt('have different numbers and answers').'',
'receiptalg'
=> ''.&mt('Receipt algorithm used').'
'.
&mt('This controls how receipt numbers are generated.'),
@@ -2192,6 +2198,8 @@ sub crsenv {
'disable_receipt_display'
=> ''.&mt('Disable display of problem receipts').'
'.
' ('.&mt('"[_1]" to disable, anything else if not','yes').')',
+ 'task_messages'
+ => ''.&mt('Send message to student when clicking Done on Tasks. [_1] to send a message only to student, [_2] to send message to student and add record to user information page for instructors. Leave blank to disable.','only_student','student_and_user_notes_screen').'',
'disablesigfigs'
=> ''.&mt('Disable checking of Significant Figures').'
'.
' ('.&mt('"[_1]" to disable, anything else if not','yes').')',
@@ -2228,7 +2236,8 @@ sub crsenv {
'default_enrollment_end_date',
'tthoptions',
'disablesigfigs',
- 'disableexampointprint'
+ 'disableexampointprint',
+ 'task_messages'
);
foreach my $parameter (sort(keys(%values))) {
unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./)) {
@@ -2238,13 +2247,15 @@ sub crsenv {
}
}
}
+
foreach my $parameter (@Display_Order) {
my $description = $descriptions{$parameter};
# onchange is javascript to automatically check the 'Set' button.
my $onchange = 'onFocus="javascript:window.document.forms'.
"['envform'].elements['".$parameter."_setparmval']".
'.checked=true;"';
- $output .= ' \n";
+ $output .= &Apache::loncommon::end_data_table_row()."\n";
}
my $onchange = 'onFocus="javascript:window.document.forms'.
'[\'envform\'].elements[\'newp_setparmval\']'.
'.checked=true;"';
- $output.=''.$description.' ';
+ $output .= &Apache::loncommon::start_data_table_row().
+ ''.$description.' ';
if ($parameter =~ /^default_enrollment_(start|end)_date$/) {
$output .= ''.
&Apache::lonhtmlcommon::date_setter('envform',
@@ -2261,17 +2272,19 @@ sub crsenv {
$output .= ' '.
&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
' ';
- $output .= " ';
+ ''.
+ &Apache::loncommon::end_data_table_row()."\n";
}
my %lt=&Apache::lonlocal::texthash(
'par' => 'Parameter',
@@ -2293,16 +2306,18 @@ sub crsenv {
$browse_js);
my $end_page =
&Apache::loncommon::end_page();
+ my $end_table=&Apache::loncommon::end_data_table();
$r->print(<'.&mt('Create New Environment Variable').'
'.
+ $output.=&Apache::loncommon::start_data_table_row().
+ ''.&mt('Create New Environment Variable').'
'.
''.
' '.
- '
-
+$end_table
$end_page
@@ -2389,8 +2404,8 @@ sub storedata {
$r->print('
+$start_table
+$start_header_row
+$lt{'par'} $lt{'val'} $lt{'set'}? $lt{'par'} $lt{'val'} $lt{'set'}?
+$end_header_row
$output
-
'.&mt('Stored modified parameter for').' '.
&Apache::loncommon::plainname($tuname,$tudom));
} else {
- $r->print(''.
- &mt('Error storing parameters').'
');
+ $r->print('
'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));
} else {
- $r->print(''.
- &mt('Error deleting parameters').'
');
+ $r->print('
'.&mt('Stored modified date for').' '.&Apache::loncommon::plainname($tuname,$tudom));
} else {
- $r->print(''.
- &mt('Error storing parameters').'
');
+ $r->print(''.&mt('Deleted [_1] parameter(s)
',$delentries));
} else {
- $r->print(''.
- &mt('Error deleting parameters').'
');
+ $r->print(''.&mt('Stored [_1] parameter(s)',$putentries/2).'
');
} else {
- $r->print(''.
- &mt('Error storing parameters').'
');
+ $r->print('