loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.211, 2009/03/06 16:13:29	version 1.212, 2009/03/13 00:34:20
Line 283 sub check_for_previous {	Line 283 sub check_for_previous {
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\.\Q$partid\E\.\Q$id\E\.submission$/) {
if ( $last && $key =~ /^(\d+):/ ) {	if ( $last && $key =~ /^(\d+):/ ) {
next if ($1 >= $last);	next if ($1 >= $last);
}	}