version 1.109, 2003/06/23 21:42:07
|
version 1.114, 2003/07/10 06:16:29
|
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 892 sub assessparms {
|
Line 898 sub assessparms {
|
|
|
&startpage($r,$id,$udom,$csec,$uname,$have_assesments); |
&startpage($r,$id,$udom,$csec,$uname,$have_assesments); |
|
|
if (!$have_assesments) { return ''; } |
if (!$have_assesments) { |
|
untie(%bighash); |
|
untie(%parmhash); |
|
return ''; |
|
} |
# if ($ENV{'form.url'}) { |
# if ($ENV{'form.url'}) { |
# $r->print('<input type="hidden" value="'.$ENV{'form.url'}. |
# $r->print('<input type="hidden" value="'.$ENV{'form.url'}. |
# '" name="url"><input type="hidden" name="command" value="set">'); |
# '" name="url"><input type="hidden" name="command" value="set">'); |
Line 1519 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' |
|
=> '<b>Anonimous quiz/exam</b><br />'. |
|
' (<tt><b>yes</b> to avoid print students names </tt>)', |
'default_enrollment_start_date' => '<b>Default beginning date '. |
'default_enrollment_start_date' => '<b>Default beginning date '. |
'when enrolling students</b>', |
'when enrolling students</b>', |
'default_enrollment_end_date' => '<b>Default ending date '. |
'default_enrollment_end_date' => '<b>Default ending date '. |