loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.159, 2007/02/24 01:44:14	version 1.160, 2007/03/15 02:52:16
Line 265 sub meta_response_order {	Line 265 sub meta_response_order {
}	}

sub check_for_previous {	sub check_for_previous {
my ($curresponse,$partid,$id) = @_;	my ($curresponse,$partid,$id,$last) = @_;
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))) {
if ($key =~ /resource\.$partid\.$id\.submission$/) {	if ($key =~ /resource\.$partid\.$id\.submission$/) {
	if ( $last && $key =~ /^(\d+):/ ) {
	next if ($1 >= $last);
	}
&Apache::lonxml::debug("Trying $key");	&Apache::lonxml::debug("Trying $key");
my $pastresponse=$Apache::lonhomework::history{$key};	my $pastresponse=$Apache::lonhomework::history{$key};
if ($pastresponse eq $curresponse) {	if ($pastresponse eq $curresponse) {