loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.98, 2009/08/03 10:40:00
+version 1.99, 2010/02/28 23:37:44
  Line 466  sub gradefoils {
      my %previous=
  	&Apache::response::check_for_previous(&stringify_submission(\%response),
  					      $part,$id);
-     if ($result
+     if ($result) {
- 	&& $Apache::lonhomework::type eq 'survey') { $result='SUBMITTED'; }
+ 	if ($Apache::lonhomework::type eq 'survey') {
+             $result='SUBMITTED';
+         } elsif ($Apache::lonhomework::type eq 'surveycred') {
+             $result='SUBMITTED_CREDIT';
+         } elsif ($Apache::lonhomework::type eq 'anonsurvey') {
+             $result='ANONYMOUS';
+         } elsif ($Apache::lonhomework::type eq 'anonsurveycred') {
+             $result='ANONYMOUS_CREDIT';
+         }
+     }
      &Apache::response::handle_previous(\%previous,$result);
      $Apache::lonhomework::results{"resource.$part.$id.submission"}=
  	&stringify_submission(\%response);