loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.399, 2006/03/08 22:15:47	version 1.401, 2006/03/10 23:49:35
Line 1038 sub init_counter {	Line 1038 sub init_counter {

sub store_counter {	sub store_counter {
&Apache::lonnet::appenv(('form.counter' => $Apache::lonxml::counter));	&Apache::lonnet::appenv(('form.counter' => $Apache::lonxml::counter));
	$Apache::lonxml::counter_changed=0;
return '';	return '';
}	}

{	{
my $state;	my $state;
sub clear_problem_counter {	sub clear_problem_counter {
&Apache::lonnet::logthis(" cpc called from ".(join(':',caller(0))));
undef($state);	undef($state);
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
&Apache::lonxml::init_counter();	&Apache::lonxml::init_counter();
Line 1061 sub store_counter {	Line 1061 sub store_counter {
&Apache::lonnet::appenv(('form.counter' => $state));	&Apache::lonnet::appenv(('form.counter' => $state));
}	}
}	}
	sub get_problem_counter {
	if ($Apache::lonxml::counter_changed) { &store_counter() }
	&Apache::lonnet::transfer_profile_to_env();
	return $env{'form.counter'};
	}
}	}

sub get_all_text {	sub get_all_text {