--- loncom/interface/Attic/lonchart.pm	2002/07/01 13:59:13	1.47
+++ loncom/interface/Attic/lonchart.pm	2002/07/03 14:11:14	1.54
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonchart.pm,v 1.47 2002/07/01 13:59:13 stredwic Exp $
+# $Id: lonchart.pm,v 1.54 2002/07/03 14:11:14 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -46,6 +46,10 @@
 #
 ###
 
+=pod
+
+=cut
+
 package Apache::lonchart;
 
 use strict;
@@ -55,20 +59,24 @@ use Apache::loncommon();
 use HTML::TokeParser;
 use GDBM_File;
 
-my $jr; 
+#my $jr; 
 # ----- FORMAT PRINT DATA ----------------------------------------------
 
 sub FormatStudentInformation {
     my ($cache,$name,$studentInformation,$spacePadding)=@_;
-    my $Str='<pre>';
+    my $Str='';
 
-    foreach (@$studentInformation) {
-	my $data=$cache->{$name.':'.$_};
+    for(my $index=0; $index<(scalar @$studentInformation); $index++) {
+        if(!&ShouldShowColumn($cache, 'heading'.$index)) {
+            next;
+        }
+	my $data=$cache->{$name.':'.$studentInformation->[$index]};
 	$Str .= $data;
 
 	my @dataLength=split(//,$data);
 	my $length=scalar @dataLength;
-	$Str .= (' 'x($cache->{$_.'Length'}-$length));
+	$Str .= (' 'x($cache->{$studentInformation->[$index].'Length'}-
+                      $length));
 	$Str .= $spacePadding;
     }
 
@@ -91,22 +99,15 @@ sub FormatStudentData {
 
     # Handle errors
     if($CacheData{$name.':error'} =~ /environment/) {
+        $Str .= '<br>';
         untie(%CacheData);
-        $Str .= '</pre>';
         return $Str;
-#	my $errorMessage = $CacheData{$name.':error'};
-#	return '<td>'.$sname.'</td><td>'.$sdom.
-#	    '</td><td><font color="#000088">'.$errorMessage.'</font></td>';
     }
 
     if($CacheData{$name.':error'} =~ /course/) {
+        $Str .= '<br>';
         untie(%CacheData);
-        $Str .= '</pre>';
-	return $Str;
-#	my $errorMessage = 'May have no course data or '.
-#	                   $CacheData{$name.':error'};
-#	return '<td>'.$sname.'</td><td>'.$sdom.
-#	    '</td><td><font color="#000088">'.$errorMessage.'</font></td>';
+        return $Str;
     }
 
     # Handle problem data ------------------------------------------------
@@ -116,6 +117,10 @@ sub FormatStudentData {
     my $problemsSolved  = 0;
     my $numberOfParts   = 0;
     foreach my $sequence (split(/\:/,$CacheData{'orderedSequences'})) {
+        if(!&ShouldShowColumn(\%CacheData, 'sequence'.$sequence)) {
+            next;
+        }
+
 	my $characterCount=0;
 	foreach my $problemID (split(/\:/,$CacheData{$sequence.':problems'})) {
 	    my $problem = $CacheData{$problemID.':problem'};
@@ -207,8 +212,10 @@ sub FormatStudentData {
         $Str .= $spacePadding;
     }
 
-    $Str .= '<font color="#000088">'.$problemsSolved.
-	    ' / '.$totalProblems.'</font></pre>';
+    my $outputProblemsSolved = sprintf( "%4d", $problemsSolved );
+    my $outputTotalProblems  = sprintf( "%4d", $totalProblems );
+    $Str .= '<font color="#000088">'.$outputProblemsSolved.
+	    ' / '.$outputTotalProblems.'</font><br>';
 
     untie(%CacheData);
     return $Str;
@@ -216,9 +223,14 @@ sub FormatStudentData {
 
 sub CreateTableHeadings {
     my ($CacheData,$studentInformation,$headings,$spacePadding)=@_;
-    my $Str='<pre>';
+    my $Str='<tr>';
 
     for(my $index=0; $index<(scalar @$headings); $index++) {
+        if(!&ShouldShowColumn($CacheData, 'heading'.$index)) {
+            next;
+        }
+
+        $Str .= '<td align="left"><pre>';
 	my $data=$$headings[$index];
 	$Str .= $data;
 
@@ -227,100 +239,162 @@ sub CreateTableHeadings {
 	$Str .= (' 'x($CacheData->{$$studentInformation[$index].'Length'}-
                       $length));
 	$Str .= $spacePadding;
+        $Str .= '</pre></td>';
     }
 
     foreach my $sequence (split(/\:/,$CacheData->{'orderedSequences'})) {
-	$Str .= $CacheData->{$sequence.':title'};
+        if(!&ShouldShowColumn($CacheData, 'sequence'.$sequence)) {
+            next;
+        }
+
+        $Str .= '<td align="left"><pre>';
+        my $name = $CacheData->{$sequence.':title'};
+	$Str .= $name;
 	my @titleLength=split(//,$CacheData->{$sequence.':title'});
 	my $leftover=$CacheData->{$sequence.':columnWidth'}-
                      (scalar @titleLength);
 	$Str .= (' 'x$leftover);
 	$Str .= $spacePadding;
+        $Str .= '</pre></td>';
     }
 
-    $Str .= 'Total Solved/Total Problems';
-    $Str .= '</pre>';
+    $Str .= '<td><pre>Total Solved/Total Problems</pre></td>';
+    $Str .= '</tr></tbody></table>';
 
     return $Str;
 }
 
-sub CreateColumnSelectors {
+sub CreateColumnSelectionBox {
     my ($CacheData,$studentInformation,$headings,$spacePadding)=@_;
-    my $Str='';
 
-    $Str .= '<form name="stat" method="post" action="/adm/chart" >'."\n";
-    $Str .= '<input type="submit" name="sort" value="Refresh Chart"/>';
-    $Str .= '</form>'."\n";
-    return $Str;
+    my $missing=0;
+    my $notThere='<tr><td align="right"><b>Select column to view:</b>';
+    my $name;
+    $notThere .= '<td align="left">';
+    $notThere .= '<select name="reselect" size="4" multiple="true">'."\n";
 
     for(my $index=0; $index<(scalar @$headings); $index++) {
-	my $data=$$headings[$index];
-	$Str .= $data;
+        if(&ShouldShowColumn($CacheData, 'heading'.$index)) {
+            next;
+        }
+        $name = $headings->[$index];
+        $notThere .= '<option value="heading'.$index.'">';
+        $notThere .= $name.'</option>'."\n";
+        $missing++;
+    }
 
-	my @dataLength=split(//,$data);
-	my $length=scalar @dataLength;
-	$Str .= (' 'x($CacheData->{$$studentInformation[$index].'Length'}-
-                      $length));
-	$Str .= $spacePadding;
+    foreach my $sequence (split(/\:/,$CacheData->{'orderedSequences'})) {
+        if(&ShouldShowColumn($CacheData, 'sequence'.$sequence)) {
+            next;
+        }
+        $name = $CacheData->{$sequence.':title'};
+        $notThere .= '<option value="sequence'.$sequence.'">';
+        $notThere .= $name.'</option>'."\n";
+        $missing++;
+    }
+
+    if($missing) {
+        $notThere .= '</select>';
+    } else {
+        $notThere='<tr><td>';
+    }
+
+    return $notThere.'</td></tr></tbody></table>';
+}
+
+sub CreateColumnSelectors {
+    my ($CacheData,$studentInformation,$headings,$spacePadding)=@_;
+
+    my $found=0;
+    my ($name, $length, $position);
+
+    my $present='<pre><b>Note: Uncheck the boxes above a column to ';
+    $present .= 'remove that column from the display.</b></pre>'."\n";
+
+    $present .= '<table border="0" cellpadding="0" cellspacing="0">';
+    $present .= '<tbody><tr>';
+    for(my $index=0; $index<(scalar @$headings); $index++) {
+        if(!&ShouldShowColumn($CacheData, 'heading'.$index)) {
+            next;
+        }
+        $present .= '<td align="left">';
+        $present .= '<input type="checkbox" checked="on" ';
+        $present .= 'name="heading'.$index.'" />';
+        $present .= '</td>';
+        $found++;
     }
 
     foreach my $sequence (split(/\:/,$CacheData->{'orderedSequences'})) {
-	$Str .= $CacheData->{$sequence.':title'};
-	my @titleLength=split(//,$CacheData->{$sequence.':title'});
-	my $leftover=$CacheData->{$sequence.':columnWidth'}-
-                     (scalar @titleLength);
-	$Str .= (' 'x$leftover);
-	$Str .= $spacePadding;
+        if(!&ShouldShowColumn($CacheData, 'sequence'.$sequence)) {
+            next;
+        }
+        $present .= '<td align="left">';
+        $present .= '<input type="checkbox" checked="on" ';
+        $present .= 'name="sequence'.$sequence.'" />';
+        $present .= '</td>';
+        $found++;
     }
 
-    return $Str;
+    if(!$found) {
+        $present = '';
+    }
+
+    return $present.'<td></td></tr></form>'."\n";;
 }
 
 sub CreateForm {
+    my ($CacheData)=@_;
     my $OpSel1='';
     my $OpSel2='';
     my $OpSel3='';
-    my $Status = $ENV{'form.status'};
+    my $Status = $CacheData->{'form.status'};
     if ( $Status eq 'Any' ) { $OpSel3='selected'; }
     elsif ($Status eq 'Expired' ) { $OpSel2 = 'selected'; }
     else { $OpSel1 = 'selected'; }
 
-    my $Ptr = '<form name="stat" method="post" action="/adm/chart" >'."\n";
-    $Ptr .= '<b> Sort by: &nbsp; </b>'."\n";
+    my $Ptr .= '<form name="stat" method="post" action="/adm/chart" >'."\n";
+    $Ptr .= '<table border="0"><tbody>';
+    $Ptr .= '<tr><td align="right">';
+    $Ptr .= '</td><td align="left">';
+    $Ptr .= '<input type="submit" name="recalculate" ';
+    $Ptr .= 'value="Recalculate Chart"/>'."\n";
+    $Ptr .= '&nbsp;&nbsp;&nbsp;';
+    $Ptr .= '<input type="submit" name="refresh" ';
+    $Ptr .= 'value="Refresh Chart"/>'."\n";
     $Ptr .= '&nbsp;&nbsp;&nbsp;';
+    $Ptr .= '<input type="submit" name="reset" ';
+    $Ptr .= 'value="Reset Selections"/></td>'."\n";
+    $Ptr .= '</tr><tr><td align="right">';
+    $Ptr .= '<b> Sort by: </b>'."\n";
+    $Ptr .= '</td><td align="left">';
     $Ptr .= '<input type="submit" name="sort" value="User Name" />'."\n";
     $Ptr .= '&nbsp;&nbsp;&nbsp;';
     $Ptr .= '<input type="submit" name="sort" value="Last Name" />'."\n";
     $Ptr .= '&nbsp;&nbsp;&nbsp;';
     $Ptr .= '<input type="submit" name="sort" value="Section"/>'."\n";
-    $Ptr .= '<br><br>';
+    $Ptr .= '</td></tr><tr><td align="right">';
     $Ptr .= '<b> Student Status: &nbsp; </b>'."\n".
+            '</td><td align="left">'.
             '<select name="status">'. 
             '<option '.$OpSel1.' >Active</option>'."\n".
             '<option '.$OpSel2.' >Expired</option>'."\n".
 	    '<option '.$OpSel3.' >Any</option> </select> '."\n";
-    $Ptr .= '<br><br>';
-    $Ptr .= '<input type="submit" name="sort" value="Recalculate Chart"/>';
-    $Ptr .= "\n";
-    $Ptr .= '&nbsp;&nbsp;&nbsp;';
-    $Ptr .= '<input type="submit" name="sort" value="Refresh Chart"/>';
-    $Ptr .= "\n";
-    $Ptr .= '</form>'."\n";
+    $Ptr .= '</td></tr>';
 
     return $Ptr;
 }
 
 sub CreateLegend {
-    my $Str = '<h1>'.$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
-              '</h1><h3>'.localtime().
-              "</h3><p><pre>1..9: correct by student in 1..9 tries\n".
+    my $Str = "<p><pre>".
+              "1..9: correct by student in 1..9 tries\n".
               "   *: correct by student in more than 9 tries\n".
 	      "   +: correct by override\n".
               "   -: incorrect by override\n".
 	      "   .: incorrect attempted\n".
 	      "   #: ungraded attempted\n".
               "    : not attempted\n".
-	      "   x: excused</pre><p>"; 
+	      "   x: excused".
+              "</pre><p>"; 
     return $Str;
 }
 
@@ -333,6 +407,8 @@ sub StartDocument {
     $Str .= '<script>window.focus();</script>';
     $Str .= '<img align=right src=/adm/lonIcons/lonlogos.gif>';
     $Str .= '<h1>Assessment Chart</h1>';
+    $Str .= '<h1>'.$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+    $Str .= '</h1>';
 
     return $Str;
 }
@@ -442,6 +518,17 @@ sub ProcessTopResourceMap {
 	    push(@finishResource, $lastResourceID);
 
 	    $currentSequence=$hash{'map_pc_'.$hash{'src_'.$currentResourceID}};
+
+            # Mark sequence as containing problems.  If it doesn't, then
+            # it will be removed when processing for this sequence is
+            # complete.  This allows the problems in a sequence
+            # to be outputed before problems in the subsequences
+            if(!defined($CacheData{'orderedSequences'})) {
+                $CacheData{'orderedSequences'}=$currentSequence;
+            } else {
+                $CacheData{'orderedSequences'}.=':'.$currentSequence;
+            }
+
 	    $lastResourceID=$hash{'map_finish_'.
 				  $hash{'src_'.$currentResourceID}};
 	    $currentResourceID=$hash{'map_start_'.
@@ -503,12 +590,6 @@ sub ProcessTopResourceMap {
 
 	    if(defined($CacheData{$currentSequence.':problems'})) {
 		# Capture sequence information here
-		if(!defined($CacheData{'orderedSequences'})) {
-		    $CacheData{'orderedSequences'}=$currentSequence;
-		} else {
-		    $CacheData{'orderedSequences'}.=':'.$currentSequence;
-		}
-
 		$CacheData{$currentSequence.':title'}=
 		    $hash{'title_'.$currentResourceID};
 
@@ -534,13 +615,16 @@ sub ProcessTopResourceMap {
 		    $CacheData{$currentSequence.':columnWidth'}=
                         (scalar @titleLength);
 		}
-	    }
+	    } else {
+                $CacheData{'orderedSequences'}=~s/$currentSequence//;
+                $CacheData{'orderedSequences'}=~s/::/:/g;
+                $CacheData{'orderedSequences'}=~s/^:|:$//g;
+            }
 
 	    $currentSequence=pop(@sequences);
 	    if($currentSequence eq $topLevelSequenceNumber) {
 		last;
 	    }
-	#else
 	}
 
 	# MOVE!!!
@@ -651,7 +735,7 @@ sub ProcessStudentInformation {
     }
 
     # Get student's section number
-    my $sec=&ProcessSection($section, $courseID, $ENV{'form.status'});
+    my $sec=&ProcessSection($section, $courseID, $CacheData->{'form.status'});
     if($sec != -1) {
 	$CacheData->{$name.':section'}=$sec;
     } else {
@@ -668,7 +752,8 @@ sub ProcessClassList {
     my %CacheData;
     if(tie(%CacheData,'GDBM_File',$ChartDB,&GDBM_WRCREAT,0640)) {
         foreach my $name (keys(%$classlist)) {
-            if($name =~ /\:section/ || $name =~ /\:studentInformation/) {
+            if($name =~ /\:section/ || $name =~ /\:studentInformation/ ||
+               $name eq '') {
                 next;
             }
             if($c->aborted()) {
@@ -683,8 +768,8 @@ sub ProcessClassList {
                                     $name,$courseID,$c);
         }
 
-        $CacheData{'NamesOfStudents'}=join(":::",@names);
-#        $CacheData{'NamesOfStudents'}=&Apache::lonnet::arrayref2str(\@names);
+        # Time of download
+        $CacheData{'time'}=localtime();
 	untie(%CacheData);
     }
 
@@ -763,16 +848,14 @@ sub ProcessFullName {
 }
 
 sub SortStudents {
-    my ($CacheData)=@_;
-    my @students = split(/:::/,$CacheData->{'NamesOfStudents'});
-#    my @students=&Apache::lonnet::str2array($CacheData->{'NamesOfStudents'});
+    my ($students,$CacheData)=@_;
 
     my @sorted1Students=();
-    foreach (@students) {
+    foreach (@$students) {
         my ($end,$start)=split(/\:/,$CacheData->{$_.':date'});
         my $active=1;
         my $now=time;
-        my $Status=$ENV{'form.status'};
+        my $Status=$CacheData->{'form.status'};
         $Status = ($Status) ? $Status : 'Active';
         if((($end) && $now > $end) && (($Status eq 'Active'))) { 
             $active=0; 
@@ -785,7 +868,7 @@ sub SortStudents {
         }
     }
 
-    my $Pos = $ENV{'form.sort'};
+    my $Pos = $CacheData->{'form.sort'};
     my %sortData;
     if($Pos eq 'Last Name') {
 	for(my $index=0; $index<scalar @sorted1Students; $index++) {
@@ -805,7 +888,7 @@ sub SortStudents {
     }
 
     my @order = ();
-    foreach my $key (sort keys(%sortData)) {
+    foreach my $key (sort(keys(%sortData))) {
 	push (@order,$sortData{$key});
     }
 
@@ -818,13 +901,13 @@ sub TestCacheData {
     my %testData;
     my $tieTries=0;
 
-    if ((-e "$ChartDB") && ($ENV{'form.sort'} ne 'Recalculate Chart')) {
+    if ((-e "$ChartDB") && (!defined($ENV{'form.recalculate'}))) {
 	$isCached = 1;
     } else {
 	$isCached = 0;
     }
 
-    while($tieTries < 3) {
+    while($tieTries < 10) {
         my $result=0;
         if($isCached) {
             $result=tie(%testData,'GDBM_File',$ChartDB,&GDBM_READER,0640);
@@ -837,7 +920,7 @@ sub TestCacheData {
         $tieTries++;
         sleep 1;
     }
-    if($tieTries >= 3) {
+    if($tieTries >= 10) {
         return -1;
     }
 
@@ -858,6 +941,11 @@ sub ExtractStudentData {
             foreach my $key (keys (%$courseData)) {
                 $CacheData{$name.':'.$key}=$courseData->{$key};
             }
+            if(defined($CacheData{'NamesOfStudents'})) {
+                $CacheData{'NamesOfStudents'}.=':::'.$name;
+            } else {
+                $CacheData{'NamesOfStudents'}=$name;
+            }
         }
         untie(%CacheData);
     }
@@ -865,6 +953,97 @@ sub ExtractStudentData {
     return;
 }
 
+sub ShouldShowColumn {
+    my ($cache,$test)=@_;
+
+    if($cache->{'form.reset'} eq 'true') {
+        return 1;
+    }
+
+    my $headings=$cache->{'form.headings'};
+    my $sequences=$cache->{'form.sequences'};
+    if($headings eq 'ALLHEADINGS' || $sequences eq 'ALLSEQUENCES' ||
+       $headings=~/$test/ || $sequences=~/$test/) {
+        return 1;
+    }
+
+#    my $reselected=$cache->{'form.reselect'};
+#    if($reselected=~/$test/) {
+#        return 1;
+#    }
+
+    return 0;
+}
+
+sub ProcessFormData {
+    my ($ChartDB)=@_;
+    my %CacheData;
+
+    if(tie(%CacheData,'GDBM_File',$ChartDB,&GDBM_WRCREAT,0640)) {
+        if(defined($ENV{'form.sort'})) {
+            $CacheData{'form.sort'}=$ENV{'form.sort'};
+        } elsif(!defined($CacheData{'form.sort'})) {
+            $CacheData{'form.sort'}='username';
+        }
+
+        # Ignore $ENV{'form.refresh'}
+        # Ignore $ENV{'form.recalculate'}
+
+        if(defined($ENV{'form.status'})) {
+            $CacheData{'form.status'}=$ENV{'form.status'};
+        } elsif(!defined($CacheData{'form.status'})) {
+            $CacheData{'form.status'}='Active';
+        }
+
+        my @headings=();
+        my @sequences=();
+        my $found=0;
+        foreach (keys(%ENV)) {
+            if(/form\.heading/) {
+                $found++;
+                push(@headings, $_);
+            } elsif(/form\.sequence/) {
+                $found++;
+                push(@sequences, $_);
+            } elsif(/form\./) {
+                $found++;
+            }
+        }
+
+        if($found) {
+            $CacheData{'form.headings'}=join(":::",@headings);
+            $CacheData{'form.sequences'}=join(":::",@sequences);
+        }
+
+        if(defined($ENV{'form.reselect'})) {
+            my @reselected = (ref($ENV{'form.reselect'}) ? 
+                              @{$ENV{'form.reselect'}}
+                              : ($ENV{'form.reselect'}));
+            foreach (@reselected) {
+                if(/heading/) {
+                    $CacheData{'form.headings'}.=":::".$_;
+                } elsif(/sequence/) {
+                    $CacheData{'form.sequences'}.=":::".$_;
+                }
+            }
+        }
+
+        if(defined($ENV{'form.reset'})) {
+            $CacheData{'form.reset'}='true';
+            $CacheData{'form.status'}='Active';
+            $CacheData{'form.sort'}='username';
+            $CacheData{'form.headings'}='ALLHEADINGS';
+            $CacheData{'form.sequences'}='ALLSEQUENCES';
+        } else {
+            $CacheData{'form.reset'}='false';
+        }
+
+        untie(%CacheData);
+    }
+
+    return;
+}
+
 # ----- END HELPER FUNCTIONS --------------------------------------------
 
 sub BuildChart {
@@ -889,8 +1068,10 @@ sub BuildChart {
         $r->rflush();
         return;
     }
+    &ProcessFormData($ChartDB);
 
     # Download class list information if not using cached data
+    my %CacheData;
     my @students=();
     my @studentInformation=('username','domain','section','id','fullname');
     my @headings=('User Name','Domain','Section','PID','Full Name');
@@ -914,27 +1095,41 @@ sub BuildChart {
         &SpaceColumns(\@students,\@studentInformation,\@headings,
                       $ChartDB);
         if($c->aborted()) { return; }
+    } else {
+        if(!$c->aborted() && tie(%CacheData,'GDBM_File',$ChartDB,
+                                 &GDBM_READER,0640)) {
+            @students=split(/:::/,$CacheData{'NamesOfStudents'});
+        }
     }
 
     # Sort students and print out table desciptive data
-    my %CacheData;
     if(tie(%CacheData,'GDBM_File',$ChartDB,&GDBM_READER,0640)) {
-        if(!$c->aborted()) { @students=&SortStudents(\%CacheData); }
-	if(!$c->aborted()) { $r->print(&CreateLegend()); }
-	if(!$c->aborted()) { $r->print(&CreateForm()); }
-	if(!$c->aborted()) { $r->print('<h3>'.(scalar @students).
-                                       ' students</h3>'); }
+        if(!$c->aborted()) { @students=&SortStudents(\@students,\%CacheData); }
+        my $downloadTime=0;
+        if(defined($CacheData{'time'})) { $downloadTime=$CacheData{'time'}; }
+        else { $downloadTime=localtime(); }
+        if(!$c->aborted()) { $r->print('<h3>'.$downloadTime.'</h3>'); }
+        if(!$c->aborted()) { $r->print('<h1>'.(scalar @students).
+                                       ' students</h1>'); }
 	if(!$c->aborted()) { $r->rflush(); }
-#	if(!$c->aborted()) { $r->print(&CreateColumnSelectors(
-#                                                         \%CacheData,
-#                                                         \@studentInformation, 
-#							 \@headings, 
-#							 $spacePadding)); }
+	if(!$c->aborted()) { $r->print(&CreateLegend()); }
+	if(!$c->aborted()) { $r->print(&CreateForm(\%CacheData)); }
+	if(!$c->aborted()) { $r->print(&CreateColumnSelectionBox(
+                                                       \%CacheData,
+                                                       \@studentInformation, 
+						       \@headings, 
+                                                       $spacePadding)); }
+	if(!$c->aborted()) { $r->print(&CreateColumnSelectors(
+                                                       \%CacheData,
+                                                       \@studentInformation, 
+						       \@headings, 
+                                                       $spacePadding)); }
 	if(!$c->aborted()) { $r->print(&CreateTableHeadings(
                                                          \%CacheData,
                                                          \@studentInformation, 
 							 \@headings, 
 							 $spacePadding)); }
+	if(!$c->aborted()) { $r->rflush(); }
 	untie(%CacheData);
     } else {
 	$r->print("Init2: Unable to tie hash to db file");
@@ -943,21 +1138,15 @@ sub BuildChart {
 
     my @updateStudentList = ();
     my $courseData;
+    $r->print('<pre>');
     foreach (@students) {
         if($c->aborted()) {
-            if(!$isCached && 
-               tie(%CacheData,'GDBM_File',$ChartDB,&GDBM_WRCREAT,0640)) {
-                $CacheData{'NamesOfStudents'}=join(":::", @updateStudentList);
-#		    $CacheData{'NamesOfStudents'}=
-#		            &Apache::lonnet::arrayref2str(\@updateStudentList);
-                untie(%CacheData);
-            }
             last;
         }
 
         if(!$isCached) {
             $courseData=&DownloadStudentCourseInformation($_, $cid);
-            if($c->aborted()) { next; }
+            if($c->aborted()) { last; }
             push(@updateStudentList, $_);
             &ExtractStudentData($courseData, $_, $ChartDB);
         }
@@ -966,7 +1155,14 @@ sub BuildChart {
         $r->rflush();
     }
 
-    $r->print('</body></html>');
+    if(!$isCached && tie(%CacheData,'GDBM_File',$ChartDB,&GDBM_WRCREAT,0640)) {
+        $CacheData{'NamesOfStudents'}=join(":::", @updateStudentList);
+#		    $CacheData{'NamesOfStudents'}=
+#		            &Apache::lonnet::arrayref2str(\@updateStudentList);
+        untie(%CacheData);
+    }
+
+    $r->print('</pre></body></html>');
     $r->rflush();
 
     return;
@@ -976,7 +1172,7 @@ sub BuildChart {
 
 sub handler {
     my $r=shift;
-    $jr=$r;
+#    $jr=$r;
     unless(&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {
 	$ENV{'user.error.msg'}=
         $r->uri.":vgr:0:0:Cannot view grades for complete course";