[LON-CAPA-cvs] cvs: modules /gerd evaluate.pl

[www]

www		Fri Mar 31 11:43:11 2006 EDT

  Modified files:              
    /modules/gerd	evaluate.pl 
  Log:
  Detailed discussion FCI, Grade
  
  
Index: modules/gerd/evaluate.pl
diff -u modules/gerd/evaluate.pl:1.5 modules/gerd/evaluate.pl:1.6
--- modules/gerd/evaluate.pl:1.5	Thu Mar 30 21:10:20 2006
+++ modules/gerd/evaluate.pl	Fri Mar 31 11:43:09 2006
@@ -221,6 +221,14 @@
 print "\nFCIg/Procedural: ".&hashcorrelate(\%fcigain,'',\%procedural,'',\@userkeys,'',0.01);
 print "\nFCIg/Conceptual: ".&hashcorrelate(\%fcigain,'',\%conceptual,'',\@userkeys,'',0.01);
 
+foreach my $number (1..8) {
+    foreach my $char ('a'..'d') {
+	print "\n$number$char: ".
+	    &hashcorrelate(\%grade,'',\%discussion,$number.$char,\@userkeys,'Grade',0.01).
+	    &hashcorrelate(\%fcipost,'',\%discussion,$number.$char,\@userkeys,'FCIFinal',0.01).
+	    &hashcorrelate(\%fcigain,'',\%discussion,$number.$char,\@userkeys,'FCIg',0.01);
+    }
+}
 
 foreach my $mpexidx (1..34) {
    print "\n$mpexidx - ";