loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.403, 2007/10/12 18:45:47	version 1.404, 2007/10/16 23:20:25
Line 1747 sub start_startouttext {	Line 1747 sub start_startouttext {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my @result=(''.'');	my @result=(''.'');
if ($target eq 'edit' \|\| $target eq 'modified' ) { @result=('','no'); }	if ($target eq 'edit' \|\| $target eq 'modified' ) { @result=('','no'); }

	my $nesting =
	&Apache::lonxml::set_state('outtext',
	&Apache::lonxml::get_state('outtext')+1);
	if ($nesting > 1 && $env{'request.state'} eq 'construct') {
	&Apache::lonxml::error("Nesting of <startouttext /> not allowed, on line ".$token->[5]);
	}
return (@result);	return (@result);
}	}

Line 1786 sub start_endouttext {	Line 1793 sub start_endouttext {
$result='<endouttext />'.	$result='<endouttext />'.
&Apache::edit::handle_insertafter('startouttext');	&Apache::edit::handle_insertafter('startouttext');
}	}

	my $nesting =
	&Apache::lonxml::set_state('outtext',
	&Apache::lonxml::get_state('outtext')-1);
	if ($nesting < 0 && $env{'request.state'} eq 'construct') {
	&Apache::lonxml::error(" Extraneous <endouttext /> not allowed on line ".$token->[5]);
	&Apache::lonxml::set_state('outtext', 0);
	}
return $result;	return $result;
}	}