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

[www]

www		Wed Apr 13 17:30:01 2005 EDT

  Modified files:              
    /modules/gerd/discussions	studeval.pl 
  Log:
  Gender
  
  
Index: modules/gerd/discussions/studeval.pl
diff -u modules/gerd/discussions/studeval.pl:1.3 modules/gerd/discussions/studeval.pl:1.4
--- modules/gerd/discussions/studeval.pl:1.3	Wed Apr 13 17:20:20 2005
+++ modules/gerd/discussions/studeval.pl	Wed Apr 13 17:30:01 2005
@@ -88,12 +88,20 @@
 	&callabssums('sumall&all',$error,@entries);
 	&callabssums('sumall&gender'.$entries[$gender],$error,@entries);
 	&callabssums('sumall&grade'.$entries[$grade],$error,@entries);
+#
 	&callsums('emotion&grade'.$entries[$grade],$error,@entries);
 	&callsums('conceptual&grade'.$entries[$grade],$error,@entries);
 	&callsums('physics&grade'.$entries[$grade],$error,@entries);
 	&callsums('math&grade'.$entries[$grade],$error,@entries);
 	&callsums('procedural&grade'.$entries[$grade],$error,@entries);
 	&callsums('solution&grade'.$entries[$grade],$error,@entries);
+#
+	&callsums('emotion&gender'.$entries[$gender],$error,@entries);
+	&callsums('conceptual&gender'.$entries[$gender],$error,@entries);
+	&callsums('physics&gender'.$entries[$gender],$error,@entries);
+	&callsums('math&gender'.$entries[$gender],$error,@entries);
+	&callsums('procedural&gender'.$entries[$gender],$error,@entries);
+	&callsums('solution&gender'.$entries[$gender],$error,@entries);
    }
 }
 
@@ -137,7 +145,16 @@
                       &reportout('conceptual&grade'.$i);
 }
 print "\n";
-
+foreach my $i ('m','f') {
+    print "\n".&padded($i).','.
+                      &reportout('emotion&gender'.$i).',',
+                      &reportout('procedural&gender'.$i).',',
+                      &reportout('solution&gender'.$i).',',
+                      &reportout('math&gender'.$i).',',
+                      &reportout('physics&gender'.$i).',',
+                      &reportout('conceptual&gender'.$i);
+}
+print "\n";
 
 
 # ======== End analysis, subroutines