--- loncom/interface/statistics/lonpercentage.pm 2003/01/13 17:31:41 1.7
+++ loncom/interface/statistics/lonpercentage.pm 2008/12/12 10:01:30 1.11
@@ -1,7 +1,6 @@
# The LearningOnline Network with CAPA
-# (Publication Handler
#
-# $Id: lonpercentage.pm,v 1.7 2003/01/13 17:31:41 minaeibi Exp $
+# $Id: lonpercentage.pm,v 1.11 2008/12/12 10:01:30 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -33,6 +32,9 @@ use strict;
use Apache::lonhtmlcommon;
use Apache::loncoursedata;
use GDBM_File;
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+
sub BuildPercentageGraph {
@@ -110,9 +112,7 @@ sub CreateInterface {
$Ptr .= '
'."\n";
my @sections = split(':',$cache->{'sectionList'});
my @sectionsSelected = split(':',$cache->{'sectionsSelected'});
- $Ptr .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections,
- \@sectionsSelected,
- 'Statistics');
+ $Ptr .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
$Ptr .= ' | '."\n";
$Ptr .= '';
@@ -270,7 +270,7 @@ sub GraphData {
my $Freq;
if ($totalProblems >= 100 ) {
$xlabel = 'Percentage_of_Problems_Correct';
- $Freq=100;
+ $Freq=101;
} else {
$xlabel = 'Number_of_Problems_Correct';
$Freq = $cId;
@@ -330,11 +330,11 @@ sub TableData {
foreach my $name (sort(split(':::', $percentage->{$_}))) {
$Ptr .= '';
+ $Ptr .= &escape($cache->{$name.':fullname'}).'">';
$Ptr .= $cache->{$name.':fullname'};
- $Ptr .= ',  ';
+ $Ptr .= ', ';
}
$Ptr .= ''."\n";