version 1.288, 2003/10/27 19:00:11
|
version 1.289, 2003/10/29 18:29:24
|
Line 845 sub get_all_text_unbalanced {
|
Line 845 sub get_all_text_unbalanced {
|
|
|
sub increment_counter { |
sub increment_counter { |
my ($increment) = @_; |
my ($increment) = @_; |
if ($ENV{'form.freeze_counter'} ne 'yes') { |
if (defined($increment) && $increment gt 0) { |
if (defined($increment) && $increment gt 0) { |
$Apache::lonxml::counter+=$increment; |
$Apache::lonxml::counter+=$increment; |
} else { |
} else { |
$Apache::lonxml::counter++; |
$Apache::lonxml::counter++; |
|
} |
|
$Apache::lonxml::counter_changed=1; |
|
} |
} |
|
$Apache::lonxml::counter_changed=1; |
} |
} |
|
|
sub init_counter { |
sub init_counter { |