loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

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 {