version 1.113, 2003/06/30 20:24:26
|
version 1.116, 2003/07/16 19:36:02
|
Line 488 sub print_row {
|
Line 488 sub print_row {
|
sub print_td { |
sub print_td { |
my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_; |
my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_; |
$r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg). |
$r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg). |
' align="center">'. |
' align="center">'); |
&plink($$typeoutpar[$which],$$display{$value},$$outpar[$which], |
if ($which<10) { |
$mprefix."$which",'parmform.pres','psub').'</td>'."\n"); |
$r->print(&plink($$typeoutpar[$which], |
|
$$display{$value},$$outpar[$which], |
|
$mprefix."$which",'parmform.pres','psub')); |
|
} else { |
|
$r->print(&valout($$outpar[$which],$$typeoutpar[$which])); |
|
} |
|
$r->print('</td>'."\n"); |
} |
} |
|
|
sub get_env_multiple { |
sub get_env_multiple { |
Line 852 sub assessparms {
|
Line 858 sub assessparms {
|
$message.="<font color=red>Write Error: $1</font>"; |
$message.="<font color=red>Write Error: $1</font>"; |
} |
} |
# ---------------------------------------------------------------- Done storing |
# ---------------------------------------------------------------- Done storing |
$message.='<h3>Changes can take up to 10 minutes before being active for all students</h3>'; |
$message.='<h3>Changes can take up to 10 minutes before being active for all students.'.&Apache::loncommon::help_open_topic('Caching').'</h3>'; |
} |
} |
# --------------------------------------------- Devalidate cache for this child |
# --------------------------------------------- Devalidate cache for this child |
&Apache::lonnet::devalidatecourseresdata( |
&Apache::lonnet::devalidatecourseresdata( |
Line 1523 sub crsenv {
|
Line 1529 sub crsenv {
|
'have different numbers and answers</font>', |
'have different numbers and answers</font>', |
'problem_stream_switch' |
'problem_stream_switch' |
=> '<b>Allow problems to be split over pages</b><br />'. |
=> '<b>Allow problems to be split over pages</b><br />'. |
' ("<tt>yes</tt>" if allowed, anything else if not)',, |
' ("<tt>yes</tt>" if allowed, anything else if not)', |
'anonymous_quiz' |
'anonymous_quiz' |
=> '<b>Anonimous quiz/exam</b><br />'. |
=> '<b>Anonimous quiz/exam</b><br />'. |
' (<tt><b>yes</b> to avoid print students names </tt>)', |
' (<tt><b>yes</b> to avoid print students names </tt>)', |
Line 1531 sub crsenv {
|
Line 1537 sub crsenv {
|
'when enrolling students</b>', |
'when enrolling students</b>', |
'default_enrollment_end_date' => '<b>Default ending date '. |
'default_enrollment_end_date' => '<b>Default ending date '. |
'when enrolling students</b>', |
'when enrolling students</b>', |
'languages' => '<b>Languages used</b>' |
'languages' => '<b>Languages used</b>', |
|
'disable_receipt_display' |
|
=> '<b>Disable display of problem receipts</b><br />'. |
|
' ("<tt>yes</tt>" to disable, anything else if not)' |
); |
); |
my @Display_Order = ('url','description','courseid', |
my @Display_Order = ('url','description','courseid', |
'default_xml_style','pageseparators', |
'default_xml_style','pageseparators', |
Line 1541 sub crsenv {
|
Line 1550 sub crsenv {
|
'languages', |
'languages', |
'rndseed', |
'rndseed', |
'problem_stream_switch', |
'problem_stream_switch', |
|
'disable_receipt_display', |
'spreadsheet_default_classcalc', |
'spreadsheet_default_classcalc', |
'spreadsheet_default_studentcalc', |
'spreadsheet_default_studentcalc', |
'spreadsheet_default_assesscalc', |
'spreadsheet_default_assesscalc', |