--- loncom/interface/statistics/lonproblemanalysis.pm	2002/12/11 21:39:57	1.17
+++ loncom/interface/statistics/lonproblemanalysis.pm	2003/02/25 20:47:47	1.19
@@ -1,7 +1,6 @@
 # The LearningOnline Network with CAPA
-# (Publication Handler
 #
-# $Id: lonproblemanalysis.pm,v 1.17 2002/12/11 21:39:57 minaeibi Exp $
+# $Id: lonproblemanalysis.pm,v 1.19 2003/02/25 20:47:47 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -56,9 +55,7 @@ sub BuildProblemAnalysisPage {
     $Ptr .= '<td align="left">'."\n";
     my @sectionsSelected = split(':',$cache{'sectionsSelected'});
     my @sections = split(':',$cache{'sectionList'});
-    $Ptr .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections,
-                                                          \@sectionsSelected,
-                                                          'Statistics');
+    $Ptr .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
     $Ptr .= '</td></tr>'."\n";
     $Ptr .= '<tr><td align="right"><b>Intervals</b></td>'."\n";
     $Ptr .= '<td align="left">';
@@ -436,7 +433,7 @@ sub DrawGraph {
     $GData  = $Titr.'&Concepts&Answers&'.$Max.'&'.$P_No.'&';
     $GData .= (join(',',@data1)).'&'.(join(',',@data2));
 
-    return '<IMG src="/cgi-bin/graph.gif?'.$GData.'" border=1/>';
+    return '<IMG src="/cgi-bin/graph.png?'.$GData.'" border=1/>';
 }
 
 sub DrawTable {