loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.244, 2011/01/25 04:30:13	version 1.245, 2011/02/02 18:48:06
Line 1231 sub end_stringresponse {	Line 1231 sub end_stringresponse {
my ($result, @msgs)=&Apache::run::run("&caparesponse_check_list()",$safeeval);	my ($result, @msgs)=&Apache::run::run("&caparesponse_check_list()",$safeeval);
if ($$args_ref{'type'} =~ /^c[si]$/) {	if ($$args_ref{'type'} =~ /^c[si]$/) {
$ansstring{$name} = pop(@msgs);	$ansstring{$name} = pop(@msgs);
}
if ($$args_ref{'type'} =~ /^c[si]$/) {
my $control_chars_removed = pop(@msgs);	my $control_chars_removed = pop(@msgs);
my $error = pop(@msgs);	my $error = pop(@msgs);
if (($error ne '') \|\|	if (($error ne '') \|\|
($control_chars_removed ne '')) {	($control_chars_removed)) {
my ($symb,$courseid,$sdomain,$sname) =	my ($symb,$courseid,$sdomain,$sname) =
&Apache::lonnet::whichuser();	&Apache::lonnet::whichuser();
if ($control_chars_removed ne '') {	if ($control_chars_removed) {
my $showresponse = $response;	my $showresponse = $response;
if ($response =~ /[\000-\037]/) {	if ($response =~ /[\000-\037]/) {
$response =~ s/[\000-\037]//g;	$response =~ s/[\000-\037]//g;