flat tree, represented by single table with rows

DEMO:

  my $a = [
          'opa',
          'tralala',
          'heyo',
          'yoyo',
          'didi',
          {
          LABEL => 'opa',
          DATA  => [
                     'tralala',
                     'heyo',
                     {
                     LABEL => 'sesssil',
                     DATA  => [
                              'tralala',
                              'heyo',
                              'yoyo',
                              'didi',
                              ],
                     },
                     'yoyo',
                     'didi',
                     ],
          },
          'heyo',
          'yoyo',
          ];

  print html_ftree( $a, 'ARGS' => 'cellpadding=10 width=100% border=0' );

sub html_tabs_table

arguments: array_ref, opt_hash

array_ref is list of hash refs with this content:

    LABEL          -- label text for the this tab handle
    LABEL_TD_ARGS  -- further optional arguments for the label TD
    TEXT           -- text to show when tab handle clicked
    TEXT_TD_ARGS   -- TD element args, same as above
    ON             -- if true, this tab will be initially visible
    TAB_ID         -- html id for this tab

opt_hash is inline with the following items:

    LABELS_TABLE_ARGS -- args for the table containing labels
    TEXT_TABLE_ARGS   -- same as above

    LABEL_CLASS_ON    -- active TD class for tab handle labels
    LABEL_CLASS_OFF   -- inactive TD class for tab handle labels

    ARGS              -- args for containing TABLE element
    VERTICAL          -- if true, tabs will be vertical

    ACTIVE_TAB_FORM_FEEDBACK_ID -- html INPUT element to hold active tab id

example:

  my @tabs;

  for my $z ( 1 .. 5 )
    {
    push @tabs, {
                  LABEL         => "TAB $z",
                  TEXT          => "$z " x 128,
                  LABEL_TD_ARGS => "class=tab-label style='cursor: pointer;'",
                  TEXT_TD_ARGS  => "class=tab-text",
                };
    }

  $html = html_tabs_table( \@tabs, ARGS => "width=70% border=2", VERTICAL => 1 );