');
}
@@ -398,6 +403,14 @@ sub outputCategories {
my ($r,$showPoints,$notshowTotals,
$navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=@_;
+# Take care of storing and retrieving categories
+
+ my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+
+ my %categories=&Apache::lonnet::dump('grading_categories',$cdom,$cnum);
+# categories loaded now
+
}
# Pass this two refs to arrays for the start and end color, and a number