--- loncom/interface/statistics/lonpercentage.pm	2003/01/14 22:10:08	1.8
+++ 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.8 2003/01/14 22:10:08 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 .= '<td align="left">'."\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 .= '</td></tr>'."\n";
     $Ptr .= '</table>';
 
@@ -330,11 +330,11 @@ sub TableData {
 
 	foreach my $name (sort(split(':::', $percentage->{$_}))) {
 	    $Ptr .= '<a href="/adm/statistics?reportSelected=';
-	    $Ptr .= &Apache::lonnet::escape('Student Assessment');
+	    $Ptr .= &escape('Student Assessment');
 	    $Ptr .= '&StudentAssessmentStudent=';
-	    $Ptr .= &Apache::lonnet::escape($cache->{$name.':fullname'}).'">';
+	    $Ptr .= &escape($cache->{$name.':fullname'}).'">';
 	    $Ptr .= $cache->{$name.':fullname'};
-	    $Ptr .= '</a>,&nbsp&nbsp';
+	    $Ptr .= '</a>,&nbsp;&nbsp;';
         }
 
 	$Ptr .= '</td></tr>'."\n";