File Coverage

blib/lib/HTML/Menu/TreeView.pm

Criterion	Covered	Total	%
statement	253	471	53.7
branch	123	322	38.2
condition	37	90	41.1
subroutine	43	53	81.1
pod	37	37	100.0
total	493	973	50.6

package HTML::Menu::TreeView;
use strict;
use warnings;
require Exporter;
use 5.00600;
use utf8;
use vars
  qw($DefaultClass %EXPORT_TAGS @EXPORT_OK @ISA %anker @TreeView %openArrays @caption $columns $clasic $ffirst $sort $border $orderby $size $style $orderbyColumn $prefix $bTrOver $desc %anker %ankerG $lang);
$HTML::Menu::TreeView::VERSION = '1.22';
@ISA                           = qw(Exporter);
@HTML::Menu::TreeView::EXPORT_OK =
  qw(border Tree css columns jscript setStyle setDocumentRoot getDocumentRoot setSize setClasic clasic preload help folderFirst size style Style documentRoot loadTree saveTree  %anker %ankerG sortTree orderBy orderByColumn prefix setModern border TrOver desc language);
%HTML::Menu::TreeView::EXPORT_TAGS = (
    'all' => [
        qw(Tree css jscript clasic columns preload help folderFirst size documentRoot loadTree saveTree sortTree orderBy prefix Style orderByColumn border TrOver desc language)
    ],
    'recommend' => [qw(Tree css jscript clasic preload folderFirst help size Style documentRoot loadTree saveTree sortTree prefix desc)],
    'standart'  => [qw(Tree css jscript preload size Style documentRoot clasic)],
    'backward'  => [qw(setDocumentRoot getDocumentRoot setSize setClasic setStyle style setModern)],
    'columns'   => [qw(border columns orderByColumn orderBy)],
);
$DefaultClass = 'HTML::Menu::TreeView' unless defined $HTML::Menu::TreeView::DefaultClass;
our $id       = 'a';
our $path     = '/var/www/htdocs';
our $saveFile = './TreeViewDump.pl';
$lang  = 'en';
$style = 'Crystal';
$size  = 16;
( $clasic, $ffirst, $sort, $border, $columns, $desc, $bTrOver ) = (0) x 7;
$orderby = 'text';
$prefix  = '';
%anker   = (
    name        => 'The name of the Element',
    href        => 'URI for linked resource',
    accesskey   => 'accessibility key character',
    charset     => 'char encoding of linked resource',
    class       => 'class name or set of class names to an element.',
    coords      => 'for use with client-side image maps',
    dir         => 'the base direction of directionally neutral text',
    hreflang    => 'language code',
    lang        => 'the base language of an elements attribute values and text content.',
    onblur      => 'the element lost the focus',
    ondblclick  => 'event occurs when the pointing device button is double clicked ',
    onclick     => 'event occurs when the pointing device button is clicked over an element',
    onfocus     => 'the element got the focus',
    onkeydown   => 'event occurs when a key is pressed down over an element.',
    onkeypress  => 'event occurs when a key is pressed and released over an element.',
    onkeyup     => 'event occurs when a key is released over an element.',
    onmousedown => 'event occurs when the pointing device button is pressed over an element.',
    onmousemove => 'event occurs when the pointing device is moved while it is over an element.',
    onmouseout  => 'event occurs when the pointing device is moved away from an element.',
    onmouseover => 'event occurs when the pointing device is moved onto an element.',
    onmouseup   => 'event occurs when the pointing device button is released over an element.',
    rel         => 'forward link types',
    rev         => 'reverse link types',
    shape       => 'for use with client-side image maps',
    style       => 'specifies style information for the current element.',
    tabindex    => 'position in tabbing order',
    target      => 'target frame information',
    type        => 'advisory content type ',
    title       => 'element title',
    id          => 'This attribute assigns a name to an element. This name must be unique in a document.',
);
%ankerG = (
    name        => 'Name des Links',
    href        => 'Adresse die aufgerufen wird',
    accesskey   => 'Zugriffstaste',
    charset     => 'Zeichenkodierung der Zieladresse',
    class       => 'Klassen Name',
    coords      => 'Für Imagemaps',
    dir         => 'Leserichtung',
    hreflang    => 'Sprache des Ziels',
    lang        => 'Sprache des Inhaltes',
    onblur      => 'Anker verliert den Fokus',
    ondblclick  => 'Maus wird doppelgeklickt',
    onclick     => 'Maus wird geklickt',
    onfocus     => 'Link erhält den Fokus',
    onkeydown   => 'Eine Taste wird gedrückt.',
    onkeypress  => 'Eine Taste wird gedrückt',
    onkeyup     => 'Eine Taste wird los gelassen',
    onmousedown => 'Maus wird gedrückt',
    onmousemove => 'Maus wird bewegt',
    onmouseout  => 'Maus verlässt den Anker',
    onmouseover => 'Maus betritt den Anker',
    onmouseup   => 'Maus wird losgelassen',
    rel => 'Logische Vorwärtsbeziehung siehe selfhtml',
    rev => 'Logische Rückwärtsbeziehung',
    shape    => 'Imagemaps',
    style    => 'Formatierungs Informationen',
    tabindex => 'Tabstopp position',
    target   => 'Ziel Frame Angabe',
    type     => 'Content-type',
    title    => 'Titel',
    id       => 'Identifikator. Muss einmalig im Dokument sein',
);

=head1 NAME

HTML::Menu::TreeView - Create a HTML TreeView from scratch

=head1 SYNOPSIS

     use HTML::Menu::TreeView qw(Tree);

     my @tree =( {

     text => 'Folder',

     subtree => [

          {

          text => 'treeview Homepage',

          href => 'http://lindnerei.sourceforge.net'

          }

            ],

     },);

     Tree(\@tree);

