loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.112, 2004/12/23 22:53:41
+version 1.113, 2005/01/31 22:00:40
  Line 715  sub get_response_param {
      return $parameter;
  }
+ sub submitted {
+     my ($who)=@_;
+     # when scatron grading any submission is a submission
+     if ($ENV{'form.submitted'} eq 'scantron') { return 1; }
+     # if the caller only cared if this was a scantron submission
+     if ($who eq 'scantron') { return 0; }
+     # if the Submit Answer button for this particular part was pressed
+     my $partid=$Apache::inputtags::part;
+     if (defined($ENV{'form.submit_'.$partid})) { return 1; }
+     # otherwise no submission occured
+     return 0;
+ }
 ;
  __END__