version 1.246, 2003/04/03 22:34:26
|
version 1.247, 2003/04/07 22:28:08
|
Line 898 sub get_all_text_unbalanced {
|
Line 898 sub get_all_text_unbalanced {
|
} |
} |
|
|
sub increment_counter { |
sub increment_counter { |
$Apache::lonxml::counter++; |
my ($increment) = @_; |
|
if (defined($increment) && $increment gt 0) { |
|
$Apache::lonxml::counter+=$increment; |
|
} else { |
|
$Apache::lonxml::counter++; |
|
} |
$Apache::lonxml::counter_changed=1; |
$Apache::lonxml::counter_changed=1; |
} |
} |
|
|
sub init_counter { |
sub init_counter { |
if (defined($ENV{'form.counter'})) { |
if (defined($ENV{'form.counter'})) { |
$Apache::lonxml::counter=$ENV{'form.counter'}; |
$Apache::lonxml::counter=$ENV{'form.counter'}; |
|
$Apache::lonxml::counter_changed=0; |
} else { |
} else { |
$Apache::lonxml::counter=1; |
$Apache::lonxml::counter=1; |
&store_counter(); |
$Apache::lonxml::counter_changed=1; |
} |
} |
$Apache::lonxml::counter_changed=0; |
|
} |
} |
|
|
sub store_counter { |
sub store_counter { |