=head2 OO Syntax

     use HTML::Menu::TreeView;

     use strict;

     my @tree =(

          {

               image => 'tar.png',

               text => 'Node'
          },
     );

     my $Treeview = new HTML::Menu::TreeView();

     print $Treeview->css("/srv/www/httpdocs");

     print $Treeview->jscript();

     print $Treeview->preload();

     print $Treeview->Tree(\@tree);

=head2 FO Syntax

     use HTML::Menu::TreeView qw(css jscript preload Tree);

     print css();

     print jscript();

     print preload();

     print Tree(\@tree,"Crystal");


=head2 function sets

Here is a list of the function sets you can import:

:all

Tree css jscript clasic preload help folderFirst size documentRoot loadTree saveTree sortTree orderBy prefix Style orderByColumn border desc language

:recommend

Tree css jscript clasic preload folderFirst size Style documentRoot loadTree saveTree sortTree prefix desc

:standart

Tree css jscript preload size Style documentRoot clasic,

:backward

setDocumentRoot getDocumentRoot setSize setClasic setStyle style setModern

:columns

border columns orderByColumn orderBy

=head1 DESCRIPTION

HTML::Menu::TreeView is a Modul to build an Html TreeView.

=head1 Changes

1.19
    required perl Version Build.pm and css img class

1.18
    like 1.17 but at some other places

1.17
    #defined @{@$tree[$i]->{subtree}} don't works with perl > 5.20

    so try test it with ref @$tree[$i]->{subtree}[0].

1.14
    after a few years there a only a few bugfixes.

1.13

Sorting of closed folders will work now.

1.12

some fixes (German umlaute help())

1.10

Overwrought

1.08

delete one unnessesary file.

1.07

Drag & drop example edit.pl

new css class dropzone

Overwrought Documentation

Overwrought Images

1.06

svn moved to http://lindnerei.svn.sourceforge.net/viewvc/lindnerei/treeview/

new Images, german Help

language function set it to "de" for german help

german documentation droped

Build install_examples

=head1 Public

=head2 new

if you use the oo interface you can say:

     my $TreeView = new HTML::Menu::TreeView(\@tree, optional style);

and then call Tree without arguments.

     print $TreeView->Tree();

=cut

sub new {
    my ( $class, @initializer ) = @_;
    my $self = { tree => undef, };
    bless $self, ref $class || $class || $DefaultClass;
    $style    = $initializer[1] if ( defined $initializer[1] );
    @TreeView = $initializer[0] if (@initializer);
    return $self;
} ## end sub new

=head2 css

return the necessary css part without  tag.

you can set the DocumentRoot if you pass a parameter

     css('/document/root/');

you can also include it with:



for example.

=cut

sub css {
    my ( $self, @p ) = getSelf(@_);
    use Fcntl qw(:flock);
    use Symbol;
    $self->documentRoot( $p[0] ) if ( defined $p[0] );
    my $fh   = gensym;
    my $file = "$path/style/$style/$size/html-menu-treeview/$style.css";
    open $fh, $file
      or warn "HTML::Menu::TreeView::css $/ no style '$style.css' $style.css found $/  in  $path/style/html-menu-treeview/$style/ $/ $! $/";
    seek $fh, 0, 0;
    my @lines = <$fh>;
    close $fh;
    my $css;

    foreach my $l (@lines) {

        #         $l =~ s?/style/?style/?g;
        $css .= $l;
    } ## end foreach my $l (@lines)
    return $css;
} ## end sub css

=head2 documentRoot

set or get the Document Root.

default: this variable is set during make.

=cut

sub documentRoot {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] ) {
        if ( -e $p[0] ) { $path = $p[0]; }
        else {
            warn "HTML::Menu::TreeView::documentRoot $/ Document Root don't exits: $/ $! $/";
        } ## end else [ if ( -e $p[0] ) ]
    } else {
        return $path;
    } ## end else [ if ( defined $p[0] ) ]
} ## end sub documentRoot

=head2 jscript

return the necessary javascript without  tag. </td>
</tr>

<tr>
<td  class="h" >
<a name="330">330</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="331">331</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> you can also include it with: </td>
</tr>

<tr>
<td  class="h" >
<a name="332">332</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="333">333</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">      <script language="JavaScript" type="text/javascript" src="/style/treeview.js">

you can set the Document Root if you pass a parameter

=cut

sub jscript {
    my ( $self, @p ) = getSelf(@_);
    use Fcntl qw(:flock);
    use Symbol;
    $self->documentRoot( $p[0] ) if ( defined $p[0] );
    my $fh   = gensym;
    my $file = "$path/style/treeview.js";
    open $fh, $file or warn "HTML::Menu::TreeView::jscript $/ $! $/";
    seek $fh, 0, 0;
    my @js = <$fh>;
    close $fh;
    return "@js";
} ## end sub jscript

=head2 preload

return the necessary javascript for preloading images without  tag. </td>
</tr>

<tr>
<td  class="h" >
<a name="356">356</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="357">357</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> you can also include it with: </td>
</tr>

<tr>
<td  class="h" >
<a name="358">358</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="359">359</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">      <script language="JavaScript" type="text/javascript" src="/style/Crystal/16/html-menu-treeview/preload.js">

or



if you use different images sizes.

you can set the DocumentRoot if you pass a parameter

=cut

sub preload {
    my ( $self, @p ) = getSelf(@_);
    use Fcntl qw(:flock);
    use Symbol;
    $self->documentRoot( $p[0] ) if ( defined $p[0] );
    my $fh   = gensym;
    my $file = "$path/style/$style/$size/html-menu-treeview/preload.js";
    open $fh, $file or warn "HTML::Menu::TreeView::preload $/ $! $/";
    seek $fh, 0, 0;
    my @lines = <$fh>;
    close $fh;
    my $preload;

    foreach my $l (@lines) {
        $l =~ s?/style/?style/?g;
        $preload .= $l;
    } ## end foreach my $l (@lines)
    return $preload;
} ## end sub preload

