--- loncom/interface/statistics/lonproblemanalysis.pm	2003/02/25 20:47:47	1.19
+++ loncom/interface/statistics/lonproblemanalysis.pm	2003/03/03 21:52:24	1.20
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemanalysis.pm,v 1.19 2003/02/25 20:47:47 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.20 2003/03/03 21:52:24 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -173,20 +173,20 @@ sub BuildAnalyzePage {
     $Str = '';
     if($c->aborted()) {  untie(%cache); return; }
 
-    &Apache::lonhtmlcommon::Create_PrgWin($r, $title, $heading);
 
-    my $count=0;
+    my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r, $title,
+						      $heading,$#students+1);
+
     #Java script Progress window
     for(my $index=0; $index<(scalar @$students); $index++) {
         if($c->aborted()) {  untie(%cache); return; }
-        $count++;
-        my $displayString = $count.'/'.$studentCount.': '.$_;
-        &Apache::lonhtmlcommon::Update_PrgWin($displayString, $r);
+	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
+					 'last student '.$students->[$index]);
 	&OpStatus($problemId, $students->[$index], \%ConceptData,
                   $analyzeData->{'foil_to_concept'}, $analyzeData,
 		  \%cache, $courseID);
     }
-    &Apache::lonhtmlcommon::Close_PrgWin($r);
+    &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
 
     $Str .= '<br>';
     for (my $k=0; $k<$interval; $k++ ) {