<%init>
use XML::Mini::Document;
my $tocxml;
my $tocfile = "/news/arquivo/_toc.xml";
my $toc;

if ($m->comp_exists($tocfile)){
	
	$tocxml = $m->scomp($tocfile);
	my $xmlDoc = XML::Mini::Document->new();
	$xmlDoc->parse($tocxml); 
	$toc = $xmlDoc->toHash();
	return $toc;
	
}else{
	# erro toc inexistente
	return undef
}
</%init>