sub ETtbl
{
    my ($node, $et) = @_;
    $_ = $node->{'path'};

    m</div_table/h[1234]/$> && do {
       print Label( $node );
        return $node;
    };

    return( $node->Proc( $et ) );
    
};

sub Label
{
    my $node = shift;
    my $tx = "\\label\{$node->{'attr'}{'name'}\}";
    if( $node->{'attr'}{'orignum'} )
    {
        $tx .= "  % $node->{'attr'}{'orignum'}";
    }

    return $tx . "\n";
}

1;
