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