$nIndex) $sortedList[$nIndex]"); ($Problem,$tmp)=split(/\=/,$sortedList[$nIndex]); @Dis=split(/\+/,$tmp); my $Temp = $Problem; do { $nIndex++; $nStudent++; $Sum1 += $Dis[0]; $Sum2 += $Dis[1]; ($Problem,$tmp)=split(/\=/,$sortedList[$nIndex]); @Dis=split(/\+/,$tmp); } while ( $Problem eq $Temp && $nIndex < $Count ); $Proc{$Temp}=($Sum1/$nStudent).':'.($Sum2/$nStudent); # $r->print("
$nIndex) $Temp --> ($nStudent) $Proc{$Temp}"); $Sum1=0; $Sum2=0; $nStudent=0; } return %Proc; } #------- Creating Discimination factor sub Discriminant { my ($discriminant,$r)=@_; #$Apache::lonxml::debug=1; #&Apache::lonhomework::showhash(%$discriminant); #$Apache::lonxml::debug=0; my @discriminantKeys=keys(%$discriminant); my $Count = scalar @discriminantKeys; my $UpCnt = int(0.27*$Count); my $low=0; my $up=$Count-$UpCnt; my @UpList=(); my @LowList=(); $Count=0; foreach my $key (sort(@discriminantKeys)) { $Count++; if($low < $UpCnt || $Count > $up) { $low++; my $str=$discriminant->{$key}; foreach(split(/\&/,$str)){ if($_) { if($low<$UpCnt) { push(@LowList,$_); } else { push(@UpList,$_); } } } } } my %DisUp = &ProcessDiscriminant(\@UpList,$r); my %DisLow = &ProcessDiscriminant(\@LowList,$r); return (\%DisUp, \%DisLow); } #---- END Problem Statistics Web Page ---------------------------------------- #---- Problem Statistics Graph Web Page -------------------------------------- # ------------------------------------------- Prepare data for Graphical chart sub BuildDiffGraph { my ($r)=@_; my $graphData = &GetGraphData('DiffGraph', $r); $r->print('
');
return;
}
sub BuildWrongGraph {
my ($r)=@_;
my $graphData = &GetGraphData('WrongGraph', $r);
$r->print('');
return;
}
sub GetGraphData {
my ($ylab,$r,%GraphDat)=@_;
my $Col;
my $data='';
my $count = 0;
my $Max = 0;
my $cid=$ENV{'request.course.id'};
my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
"_$ENV{'user.domain'}_$cid\_graph.db";
foreach (keys %GraphDat) {delete $GraphDat{$_};}
if (-e "$GraphDB") {
if (tie(%GraphDat,'GDBM_File',"$GraphDB",&GDBM_READER,0640)) {
if ( $ylab eq 'DoDiff Graph' ) {
$ylab = 'Degree-of-Difficulty';
$Col = 0;
}
else {
$ylab = 'Wrong-Percentage';
$Col = 1;
}
foreach (sort NumericSort keys %GraphDat) {
my @Temp=split(/\:/,$GraphDat{$_});
my $inf = $Temp[$Col];
if ( $Max < $inf ) {$Max = $inf;}
$data .= $inf.',';
$count++;
}
if ( $Max > 1 ) {
$Max += (10 - $Max % 10);
$Max = int($Max);
}
else { $Max = 1; }
untie(%GraphDat);
my $Course = $ENV{'course.'.$cid.'.description'};
$Course =~ s/\ /"_"/eg;
my $GData=$Course.'&'.'Problems'.'&'.$ylab.'&'.
$Max.'&'.$count.'&'.$data;
}
else {
$r->print("Unable to tie hash to db file");
}
}
}
1;
__END__