|
version 1.97, 2004/03/31 05:23:59
|
version 1.98, 2004/05/07 17:20:19
|
|
Line 199 sub check_for_previous {
|
Line 199 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\.$partid\.$id\.submission$/) { |
| &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) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to response.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework