loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.218, 2010/06/20 12:42:44	version 1.219, 2010/10/14 19:54:56
Line 280 sub meta_response_order {	Line 280 sub meta_response_order {
}	}

sub check_for_previous {	sub check_for_previous {
my ($curresponse,$partid,$id,$last) = @_;	my ($curresponse,$partid,$id,$last,$type) = @_;
my %previous;	my %previous;
$previous{'used'} = 0;	$previous{'used'} = 0;
foreach my $key (sort(keys(%Apache::lonhomework::history))) {	foreach my $key (sort(keys(%Apache::lonhomework::history))) {
Line 305 sub check_for_previous {	Line 305 sub check_for_previous {
if (! $previous{'award'} ) { $previous{'award'} = 'UNKNOWN'; }	if (! $previous{'award'} ) { $previous{'award'} = 'UNKNOWN'; }
if ($previous{'award'} eq 'INTERNAL_ERROR') { $previous{'used'}=0; }	if ($previous{'award'} eq 'INTERNAL_ERROR') { $previous{'used'}=0; }
&Apache::lonxml::debug("got a match :$previous{'award'}:$previous{'used'}:");	&Apache::lonxml::debug("got a match :$previous{'award'}:$previous{'used'}:");
}	} elsif ($type eq 'ci') {
	if (lc($pastresponse) eq lc($curresponse)) {
	if ($key =~ /^(\d+):/) {
	push (@{$previous{'versionci'}},$1);
	$previous{'awardci'} = $Apache::lonhomework::history{"resource.$partid.$id.awarddetail"};
	$previous{'usedci'} = 1;
	}
	}
	}
}	}
}	}
&Apache::lonhomework::showhash(%previous);	&Apache::lonhomework::showhash(%previous);