=head2 size

only for Crystal styles

set or get the size.

16,32,48,64 and 128 are possible values.

=cut

sub size {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] && $p[0] =~ /(16|22|32|48|64|128)/ ) { $size = $1; }
    else                                                    { return $size; }
} ## end sub size

=head2 Style

set the style in scalar context or get in void context.

     Style('simple');

simple = redmond like style.

Crystal = Crystal style (default).

=cut

sub Style {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] ) {
        if ( -e $path . '/style/' . $p[0] ) { $style = $p[0]; }
        else {
            warn "HTML::Menu::TreeView::Style $/ $path/style/$p[0] not found $/ $! $/";
        } ## end else [ if ( -e $path . '/style/'...)]
    } else {
        return $style;
    } ## end else [ if ( defined $p[0] ) ]
} ## end sub Style

=head2 Tree

     Tree(\@tree,optional $style);

Returns the html part of the Treeview without javasript and css.

=cut

sub Tree {
    my ( $self, @p ) = getSelf(@_);
    $style = $p[1] if ( defined $p[1] );
    @TreeView = @p ? @p : @TreeView;
    $self->initTree(@TreeView) if (@TreeView);
    my $r;
    if ( defined $self->{subtree} ) {
        $r .= qq(\n//<!-- \nwindow.folders = new Array();\n); </td>
</tr>

<tr>
<td  class="h" >
<a name="447">447</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s">         foreach my $key ( keys %{ $self->{js} } ) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#448"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="448">448</a>
</td>

<td  class="c0" >
 <a href="#449"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s">             $r .= "folders['$key']= new Array("; </td>
</tr>

<tr>
<td  class="h" >
<a name="449">449</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s">             for ( my $i = 0 ; $i < @{ $self->{js}{$key} } ; $i++ ) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#450"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="450">450</a>
</td>

<td  class="c0" >
 <a href="#451"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s">                 $r .= '"' . $self->{js}{$key}[$i] . '"'; </td>
</tr>

<tr>
<td  class="h" >
<a name="451">451</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-HTML-Menu-TreeView-pm--branch.html#451-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s">                 $r .= ',' if ( $i + 1 != @{ $self->{js}{$key} } ); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#453"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="452">452</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">             } ## end for ( my $i = 0 ; $i < ...) </td>
</tr>

<tr>
<td  class="h" >
<a name="453">453</a>
</td>

<td  class="c0" >
 <a href="#455"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s">             $r .= ");\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="454">454</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         } ## end foreach my $key ( keys %{ $self...}) </td>
</tr>

<tr>
<td  class="h" >
<a name="455">455</a>
</td>

<td  class="c0" >
 <a href="#460"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

0

</td>

<td class="s">         $r .= "//-->\n";
    } ## end if ( defined $self->{subtree...})
    $r .=
qq('; '; ); ); 




459




10




  
 50
  




 





 





 





28



     if (@caption) {    #defined 




460



  
0
  



  
  0
  




 





 





 





0



         my $class = $border ? "captionBorder$size" : "caption$size"; 




461



  
0
  




 





 





 





 





0



         $r .= qq($caption[0]




462




 





 





 





 





 





 



     } ## end if (@caption) 




463




10





 





 





 





 





66



     $r .= $self->{tree} . '




464




10




  
 50
  




 





 





 





35



     if ( defined $self->{subtree} ) { 




465



  
0
  




 





 





 





 





0



         $r .= ''; '; ); '; 




466



  
0
  



  
  0
  




 





 





 





0



         if (@caption) {    #defined 




467



  
0
  



  
  0
  




 





 





 





0



             my $class = $border ? "captionBorder$size" : "caption$size"; 




468



  
0
  




 





 





 





 





0



             $r .= '




469



  
0
  




 





 





 





 





0



             for ( my $i = 1 ; $i <= $#caption ; $i++ ) { 




470



  
0
  




 





 





 





 





0



                 $r .= qq($caption[$i]




471




 





 





 





 





 





 



             } ## end for ( my $i = 1 ; $i <=...) 




472



  
0
  




 





 





 





 





0



             $r .= '




473




 





 





 





 





 





 



         } ## end if (@caption) 




474



  
0
  




 





 





 





 





0



         undef @caption; 




475



  
0
  




 





 





 





 





0



         $r .= $self->{subtree} . '




476




 





 





 





 





 





 



     } ## end if ( defined $self->{subtree...}) 




477




10





 





 





 





 





34



     $r .= '';
    if (@caption) {    #defined
        my $class = $border ? "captionBorder$size" : "caption$size";
        $r .= qq(
    } ## end if (@caption)
    $r .= $self->{tree} . '
    if ( defined $self->{subtree} ) {
        $r .= '
        if (@caption) {    #defined
            my $class = $border ? "captionBorder$size" : "caption$size";
            $r .= '
            for ( my $i = 1 ; $i <= $#caption ; $i++ ) {
                $r .= qq(
            } ## end for ( my $i = 1 ; $i <=...)
            $r .= '
        } ## end if (@caption)
        undef @caption;
        $r .= $self->{subtree} . '
    } ## end if ( defined $self->{subtree...})
    $r .= '
    return $r;
} ## end sub Tree

=head2 clasic

enable clasic node decoration:

     clasic(1);

disable clasic node decoration:

     clasic(0);

return the status in void context.

     $status = clasic();

=cut

sub clasic {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] && $p[0] =~ /(0|1)/ ) { $clasic = $1; }
    else                                     { return $clasic; }
} ## end sub clasic

=head2 columns

set number of columns

     columns(3);

return the count in void context.

     $count = columns();

or set the captions for the columns

     columns("Name","Column 1","Column 2","Column 3");

=cut

sub columns {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] && $p[0] =~ /(\d+)/ && $#p == 0 ) { $columns = $1; }
    elsif ( $#p > 0 ) {
        $columns = $#p + 1;
        @caption = @p;
    } else {
        return $columns;
    } ## end else [ if ( defined $p[0] && ...)]
} ## end sub columns

