| Select Map | '."\n"; - $Ptr .= ''; - $Ptr .= &Apache::lonhtmlcommon::MapOptions(\%cache, 'ProblemStatistics', - 'Statistics'); - $Ptr .= ' |
| Sorting Type: | '."\n"; - $Ptr .= ''."\n"; - $Ptr .= &Apache::lonhtmlcommon::AscendOrderOptions( - $cache{'ProblemStatisticsAscend'}, - 'ProblemStatistics', - 'Statistics'); - $Ptr .= ' |
| P# | '."\n"; - for(my $nIndex=0; $nIndex < (scalar (keys %$headings)); $nIndex++) { - $Result .= ''.''.' | '."\n"; +=item &CreateInterface() + +Create the main intereface for the statistics page. Allows the user to +select sections, maps, and output. + +=cut + +############################################### +############################################### +sub CreateInterface { + my $Str = ''; + $Str .= '
|---|
| Sections | '; + $Str .= 'Enrollment Status | '; + $Str .= 'Sequences and Folders | '; + $Str .= 'Output | '; + $Str .= '
| '."\n"; + $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); + $Str .= ' | '; + $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); + $Str .= ' | '; + # + my $only_seq_with_assessments = sub { + my $s=shift; + if ($s->{'num_assess'} < 1) { + return 0; + } else { + return 1; + } + }; + $Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5, + $only_seq_with_assessments); + $Str .= ' | '."\n"; + $Str .= &CreateAndParseOutputSelector(); + $Str .= ' |
| '."\n");
+ $r->print(' |
| '."\n");
+ $r->print(' |
| '."\n");
+ $r->print(' |
".&DrawGraph(\@Data,$title,'Problem Number',$yaxis, + $Max)."
\n"); + # + # Print out the data + $ENV{'form.sortby'} = 'Contents'; +# &output_html_ungrouped($r); + return; +} - return $Ptr; +############################################### +############################################### + +=pod + +=item &DrawGraph() + +=cut + +############################################### +############################################### +sub DrawGraph { + my ($values,$title,$xaxis,$yaxis,$Max)=@_; + $title = '' if (! defined($title)); + $xaxis = '' if (! defined($xaxis)); + $yaxis = '' if (! defined($yaxis)); + # + my $sendValues = join(',', @$values); + my $sendCount = scalar(@$values); + $Max =1 if ($Max < 1); + if ( int($Max) < $Max ) { + $Max++; + $Max = int($Max); + } + my @GData = ($title,$xaxis,$yaxis,$Max,$sendCount,$sendValues); + return ').')
';
+}
+
+sub get_statistics {
+ my ($sequence,$resource,$part,$problem_num) = @_;
+ #
+ my $symb = $resource->{'symb'};
+ my $courseid = $ENV{'request.course.id'};
+ #
+ my $students = \@Apache::lonstatistics::Students;
+ if ($Apache::lonstatistics::SelectedSections[0] eq 'all') {
+ $students = undef;
+ }
+ my $data = &Apache::loncoursedata::get_problem_statistics
+ ($students,$symb,$part,$courseid);
+ $data->{'part'} = $part;
+ $data->{'problem_num'} = $problem_num;
+ $data->{'container'} = $sequence->{'title'};
+ $data->{'title'} = $resource->{'title'};
+ $data->{'title.link'} = $resource->{'src'}.'?symb='.
+ &Apache::lonnet::escape($resource->{'symb'});
+ #
+ return $data;
}
+###############################################
+###############################################
+
+=pod
+
+=item &ProblemStatisticsLegend()
+
+=cut
+
+###############################################
+###############################################
sub ProblemStatisticsLegend {
my $Ptr = '';
$Ptr = '| '; $Ptr .= '#Stdnts | '; - $Ptr .= 'Total Number of Students opened the problem.'; + $Ptr .= ' | Total number of students attempted the problem.'; $Ptr .= ' |
| '; $Ptr .= 'Tries | '; - $Ptr .= 'Total Number of Tries for solving the problem.'; + $Ptr .= ' | Total number of tries for solving the problem.'; $Ptr .= ' |
| '; - $Ptr .= 'Mod | '; - $Ptr .= 'Maximunm Number of Tries for solving the problem.'; + $Ptr .= 'Max Tries | '; + $Ptr .= 'Largest number of tries for solving the problem by a student.'; $Ptr .= ' |
| '; $Ptr .= 'Mean | '; - $Ptr .= 'Average Number of the tries. [ Tries / #Stdnts ]'; + $Ptr .= ' | Average number of tries. [ Tries / #Stdnts ]'; $Ptr .= ' |
| '; $Ptr .= '#YES | '; $Ptr .= 'Number of students solved the problem correctly.'; @@ -704,9 +920,9 @@ sub ProblemStatisticsLegend { $Ptr .= '#yes | '; $Ptr .= 'Number of students solved the problem by override.'; $Ptr .= ' |
| '; - $Ptr .= '%Wrng | '; - $Ptr .= 'Percentage of students tried to solve the problem '; - $Ptr .= 'but still incorrect. [ 100*((#Stdnts-(#YES+#yes))/#Stdnts) ]'; + $Ptr .= '%Wrong | '; + $Ptr .= 'Percentage of students who tried to solve the problem '; + $Ptr .= 'but is still incorrect. [ 100*((#Stdnts-(#YES+#yes))/#Stdnts) ]'; $Ptr .= ' |
| '; $Ptr .= 'DoDiff | '; $Ptr .= 'Degree of Difficulty of the problem. '; @@ -724,8 +940,8 @@ sub ProblemStatisticsLegend { $Ptr .= 'Dis.F. | '; $Ptr .= 'Discrimination Factor: A Standard for evaluating the ';
$Ptr .= 'problem according to a Criterion '; - $Ptr .= '[Applied Criterion in %27 Upper Students - '; - $Ptr .= 'Applied the same Criterion in %27 Lower Students] '; + $Ptr .= '[Criterion to group students into %27 Upper Students - '; + $Ptr .= 'and %27 Lower Students] '; $Ptr .= '1st Criterion for Sorting the Students: '; $Ptr .= 'Sum of Partial Credit Awarded / Total Number of Tries '; $Ptr .= '2nd Criterion for Sorting the Students: '; @@ -734,151 +950,10 @@ sub ProblemStatisticsLegend { $Ptr .= ' |
| Disc. | '; $Ptr .= 'Number of Students had at least one discussion.'; $Ptr .= ' |
');
-
- 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__