--- loncom/interface/statistics/lonpercentage.pm	2003/01/14 22:10:08	1.8
+++ loncom/interface/statistics/lonpercentage.pm	2006/05/30 12:46:49	1.10
@@ -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.10 2006/05/30 12:46:49 www 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,9 +330,9 @@ 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';
         }