Return to lonxml.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.480, 2008/06/10 16:20:39 | version 1.481, 2008/06/25 12:00:37 |
---|---|
Line 1084 Optional Arguments: | Line 1084 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 ($env{'form.grade_noincrement'}) { return; } |
if (!defined($increment) || $increment le 0) { | if (!defined($increment) || $increment le 0) { |
$increment = 1; | $increment = 1; |
} | } |