version 1.112, 2003/06/24 21:35:24
|
version 1.115, 2003/07/15 21:12:01
|
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 1521 sub crsenv {
|
Line 1527 sub crsenv {
|
=> '<b>Randomization algorithm used</b> <br />'. |
=> '<b>Randomization algorithm used</b> <br />'. |
'<font color="red">Modifying this will make problems '. |
'<font color="red">Modifying this will make problems '. |
'have different numbers and answers</font>', |
'have different numbers and answers</font>', |
'problem_split' |
'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', |