=head2 border

enable border for columns :

     border(1);

disable border for columns :

     border(0);

return the status in void context.

     $status = border();

=cut

sub border {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] && $p[0] =~ /(0|1)/ ) { $border = $1; }
    else                                     { return $border; }
} ## end sub border

=head2 desc

reverse sorting

enable desc :

     desc(1);

disable border:

     desc(0);

return the status in void context.

     $status = desc();

=cut

sub desc {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] && $p[0] =~ /(0|1)/ ) { $desc = $1; }
    else                                     { return $desc; }
} ## end sub desc

=head2 sortTree

set or unset sorting treeview Items.

default is false.

enable sorting:

     sortTree(1);

disable sorting:

     sortTree(0);

return the status in void context.

     $status = sortTree();

=cut

sub sortTree {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] && $p[0] =~ /(0|1)/ ) { $sort = $1; }
    else                                     { return $sort; }
} ## end sub sortTree

=head2 orderBy

set the attribute which is used by sortTree and folderFirst.

=cut

sub orderBy {
    my ( $self, @p ) = getSelf(@_);
    $orderby = $p[0];
} ## end sub orderBy

=head2 orderByColumn

sort the TreeView by Column

     orderByColumn(i);

-1 to disable;

=cut

sub orderByColumn {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] && $p[0] =~ /(\d+)/ ) { $orderbyColumn = $1; }
    elsif ( $p[0] == -1 ) { undef $orderbyColumn }
    else                  { return $orderbyColumn; }
} ## end sub orderByColumn

=head2 folderFirst

set or unset show folders first ?

default is false.

enable show folders first:

     folderFirst(1);

disable show folders first:

     folderFirst(0);

return the status of this property in void context.

     $status = folderFirst();

=cut

sub folderFirst {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] && $p[0] =~ /(0|1)/ ) { $ffirst = $1; }
    else                                     { return $ffirst; }
} ## end sub folderFirst

=head2 prefix

prefix used by css.

use this if you want build a offline website

for example:

     prefix('.');

return the prefix in void context.

=cut

sub prefix {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] ) { $prefix = $p[0]; }
    else                 { return $prefix; }
} ## end sub prefix

=head2 TrOver

enable mouseover

tr.trOver{}

=cut

sub TrOver {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] ) { $bTrOver = $p[0]; }
    else                 { return $bTrOver; }
} ## end sub TrOver

=head2 saveTree

     saveTree('filename',\@ref); # or saveTree()

default: ./TreeViewDump.pl

=cut

sub saveTree {
    my ( $self, @p ) = getSelf(@_);
    my $saveAs = defined $p[0] ? $p[0] : $saveFile;
    @TreeView = defined $p[1] ? $p[1] : @TreeView;
    use Data::Dumper;
    my $content = Dumper(@TreeView);
    $content .= '@TreeView = $VAR1;';
    use Fcntl qw(:flock);
    use Symbol;
    my $fh = gensym();
    my $rsas = $saveAs =~ /^(\S+)$/ ? $1 : 0;

    if ($rsas) {
        open $fh, ">$rsas.bak" or warn "HTML::Menu::TreeView::saveTree $/ $! $/ $rsas $/";
        flock $fh, 2;
        seek $fh, 0, 0;
        truncate $fh, 0;
        print $fh $content;
        close $fh;
    } ## end if ($rsas)
    if ( -e "$rsas.bak" ) {
        rename "$rsas.bak", $rsas or warn "HTML::Menu::TreeView::saveTree $/ $! $/";
        do $rsas;
    } ## end if ( -e "$rsas.bak" )
} ## end sub saveTree

=head2 loadTree

     loadTree('filename') or loadTree()

default: ./TreeViewDump.pl

=cut

sub loadTree {
    my ( $self, @p ) = getSelf(@_);
    my $do = ( defined $p[0] ) ? $p[0] : $saveFile;
    do $do if ( -e $do );
} ## end sub loadTree

=head2 help

help for link attributes.

return a hashref in void context,

     my $hashref =  help();

     foreach my $key (sort(keys %{$hashref})){

          print "$key : ", $hashref->{$key} ,$/;

     }

or a help Message.

     print help('href'),$/;

if you want german help try

     language('de')

=cut

sub help {
    my ( $self, @p ) = getSelf(@_);
    if ( defined $p[0] ) {
        if ( $lang eq 'de' ) {
            return ( defined $ankerG{ $p[0] } )
              ? $ankerG{ $p[0] }
              : "Unbekanntes Attribute !$/";
        } else {
            return ( defined $ankerG{ $p[0] } )
              ? $anker{ $p[0] }
              : "Unknown attribute !$/";
        } ## end else [ if ( $lang eq 'de' ) ]
    } else {
        if   ( $lang eq 'de' ) { return \%ankerG; }
        else                   { return \%anker; }
    } ## end else [ if ( defined $p[0] ) ]
} ## end sub help

=head2 reserved attributes:

=over

=item href

URI for linked resource.

=item accesskey

accessibility key character.

=item charset

char encoding of linked resource.

=item class

class name or set of class names to an element.

=item coords

for use with client-side image maps.

=item dir

the base direction of directionally neutral text.

=item hreflang

language code.

=item lang

the base language of an elements attribute values and text content.

=item onblur

the element lost the focus.

=item ondblclick

event occurs when the pointing device button is double clicked

=item onclick

event occurs when the pointing device button is clicked over an element.

=item onfocus

the element got the focus.

=item onkeydown

event occurs when a key is pressed down over an element.

=item onkeypress

event occurs when a key is pressed and released over an element.

=item onkeyup

event occurs when a key is released over an element.

=item onmousedown

event occurs when the pointing device button is pressed over an element.

=item onmousemove

