|
version 1.106, 2003/06/21 00:39:46
|
version 1.107, 2003/06/23 21:14:55
|
|
Line 1264 KEYWORDS
|
Line 1264 KEYWORDS
|
| } else { |
} else { |
| for my $part (sort keys(%$handgrade)) { |
for my $part (sort keys(%$handgrade)) { |
| foreach (@$string) { |
foreach (@$string) { |
| my ($partid,$respid) = /^resource\.(\d+)\.(\d+)\.submission/; |
my ($partid,$respid) = /^resource\.(\w+)\.(\w+)\.submission/; |
| if ($part eq ($partid.'_'.$respid)) { |
if ($part eq ($partid.'_'.$respid)) { |
| my ($ressub,$subval) = split(/:/,$_,2); |
my ($ressub,$subval) = split(/:/,$_,2); |
| # Similarity check |
# Similarity check |
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework