[LON-CAPA-cvs] cvs: loncom /homework grades.pm
albertel
lon-capa-cvs-allow@mail.lon-capa.org
Tue, 30 Oct 2007 00:27:27 -0000
albertel Mon Oct 29 20:27:27 2007 EDT
Modified files:
/loncom/homework grades.pm
Log:
- removing some debug spew
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.470 loncom/homework/grades.pm:1.471
--- loncom/homework/grades.pm:1.470 Mon Oct 29 05:46:28 2007
+++ loncom/homework/grades.pm Mon Oct 29 20:27:23 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.470 2007/10/29 09:46:28 foxr Exp $
+# $Id: grades.pm,v 1.471 2007/10/30 00:27:23 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -5316,19 +5316,15 @@
} elsif (!defined($currentquest)
|| (&occurence_count($currentquest, $$scantron_config{'Qoff'}) == length($currentquest))
|| (&occurence_count($currentquest, "[A-Z]") == 0)) {
- &Apache::lonnet::logthis("Missing if, $questnum, $ansnum");
for (my $ans = 0; $ans < $answers_needed; $ans++ ) {
$record{"scantron.$ansnum.answer"}='';
$ansnum++;
}
if (!&scan_data($scan_data,"$whichline.no_bubble.$questnum")) {
- &Apache::lonnet::logthis("Parsed missing: $questnum");
push(@{$record{"scantron.missingerror"}},$questnum);
# $ansnum += $answers_needed;
}
- &Apache::lonnet::logthis("Residual scanline: '$questions'");
-
} else {
for (my $ans = 0; $ans < $answers_needed; $ans++) {
$record{"scantron.$ansnum.answer"} = substr($currentquest, $ans, 1);
@@ -6487,7 +6483,6 @@
foreach my $question (@{$arg}) {
my $selected = &get_response_bubbles($scan_record, $question);
my @select_array = split(/:/,$selected); # ought to be an array of empties.
- &Apache::lonnet::logthis("Calling bubble selector (missing)");
&scantron_bubble_selector($r,$scan_config,$question, @select_array);
}
} else {
@@ -6529,7 +6524,6 @@
my $total_lines = $lines*2;
my @alphabet=('A'..'Z');
- &Apache::lonnet::logthis("Putting in question number $quest");
$r->print("<table border='1'><tr><td rowspan='".$total_lines."'>$quest</td>");
for (my $l = 0; $l < $lines; $l++) {
@@ -6885,7 +6879,6 @@
foreach my $missing (@{$$scan_record{'scantron.missingerror'}}) {
if ($missing > $max_bubble) { next; }
- &Apache::lonnet::logthis("Marking $missing for missing bubble check");
push(@to_correct,$missing);
}
if (@to_correct) {