event occurs when the pointing device is moved while it is over an element.

=item onmouseout

event occurs when the pointing device is moved away from an element.

=item onmouseover

event occurs when the pointing device is moved onto an element.

=item onmouseup

event occurs when the pointing device button is released over an element.

=item rel

forward link types.

=item rev

reverse link types.

=item shape

for use with client-side image maps.

=item style

specifies style information for the current element.

=item tabindex

position in tabbing order.

=item target

target frame information.

=item type

advisory content type.

=item title

element title.

=item id

This attribute assigns a name to an element. This name must be unique in a document.

=item addition

additional text behind the link

=item subtree

an array of TreeView Items

     subtree => [{
          text => 'Fo'},
          {text => 'Bar'}
     ]

=item image.

a image name, must be placed into /style/mimetypes directory.

=item folderclass :

only for Crystal styles

possible values:

folderMan, folderVideo,folderCrystal,

folderLocked , folderText, folderFavorite,

folderPrint,folderHtml,

folderImage,folderSound,folderImportant,

folderTar,folderYellow ,folderGray,

folderGreen and folderRed

see http://lindnerei.sourceforge.net/cgi-bin/crystal.pl for a complete list of possible values for folderclass.

=item columns

an array of columns

columns => [ 1,2,3,4,5]

=item empty.

set it true if you ant a closed Folder,

which load a location onclick, you must additional set the href attribute.

=back

=head1 backward compatibility


=head2 getDocumentRoot

for backward compatibility.

use documentRoot instead.

=cut
sub getDocumentRoot { return $path; }

=head2 setClasic

use clasic() instead.

for backward compatibility.

use a classic node decoration

=cut
sub setClasic { $clasic = 1; }

=head2 setDocumentRoot

for backward compatibility.

use documentRoot instead.

set the local path to the style folder.

should be the Document Root of your webserver.

example:

     setDocumentRoot('/sv/www/htdocs/');

default: this property is set during make

=cut

sub setDocumentRoot {
    my ( $self, @p ) = getSelf(@_);
    $self->documentRoot( $p[0] );
} ## end sub setDocumentRoot

=head2 setModern

use clasic() instead.

for backward compatibility.

use a modern node decoration

=cut
sub setModern { $clasic = 0; }

=head2 setSize

for backward compatibility.

use size instead.

only for Crystal styles

16,32,48,64 and 128 are possible values.

=cut

sub setSize {
    my ( $self, @p ) = getSelf(@_);
    $self->size( $p[0] );
} ## end sub setSize

=head2 setStyle

for backward compatibility.

use style instead.

     setStyle('style');

simple = redmond like style

Crystal = Crystal style

=cut

sub setStyle {
    my ( $self, @p ) = getSelf(@_);
    $self->Style( $p[0] );
} ## end sub setStyle

=head2 style

set the style.

     style('simple');

simple = redmond like style.

Crystal = Crystal style (default).

=cut

sub style {
    my ( $self, @p ) = getSelf(@_);
    return $self->Style( $p[0] );
} ## end sub style

=head2 language

set the language in scalar context, or get in void context.

language('de');

simple = redmond like style.

Crystal = Crystal style (default).

=cut

sub language {
    my ( $self, @p ) = getSelf(@_);
    $lang = $p[0];
} ## end sub language

=head1 Private

=head2 initTree

construct the TreeView called by Tree, new or recursive by appendFolder.

=cut

sub initTree {
    my ( $self, @p ) = getSelf(@_);
    my $tree = $p[0];
    return if ref $tree ne "ARRAY";
  SWITCH: {
        if ($ffirst) {
            my @tr = sort { &_ffolderFirst } @$tree;
            @tr = reverse @tr if $desc;
            $tree = \@tr;
            last SWITCH;
        } ## end if ($ffirst)
        if ($sort) {
            my @tr = sort {
                return -1 unless $a || $b;
                return -1 if ref $a ne "HASH";
                return +1 if ref $b ne "HASH";
                return lc( $a->{$orderby} ) cmp lc( $b->{$orderby} )
            } @$tree;
            @tr = reverse @tr if $desc;
            $tree = \@tr;
            last SWITCH;
        } ## end if ($sort)
        if ( defined $orderbyColumn && $orderbyColumn >= 0 ) {
            my @tr = sort {
                return -1 unless $a || $b;
                return -1 if ref $a ne "HASH";
                return +1 if ref $b ne "HASH";
                return lc( $a->{columns}[$orderbyColumn] ) cmp lc( $b->{columns}[$orderbyColumn] )
            } @$tree;
            @tr = reverse @tr if $desc;
            $tree = \@tr;
            last SWITCH;
        } ## end if ( defined $orderbyColumn...)
    } ## end SWITCH:
    my $length = @$tree;
    for ( my $i = 0 ; $i < @$tree ; $i++ ) {
        next if ref @$tree[$i] ne "HASH";
        $length--;
        if ( @$tree[$i] ) {    #defined @{@$tree[$i]->{subtree}}
            if ( ref @$tree[$i]->{subtree}[0] eq "HASH" and not defined @$tree[$i]->{empty} )
            {                  #a smalll fix, sorting closed folders will work with this change.
                if ( $length > 0 ) {
                    $self->appendFolder( @$tree[$i], \@{ @$tree[$i]->{subtree} } );
                } elsif ( $length eq 0 ) {
                    $self->appendLastFolder( @$tree[$i], \@{ @$tree[$i]->{subtree} } );
                } ## end elsif ( $length eq 0 )
            } elsif ( defined @$tree[$i]->{empty} ) {
                if ( $length > 0 ) { $self->appendEmptyFolder( @$tree[$i] ); }
                elsif ( $length eq 0 ) {
                    $self->appendLastEmptyFolder( @$tree[$i] );
                } ## end elsif ( $length eq 0 )
            } else {
                if ( $length > 0 ) { $self->appendNode( @$tree[$i] ); }
                elsif ( $length eq 0 ) {
                    $self->appendLastNode( @$tree[$i] );
                } ## end elsif ( $length eq 0 )
            } ## end else [ if ( ref @$tree[$i]->{...})]
        } ## end if ( @$tree[$i] )
    } ## end for ( my $i = 0 ; $i < ...)

=head2 _ffolderFirst

this function is used within initTree for sorting the TreeView if folderFirst(1) is set.

=cut

    sub _ffolderFirst {
        no warnings;
      SWITCH: {
            return -1 if ref $a ne "HASH";
            return +1 if ref $b ne "HASH";
            if ( ref $a->{subtree}[0] eq "HASH" and ref $b->{subtree}[0] eq "HASH" ) {
                return lc( $a->{$orderby} ) cmp lc( $b->{$orderby} );
                last SWITCH;
            } elsif ( ref $a->{subtree}[0] eq "HASH" ) {
                return -1;
                last SWITCH;
            } elsif ( ref $b->{subtree}[0] eq "HASH" ) {
                return +1;
                last SWITCH;
            } else {
                return $sort
                  ? ( lc( $a->{$orderby} ) cmp lc( $b->{$orderby} ) )
                  : -1;
            } ## end else [ if ( ref $a->{subtree}...)]
        } ## end SWITCH:
    } ## end sub _ffolderFirst
} ## end sub initTree

