Return to lonxml.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.476, 2008/04/28 14:38:45 | version 1.477, 2008/05/02 22:00:12 |
---|---|
Line 1080 Optional Arguments: | Line 1080 Optional Arguments: |
sub increment_counter { | sub increment_counter { |
my ($increment, $part_response) = @_; | my ($increment, $part_response) = @_; |
if ($env{'form.grade_target'} eq 'analyze') { return; } | |
if (!defined($increment) || $increment le 0) { | if (!defined($increment) || $increment le 0) { |
$increment = 1; | $increment = 1; |
} | } |