loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.227, 2008/07/26 15:06:43	version 1.227.2.2, 2008/09/13 02:46:59
Line 447 sub check_submission {	Line 447 sub check_submission {
}	}
} elsif ($tag eq 'numericalresponse') {	} elsif ($tag eq 'numericalresponse') {
$$args_ref{'type'}='float';	$$args_ref{'type'}='float';
	} elsif ($tag eq 'stringresponse') {
	if ($$args_ref{'type'} eq '') {
	$$args_ref{'type'} = 'ci';
	}
}	}

&add_in_tag_answer($parstack,$safeeval);	&add_in_tag_answer($parstack,$safeeval);

if (!%answer) {	if (!%answer) {
Line 1171 sub end_stringresponse {	Line 1175 sub end_stringresponse {
my @args = ('type');	my @args = ('type');
my $args_ref = &setup_capa_args($safeeval,$parstack,	my $args_ref = &setup_capa_args($safeeval,$parstack,
\@args,$response);	\@args,$response);
	if ($$args_ref{'type'} eq '') {
	$$args_ref{'type'} = 'ci';
	}
&add_in_tag_answer($parstack,$safeeval);	&add_in_tag_answer($parstack,$safeeval);
my (@final_awards,@final_msgs,@names);	my (@final_awards,@final_msgs,@names);
foreach my $name (keys(%answer)) {	foreach my $name (keys(%answer)) {