--- loncom/interface/lonparmset.pm 2006/06/23 03:14:00 1.314 +++ loncom/interface/lonparmset.pm 2006/07/03 12:59:58 1.319 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.314 2006/06/23 03:14:00 albertel Exp $ +# $Id: lonparmset.pm,v 1.319 2006/07/03 12:59:58 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1057,15 +1057,15 @@ sub parmmenu { ENDSCRIPT $r->print(); - $r->print("\n
'); $cnt++; if ($cnt==3) { $r->print(" | |||||||||||||||||||||||||||||||||||||||||||||||||
+ | |||||||||||||||||||||||||||||||||||||||||||||||||
Select All Select Common Only |
@@ -2078,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'},
@@ -2183,6 +2187,8 @@ sub crsenv {
' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'.
' Tabloid [11x17 in], Executive [7 1/2x10 in], A2 [420x594 mm],'.
' A3 [297x420 mm], A4 [210x297 mm], A5 [148x210 mm], A6 [105x148 mm])',
+ 'print_header_format'
+ => 'Print header format; substitutions: %n student name %c course id %a assignment',
'anonymous_quiz'
=> ''.&mt('Anonymous quiz/exam').' '. ' ('.&mt('yes').' '.&mt('to avoid print students names').' )', @@ -2223,6 +2229,7 @@ sub crsenv { 'problem_stream_switch', 'suppress_tries', 'default_paper_size', + 'print_header_format', 'disable_receipt_display', 'spreadsheet_default_classcalc', 'spreadsheet_default_studentcalc', @@ -2243,13 +2250,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 .= ' '.$description.' | ';
+ $output .= &Apache::loncommon::start_data_table_row().
+ ''.$description.' | ';
if ($parameter =~ /^default_enrollment_(start|end)_date$/) {
$output .= ''.
&Apache::lonhtmlcommon::date_setter('envform',
@@ -2266,17 +2275,19 @@ sub crsenv {
$output .= ' | '.
&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
' | ';
- $output .= "'.&mt('Create New Environment Variable').' | '. + $output.=&Apache::loncommon::start_data_table_row(). + ' '.&mt('Create New Environment Variable').' | '. ' '.
' | '.
- ' | | '.
+ &Apache::loncommon::end_data_table_row()."\n";
}
my %lt=&Apache::lonlocal::texthash(
'par' => 'Parameter',
@@ -2298,16 +2309,18 @@ sub crsenv {
$browse_js);
my $end_page =
&Apache::loncommon::end_page();
+ my $end_table=&Apache::loncommon::end_data_table();
$r->print(<
$lt{'par'} | $lt{'val'} | $lt{'set'}? | $lt{'par'} | $lt{'val'} | $lt{'set'}? | +$end_header_row $output -
---|
');
+ $r->print('
|