![[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|
Return to grades.pm CVS log | Up to [LON-CAPA] / loncom / homework |
| version 1.281, 2005/08/30 14:52:51 | version 1.282, 2005/09/01 15:23:23 |
|---|---|
| Line 471 sub most_similar { | Line 471 sub most_similar { |
| $uessay=~s/\W+/ /gs; | $uessay=~s/\W+/ /gs; |
| # ignore empty submissions (occuring when only files are sent) | |
| unless ($uessay=~/\w+/) { return ''; } | |
| # these will be returned. Do not care if not at least 50 percent similar | # these will be returned. Do not care if not at least 50 percent similar |
| my $limit=0.6; | my $limit=0.6; |
| my $sname=''; | my $sname=''; |