--- loncom/homework/grades.pm 2010/04/17 22:48:52 1.622
+++ loncom/homework/grades.pm 2010/04/18 18:45:41 1.623
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.622 2010/04/17 22:48:52 www Exp $
+# $Id: grades.pm,v 1.623 2010/04/18 18:45:41 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -138,6 +138,7 @@ sub nameUserString {
#--- Get the partlist and the response type for a given problem. ---
#--- Indicate if a response type is coded handgraded or not. ---
+#--- Sets response_error pointer to "1" if navmaps object broken ---
sub response_type {
my ($symb,$response_error) = @_;
@@ -822,10 +823,8 @@ sub listStudents {
my $result='
'
.&mt("View/Grade/Regrade Submissions for a Student or a Group of Students")
.'
';
-
- my ($partlist,$handgrade,$responseType) = &response_type($symb
-#,$res_error
- );
+ my $res_error;
+ my ($partlist,$handgrade,$responseType) = &response_type($symb,\$res_error);
my %lt = &Apache::lonlocal::texthash (
'multiple' => 'Please select a student or group of students before clicking on the Next button.',
@@ -1741,8 +1740,8 @@ sub gradeBox {
}
sub handback_box {
- my ($symb,$uname,$udom,$counter,$partid,$record,$res_error) = @_;
- my ($partlist,$handgrade,$responseType) = &response_type($symb,$res_error);
+ my ($symb,$uname,$udom,$counter,$partid,$record,$res_error_pointer) = @_;
+ my ($partlist,$handgrade,$responseType) = &response_type($symb,$res_error_pointer);
my (@respids);
my @part_response_id = &flatten_responseType($responseType);
foreach my $part_response_id (@part_response_id) {
@@ -2130,7 +2129,7 @@ KEYWORDS
$lastsubonly.="\n".'