=head2 getSelf

this module use of a Lincoln loader like class system.

if the first parameter is a HTML::Menu::TreeView object (oo syntax ) this function returns the given parameters.

or the first parameter it is not a object referenz (fo syntax) it create a new HTML::Menu::TreeView object,

return it as first value and  @_ as the second value .

my ($self, @p) = getSelf(@_);

=cut

sub getSelf {
    return @_ if defined( $_[0] ) && ( !ref( $_[0] ) ) && ( $_[0] eq 'HTML::Menu::TreeView' );
    return ( defined( $_[0] ) && ( ref( $_[0] ) eq 'HTML::Menu::TreeView' || UNIVERSAL::isa( $_[0], 'HTML::Menu::TreeView' ) ) )
      ? @_
      : ( $HTML::Menu::TreeView::DefaultClass->new, @_ );
} ## end sub getSelf

=head2 appendFolder

called by initTree(), append a Folder to the treeView()

=cut

sub appendFolder {
    my $self    = shift;
    my $node    = shift;
    my $subtree = shift;
    ++$id;
    my ( $tmpref, $ty );
    if ( $columns > 0 ) {
        $ty = $id;
        foreach my $key ( keys %openArrays ) {
            push @{ $openArrays{$key} }, $id;
        } ## end foreach my $key ( keys %openArrays)
        $tmpref = \@{ $openArrays{$id} };
    } ## end if ( $columns > 0 )
    $node->{onclick} =
        defined $node->{onclick} ? $node->{onclick}
      : defined $node->{href}    ? ''
      :                            qq(ocFolder('$id');displayTree('$id');hideArray('$id');ocNode('$id.node','$size'););
    my $onclick = qq( ocFolder('$id');displayTree('$id');hideArray('$id');ocNode('$id.node','$size'););
    $node->{class} = defined $node->{class} ? $node->{class} : "treeviewLink$size";
    my $FolderClass = defined $node->{folderclass} ? $node->{folderclass} . $size : "folder$size";
    $node->{title} = defined $node->{title} ? $node->{title} : $node->{text};
    my $tt;
    foreach my $key ( keys %{$node} ) {
        $tt .= $key . '="' . $node->{$key} . '" ' if ( $anker{$key} && $node->{$key} );
    } ## end foreach my $key ( keys %{$node...})
    my $st = $node->{style} =
      ( ( $columns > 0 or defined $node->{addition} ) and not defined $node->{style} ) ? 'style="white-space:nowrap;"' : '';
    my $addon =
      defined $node->{addition}
      ? qq( $node->{text} $node->{addition})
      : " $node->{text} ";
    my $minusnode = $clasic ? "clasicMinusNode$size" : "minusNode$size";
    $self->{tree} .= (
        $bTrOver
        ? qq(
        : '
      )
      . qq(
    if ( $columns > 0 ) {
        my $class = $border ? "columnsFolderBorder$size" : "columnsFolder$size";
        $self->{subtree} .= (
            $bTrOver
            ? qq(
            : qq(
        );
        for ( my $i = 0 ; $i < $columns ; $i++ ) {
            if ( defined $node->{columns}[$i] ) {
                my $txt = $node->{columns}[$i];
                $self->{subtree} .= qq(
            } ## end if ( defined $node->{columns...})
        } ## end for ( my $i = 0 ; $i < ...)
        $self->{subtree} .= '
    } ## end if ( $columns > 0 )
    $self->initTree( \@$subtree );
    if ( $columns > 0 ) {
        for ( my $i = 0 ; $i < @$tmpref ; $i++ ) {
            $self->{js}{$ty}[$i] = $$tmpref[$i];
        } ## end for ( my $i = 0 ; $i < ...)
        undef @$tmpref;
    } ## end if ( $columns > 0 )
    $self->{tree} .= '
} ## end sub appendFolder

=head2 appendLastFolder

$self->appendLastFolder(\@tree);

called by initTree() if the last item of the (sub)Tree is a folder.

=cut

sub appendLastFolder {
    my $self    = shift;
    my $node    = shift;
    my $subtree = shift;
    $id++;
    my $tmpref;
    my $ty;
    if ( $columns > 0 ) {
        $ty = $id;
        foreach my $key ( keys %openArrays ) {
            push @{ $openArrays{$key} }, $id;
        } ## end foreach my $key ( keys %openArrays)
        $tmpref = \@{ $openArrays{$id} };
    } ## end if ( $columns > 0 )
    $node->{onclick} =
        defined $node->{onclick} ? $node->{onclick}
      : defined $node->{href}    ? ""
      :                            qq(ocpNode('$id.node','$size');ocFolder('$id');displayTree('$id');hideArray('$id'););
    my $onclick = qq(ocFolder('$id');displayTree('$id');hideArray('$id');ocpNode('$id.node','$size'););
    $node->{class} = defined $node->{class} ? $node->{class} : "treeviewLink$size";
    my $FolderClass =
      defined $node->{FolderClass}
      ? $node->{FolderClass} . $size
      : "folder$size";
    $node->{title} = defined $node->{title} ? $node->{title} : $node->{text};
    my $tt;
    foreach my $key ( keys %{$node} ) {
        $tt .= $key . '="' . $node->{$key} . '" ' if ( $anker{$key} && $node->{$key} );
    } ## end foreach my $key ( keys %{$node...})
    my $st = $node->{style} =
      ( ( $columns > 0 or defined $node->{addition} ) and not defined $node->{style} ) ? 'style="white-space:nowrap;"' : '';
    my $addon =
      defined $node->{addition}
      ? qq( $node->{text} $node->{addition})
      : " $node->{text} ";
    my $lastminusnode = $clasic ? "clasicLastMinusNode$size" : "lastMinusNode$size";
    $self->{tree} .= (
        $bTrOver
        ? qq(
        : '
      )
      . qq(
    if ( $columns > 0 ) {
        my $class = $border ? "columnsFolderBorder$size" : "columnsFolder$size";
        $self->{subtree} .= (
            $bTrOver
            ? qq(
            : qq(
        );
        for ( my $i = 0 ; $i < $columns ; $i++ ) {
            if ( defined $node->{columns}[$i] ) {
                my $txt = $node->{columns}[$i];
                $self->{subtree} .= qq(
            } ## end if ( defined $node->{columns...})
        } ## end for ( my $i = 0 ; $i < ...)
        $self->{subtree} .= '
    } ## end if ( $columns > 0 )
    $self->initTree( \@$subtree );
    if ( $columns > 0 ) {
        for ( my $i = 0 ; $i < @$tmpref ; $i++ ) {
            $self->{js}{$ty}[$i] = $$tmpref[$i];
        } ## end for ( my $i = 0 ; $i < ...)
        undef @$tmpref;
    } ## end if ( $columns > 0 )
    $self->{tree} .= '
} ## end sub appendLastFolder

=head2 appendEmptyFolder

called by initTree(), append a empty Folder.

=cut

sub appendEmptyFolder {
    my $self = shift;
    my $node = shift;
    ++$id;
    my ( $tmpref, $ty );
    if ( $columns > 0 ) {
        $ty = $id;
        foreach my $key ( keys %openArrays ) {
            push @{ $openArrays{$key} }, $id;
        } ## end foreach my $key ( keys %openArrays)
        $tmpref = \@{ $openArrays{$id} };
    } ## end if ( $columns > 0 )
    my $onclick = qq(location.href='$node->{href}');
    $node->{class} = defined $node->{class} ? $node->{class} : "treeviewLink$size";
    my $FolderClass =
      defined $node->{folderclass}
      ? $node->{folderclass} . "Closed$size"
      : "folderClosed$size";
    $node->{title} = defined $node->{title} ? $node->{title} : $node->{text};
    my $tt;
    foreach my $key ( keys %{$node} ) {
        $tt .= $key . '="' . $node->{$key} . '" ' if ( $anker{$key} && $node->{$key} );
    } ## end foreach my $key ( keys %{$node...})
    my $st = $node->{style} =
      ( ( $columns > 0 or defined $node->{addition} ) and not defined $node->{style} ) ? 'style="white-space:nowrap;"' : '';
    my $addon =
      defined $node->{addition}
      ? qq( $node->{text} $node->{addition})
      : " $node->{text} ";
    my $plusnode = $clasic ? "clasicPlusNode$size" : "plusNode$size";
    $self->{tree} .= (
        $bTrOver
        ? qq(
        : '
      )
      . qq(
    if ( $columns > 0 ) {
        my $class = $border ? "columnsFolderBorder$size" : "columnsFolder$size";
        $self->{subtree} .= (
            $bTrOver
            ? qq(
            : qq(
        );
        for ( my $i = 0 ; $i < $columns ; $i++ ) {
            if ( defined $node->{columns}[$i] ) {
                my $txt = $node->{columns}[$i];
                $self->{subtree} .= qq(
            } ## end if ( defined $node->{columns...})
        } ## end for ( my $i = 0 ; $i < ...)
        $self->{subtree} .= '
        for ( my $i = 0 ; $i < @$tmpref ; $i++ ) {
            $self->{js}{$ty}[$i] = $$tmpref[$i];
        } ## end for ( my $i = 0 ; $i < ...)
        undef @$tmpref;
    } ## end if ( $columns > 0 )
} ## end sub appendEmptyFolder

=head2 appendLastEmptyFolder

$self->appendLastEmptyFolder($node);

called by initTree() if the last item of the (sub)Tree is a folder.

=cut

sub appendLastEmptyFolder {
    my $self = shift;
    my $node = shift;
    $id++;
    my $tmpref;
    my $ty;
    if ( $columns > 0 ) {
        $ty = $id;
        foreach my $key ( keys %openArrays ) {
            push @{ $openArrays{$key} }, $id;
        } ## end foreach my $key ( keys %openArrays)
        $tmpref = \@{ $openArrays{$id} };
    } ## end if ( $columns > 0 )
    my $onclick = qq(location.href='$node->{href}');
    $node->{class} = defined $node->{class} ? $node->{class} : "treeviewLink$size";
    my $FolderClass =
      defined $node->{folderclass}
      ? $node->{folderclass} . "Closed$size"
      : "folderClosed$size";
    $node->{title} = defined $node->{title} ? $node->{title} : $node->{text};
    my $tt;
    foreach my $key ( keys %{$node} ) {
        $tt .= $key . '="' . $node->{$key} . '" ' if ( $anker{$key} && $node->{$key} );
    } ## end foreach my $key ( keys %{$node...})
    my $st = $node->{style} =
      ( ( $columns > 0 or defined $node->{addition} ) and not defined $node->{style} ) ? 'style="white-space:nowrap;"' : '';
    my $addon =
      defined $node->{addition}
      ? qq( $node->{text} $node->{addition})
      : " $node->{text} ";
    my $lastpusnode = $clasic ? "clasicLastPlusNode$size" : "lastPlusNode$size";
    $self->{tree} .= (
        $bTrOver
        ? qq(
        : '
      )
      . qq(
    if ( $columns > 0 ) {
        my $class = $border ? "columnsFolderBorder$size" : "columnsFolder$size";
        $self->{subtree} .= (
            $bTrOver
            ? qq(
            : qq(
        );
        for ( my $i = 0 ; $i < $columns ; $i++ ) {
            if ( defined $node->{columns}[$i] ) {
                my $txt = $node->{columns}[$i];
                $self->{subtree} .= qq(
            } ## end if ( defined $node->{columns...})
        } ## end for ( my $i = 0 ; $i < ...)
        $self->{subtree} .= '
        for ( my $i = 0 ; $i < @$tmpref ; $i++ ) {
            $self->{js}{$ty}[$i] = $$tmpref[$i];
        } ## end for ( my $i = 0 ; $i < ...)
        undef @$tmpref;
    } ## end if ( $columns > 0 )
} ## end sub appendLastEmptyFolder

=head2 appendNode

$self->appendNode(\$node);

called by initTree() if the current item of the (sub)Tree is a node.

=cut

sub appendNode {
    my $self = shift;
    my $node = shift;
    $node->{image} = defined $node->{image} ? $node->{image} : 'link_overlay.png';
    $node->{class} = defined $node->{class} ? $node->{class} : "treeviewLink$size";
    $node->{title} = defined $node->{title} ? $node->{title} : $node->{text};
    $id++;
    if ( $columns > 0 ) {
        foreach my $key ( keys %openArrays ) {
            push @{ $openArrays{$key} }, $id;
        } ## end foreach my $key ( keys %openArrays)
    } ## end if ( $columns > 0 )
    my $tt;
    foreach my $key ( keys %{$node} ) {
        $tt .= $key . '="' . $node->{$key} . '" ' if ( $anker{$key} && $node->{$key} );
    } ## end foreach my $key ( keys %{$node...})
    my $st = $node->{style} =
      ( ( $columns > 0 or defined $node->{addition} ) and not defined $node->{style} ) ? 'style="white-space:nowrap;"' : '';
    my $addon =
      defined $node->{addition}
      ? qq( $node->{text} $node->{addition})
      : " $node->{text}";
    $self->{tree} .= (
        $bTrOver
        ? qq(
        : '
      )
      . qq(
    if ( $columns > 0 ) {
        $self->{subtree} .= (
            $bTrOver
            ? qq(
            : qq(
        );
        my $class = $border ? "columnsNodeBorder$size" : "columnsNode$size";
        for ( my $i = 0 ; $i < $columns ; $i++ ) {
            if ( defined $node->{columns}[$i] ) {
                my $txt = $node->{columns}[$i];
                $self->{subtree} .= qq(
            } ## end if ( defined $node->{columns...})
        } ## end for ( my $i = 0 ; $i < ...)
        $self->{subtree} .= '
    } ## end if ( $columns > 0 )
} ## end sub appendNode

=head2 appendLastNode

$self->appendLastNode(\$node);

called by initTree() if the last item of the current (sub)Tree is a node.

=cut

sub appendLastNode {
    my $self = shift;
    my $node = shift;
    $node->{image} = defined $node->{image} ? $node->{image} : 'link_overlay.png';
    $node->{class} = defined $node->{class} ? $node->{class} : "treeviewLink$size";
    $node->{title} = defined $node->{title} ? $node->{title} : $node->{text};
    $id++;
    if ( $columns > 0 ) {
        foreach my $key ( keys %openArrays ) {
            push @{ $openArrays{$key} }, $id;
        } ## end foreach my $key ( keys %openArrays)
    } ## end if ( $columns > 0 )
    my $tt;
    foreach my $key ( keys %{$node} ) {
        $tt .= $key . '="' . $node->{$key} . '" ' if ( $anker{$key} && $node->{$key} );
    } ## end foreach my $key ( keys %{$node...})
    my $st = $node->{style} =
      ( ( $columns > 0 or defined $node->{addition} ) and not defined $node->{style} ) ? 'style="white-space:nowrap;"' : '';
    my $addon =
      defined $node->{addition}
      ? qq( $node->{text} $node->{addition})
      : " $node->{text}";
    $self->{tree} .= (
        $bTrOver
        ? qq(
        : '
      )
      . qq(
    if ( $columns > 0 ) {
        my $class = $border ? "columnsLastNodeBorder$size" : "columnsLastNode$size";
        $self->{subtree} .= (
            $bTrOver
            ? qq(
            : qq(
        );
        for ( my $i = 0 ; $i < $columns ; $i++ ) {
            if ( defined $node->{columns}[$i] ) {
                my $txt = $node->{columns}[$i];
                $self->{subtree} .= qq(
            } ## end if ( defined $node->{columns...})
        } ## end for ( my $i = 0 ; $i < ...)
        $self->{subtree} .= '
    } ## end if ( $columns > 0 )
} ## end sub appendLastNode

=head1 SEE ALSO

http://lindnerei.sourceforge.net

=head1 AUTHOR

Dirk Lindner

=head1 LICENSE

LGPL

Copyright (C) 2018 by Hr. Dirk Lindner

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public License
as published by the Free Software Foundation;
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU Lesser General Public License for more details.

=cut
1;