loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.68, 2001/09/18 02:21:13	version 1.69, 2001/10/05 12:39:13
Line 576 sub delete_startouttext {	Line 576 sub delete_startouttext {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
# my $text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']);	# my $text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']);
my $text=$$parser['-1']->get_text("/endouttext");	my $text=$$parser['-1']->get_text("/endouttext");
my $token=$$parser['-1']->get_token();	my $ntoken=$$parser['-1']->get_token();
&Apache::lonxml::debug("Deleting :$text: and :$token->[0]:$token->[1]:$token->[2]: for startouttext");	&Apache::lonxml::debug("Deleting :$text: and :$ntoken->[0]:$ntoken->[1]:$ntoken->[2]: for startouttext");
&Apache::lonxml::end_tag($tagstack,$parstack,$token);	&Apache::lonxml::end_tag($tagstack,$parstack,$ntoken);
# Deleting 2 parallel tag pairs, but we need the numbers later to look like	# Deleting 2 parallel tag pairs, but we need the numbers later to look like
# they did the last time round	# they did the last time round
&Apache::lonxml::increasedepth($token);	&Apache::lonxml::increasedepth($ntoken);
&Apache::lonxml::decreasedepth($token);	&Apache::lonxml::decreasedepth($ntoken);
return 1;	return 1;
}	}