[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[raeburn]

raeburn		Sun Jun 16 16:46:48 2013 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - Bubblesheet grading
    - &get_response_bubbles() routine added in rev 1.447 ceased to be used
      from rev. 1.503 onwards following addition of &prompt_for_corrections().
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.689 loncom/homework/grades.pm:1.690
--- loncom/homework/grades.pm:1.689	Sat Jun  1 00:22:42 2013
+++ loncom/homework/grades.pm	Sun Jun 16 16:46:48 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.689 2013/06/01 00:22:42 raeburn Exp $
+# $Id: grades.pm,v 1.690 2013/06/16 16:46:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5174,24 +5174,6 @@
     }
 }
 
-#  Given the parsed scanline, get the response for 
-#  'answer' number n:
-
-sub get_response_bubbles {
-    my ($parsed_line, $response)  = @_;
-
-    my $bubble_line = $first_bubble_line{$response-1} +1;
-    my $bubble_lines= $bubble_lines_per_response{$response-1};
-    
-    my $selected = "";
-
-    for (my $bline = 0; $bline < $bubble_lines; $bline++) {
-	$selected .= $$parsed_line{"scantron.$bubble_line.answer"}.":";
-	$bubble_line++;
-    }
-    return $selected;
-}
-
 =pod 
 
 =item scantron_filenames