loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.167, 2010/08/23 04:43:04	version 1.170, 2010/08/23 11:54:31
Line 451 sub displayfoils {	Line 451 sub displayfoils {
$text='<b>'.$value.':</b> '.$text;	$text='<b>'.$value.':</b> '.$text;
}	}
} else {	} else {
$text=''.$text;	if (@whichopt > 1) {
	$text=''.$text;
	}
}	}
$result.=$text."\n";	$result.=$text."\n";
}	}
Line 466 sub displayfoils {	Line 468 sub displayfoils {
my $internal_counter=$Apache::lonxml::counter;	my $internal_counter=$Apache::lonxml::counter;
my $checkboxopt=&check_box_opt($target,$checkboxvalue,@opt);	my $checkboxopt=&check_box_opt($target,$checkboxvalue,@opt);
if ($checkboxopt) {	if ($checkboxopt) {
$result.='<br />'.&mt('Select all that are <b>[_1]</b>.',$checkboxopt);	$result.='<br />'.&mt('Choices: ').'<b>'.$opt[0].','.$opt[1].'</b>. '.
	&mt('Select all that are <b>[_1]</b>.',$checkboxopt);
}	}
foreach $name (@whichopt) {	foreach $name (@whichopt) {
my $text=$Apache::response::foilgroup{$name.'.text'};	my $text=$Apache::response::foilgroup{$name.'.text'};
Line 541 sub displayfoils {	Line 544 sub displayfoils {
}	}
if ($text=~s\|<drawoptionlist\s*/>\|$optionlist\|) {	if ($text=~s\|<drawoptionlist\s*/>\|$optionlist\|) {
if ($Apache::lonhomework::type ne 'exam') {	if ($Apache::lonhomework::type ne 'exam') {
$text=''.$text;	if (@whichopt > 1) {
	$text=''.$text;
	}
}	}
} else {	} else {
if ($Apache::lonhomework::type ne 'exam') {	if ($Apache::lonhomework::type ne 'exam') {