--- loncom/interface/lonquickgrades.pm 2011/05/21 01:29:43 1.87 +++ loncom/interface/lonquickgrades.pm 2011/05/22 21:53:52 1.88 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Quick Student Grades Display # -# $Id: lonquickgrades.pm,v 1.87 2011/05/21 01:29:43 www Exp $ +# $Id: lonquickgrades.pm,v 1.88 2011/05/22 21:53:52 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -569,9 +569,10 @@ sub output_category_table { # my @order=split(/\,/,$categories{'order'}); # + my %performance=&dumpdata($navmaps); my $maxpos=$#order; for (my $i=0;$i<=$maxpos;$i++) { - my ($value,$weight)=&output_and_calc_category($r,$cangrade,$navmaps,$order[$i],$i,$maxpos,%categories); + my ($value,$weight)=&output_and_calc_category($r,$cangrade,$navmaps,$order[$i],$i,$maxpos,\%performance,%categories); $sum+=$value*$weight; $total+=$weight; } @@ -603,7 +604,7 @@ sub output_category_table_header { # sub output_and_calc_category { - my ($r,$cangrade,$navmaps,$id,$currentpos,$maxpos,%categories)=@_; + my ($r,$cangrade,$navmaps,$id,$currentpos,$maxpos,$performance,%categories)=@_; my $value=0; my $weight=0; my $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL') . "/"); @@ -646,7 +647,7 @@ ENDMOVE $r->print('