loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.398, 2006/03/08 21:49:26	version 1.400, 2006/03/09 00:39:28
Line 971 sub decreasedepth {	Line 971 sub decreasedepth {
#print "<br />e $Apache::lonxml::depth : $Apache::lonxml::olddepth : $token->[1] : $curdepth\n";	#print "<br />e $Apache::lonxml::depth : $Apache::lonxml::olddepth : $token->[1] : $curdepth\n";
}	}

	sub get_id {
	my ($parstack,$safeeval)=@_;
	my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
	if ($env{'request.state'} eq 'construct' && $id =~ /(\.\|_)/) {
	&error(&mt("IDs are not allowed to contain "<tt>_</tt>" or "<tt>.</tt>""));
	}
	if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }
	return $id;
	}

sub get_all_text_unbalanced {	sub get_all_text_unbalanced {
#there is a copy of this in lonpublisher.pm	#there is a copy of this in lonpublisher.pm
my($tag,$pars)= @_;	my($tag,$pars)= @_;
Line 1034 sub store_counter {	Line 1044 sub store_counter {
{	{
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();