version 1.86, 2003/04/21 18:39:43
|
version 1.87, 2003/04/30 15:52:28
|
Line 46 use Apache::lonhomework;
|
Line 46 use Apache::lonhomework;
|
use Apache::loncoursedata; |
use Apache::loncoursedata; |
use Apache::lonmsg qw(:user_normal_msg); |
use Apache::lonmsg qw(:user_normal_msg); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
use String::Similarity; |
|
|
|
my %oldessays=(); |
|
|
# ----- These first few routines are general use routines.---- |
# ----- These first few routines are general use routines.---- |
# |
# |
Line 221 sub jscriptNform {
|
Line 224 sub jscriptNform {
|
} |
} |
|
|
#------------------ End of general use routines -------------------- |
#------------------ End of general use routines -------------------- |
|
|
|
# |
|
# Find most similar essay |
|
# |
|
|
|
sub most_similar { |
|
my ($uname,$udom,$uessay)=@_; |
|
|
|
# ignore spaces and punctuation |
|
|
|
$uessay=~s/\W+/ /gs; |
|
|
|
# these will be returned. Do not care if not at least 50 percent similar |
|
my $limit=0.5; |
|
my $sname=''; |
|
my $sdom=''; |
|
my $scrsid=''; |
|
my $sessay=''; |
|
# go through all essays ... |
|
foreach my $tkey (keys %oldessays) { |
|
my ($tname,$tdom,$tcrsid)=split(/\./,$tkey); |
|
# ... except the same student |
|
if (($tname ne $uname) && ($tdom ne $udom)) { |
|
my $tessay=$oldessays{$tkey}; |
|
$tessay=~s/\W+/ /gs; |
|
# String similarity gives up if not even limit |
|
my $tsimilar=&String::Similarity::similar($uessay,$tessay,$limit); |
|
# Found one |
|
if ($tsimilar>$limit) { |
|
$limit=$tsimilar; |
|
$sname=$tname; |
|
$sdom=$sdom; |
|
$scrsid=$tcrsid; |
|
$sessay=$oldessays{$tkey}; |
|
} |
|
} |
|
} |
|
if ($limit>0.5) { |
|
return ($sname,$sdom,$scrsid,$sessay,$limit); |
|
} else { |
|
return ('','','','',0); |
|
} |
|
} |
|
|
#------------------------------------------------------------------- |
#------------------------------------------------------------------- |
|
|
#------------------------------------ Receipt Verification Routines |
#------------------------------------ Receipt Verification Routines |