#include "common.wml"
{#TITLE#: %body :##} %body
<:
@sectcounter = (0,0,0,0,0);
sub sectcounter_reset {
my $level = $_[0];
while ($level <= $#sectcounter) {
$sectcounter[$level++] = 0;
}
}
sub sectnum {
my $level = $_[0];
my $rv = "";
while ($level >= 0) {
$rv = "$sectcounter[$level--]." . $rv;
}
return $rv;
}
:>
<: $sectcounter[%0]++; sectcounter_reset(%0+1);
$num = sectnum(%0); :>
{#MYTOC#: <:= $num :> %body
:##}
><:= $num :> %body>
print $num;:##}
/> />
{#REF%0#}
{#TITLE#}