loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.112, 2003/06/24 21:35:24	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 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'