[LON-CAPA-cvs] cvs: loncom /interface loncoursedata.pm

[albertel]

albertel		Fri Apr 28 17:18:15 2006 EDT

  Modified files:              
    /loncom/interface	loncoursedata.pm 
  Log:
  - add the part award to the response_data_by_student
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.159 loncom/interface/loncoursedata.pm:1.160
--- loncom/interface/loncoursedata.pm:1.159	Fri Apr 28 17:14:03 2006
+++ loncom/interface/loncoursedata.pm	Fri Apr 28 17:18:15 2006
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.159 2006/04/28 21:14:03 albertel Exp $
+# $Id: loncoursedata.pm,v 1.160 2006/04/28 21:18:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2413,6 +2413,7 @@
 sub RDs_awarded         { return 4; }
 sub RDs_response_eval   { return 5; }
 sub RDs_response_eval_2 { return 6; }
+sub RDs_part_award      { return 7; }
 
 sub get_response_data_by_student {
     my ($student,$symb,$response,$courseid) = @_;
@@ -2431,7 +2432,7 @@
     return undef if (! defined($dbh));
     my $request = 'SELECT '.
         'c.tries, b.timestamp, a.submission, a.awarddetail, c.awarded, '.
-	'a.response_specific_value, a.response_specific_value_2, '.
+	'a.response_specific_value, a.response_specific_value_2, c.award '.
         'FROM '.$fulldump_response_table.' AS a '.
         'LEFT JOIN '.$fulldump_timestamp_table.' AS b '.
         'ON a.symb_id=b.symb_id AND a.student_id=b.student_id AND '.