loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.177, 2011/09/13 21:42:58	version 1.179, 2011/09/16 22:23:54
Line 279 sub end_foilgroup {	Line 279 sub end_foilgroup {
}	}
$temp += $numrows;	$temp += $numrows;
} else {	} else {
	$response=&Apache::response::getresponse($temp);
if ($response=~/\S/) {	if ($response=~/\S/) {
$response = $opt[$response];	$response = $opt[$response];
}	}
$temp ++;	$temp ++;
}	}
} else {	} else {
	$response=&Apache::response::getresponse($temp);
$temp ++;	$temp ++;
}	}
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
Line 912 sub end_foil {	Line 914 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>'));
}
&Apache::lonxml::debug("Using a name of :$name:");	&Apache::lonxml::debug("Using a name of :$name:");
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>'));