loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.147, 2010/12/19 04:24:29	version 1.149, 2011/06/07 17:27:37
Line 336 sub displayallfoils {	Line 336 sub displayallfoils {
my $i =0;	my $i =0;
my $id=$Apache::inputtags::response['-1'];	my $id=$Apache::inputtags::response['-1'];
my $part=$Apache::inputtags::part;	my $part=$Apache::inputtags::part;
my $lastresponse;
my ($lastresponse,$newvariation,$showanswer);	my ($lastresponse,$newvariation,$showanswer);
if ((($Apache::lonhomework::history{"resource.$part.type"} eq 'randomizetry') \|\|	if ((($Apache::lonhomework::history{"resource.$part.type"} eq 'randomizetry') \|\|
($Apache::lonhomework::type eq 'randomizetry')) &&	($Apache::lonhomework::type eq 'randomizetry')) &&
Line 816 sub end_foil {	Line 815 sub end_foil {
&Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.'));	&Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.'));
$name=$Apache::lonxml::curdepth;	$name=$Apache::lonxml::curdepth;
}	}
	if ($name eq "0") {
	&Apache::lonxml::error(&mt('Foil name [_1] is not supported. Please choose another name.','<b><tt>'.$name.'</tt></b>'));
	}
if (defined($Apache::response::foilnames{$name})) {	if (defined($Apache::response::foilnames{$name})) {
&Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.','<b><tt>'.$name.'</tt></b>'));	&Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.','<b><tt>'.$name.'</tt></b>'));
}	}