view release on metacpan or  search on metacpan

examples/folderFirst.pl  view on Meta::CPAN

#!/usr/bin/perl -w
use lib qw(lib);
use CGI;
use HTML::Menu::TreeView;
use strict;
my $cgi           = new CGI;
my $TreeView      = new HTML::Menu::TreeView;
my $serversubtree = './';
my $style         = $cgi->param('style') ? $cgi->param('style') : 'Crystal';
my $folderfirst   = $TreeView->folderFirst();
my $changeState   = $cgi->param('folderFirst') ? 0 : 1;
my $sort          = $cgi->param('sort') ? 0 : 1;
my $isSorted      = $TreeView->sortTree();
$TreeView->folderFirst( $cgi->param('folderFirst') ? 1 : 0 );
$TreeView->sortTree( $cgi->param('sort')           ? 1 : 0 );
$TreeView->style($style);
my @tree = (
    {
        text => 'Folderfirst',
        href => "./folderFirst.pl?folderFirst=$changeState&sort=$isSorted",
    },
    {
        text => 'Sort',
        href => "./folderFirst.pl?folderFirst=$folderfirst&sort=$sort",
    },
    {
        text    => 'Treeview.pm',
        href    => '/html-menu-treeview.html',
        onclick => '',
        subtree => [
            {
                text => 'Source Code',
                href => 'treeviewsource.pl',
            },
        ],
    },
    {
        text    => 'Examples',
        subtree => [
            {
                text => 'OO Syntax',
                href => 'http://treeview.lindnerei.de/cgi-bin/oo.pl',
            },
            {
                text => 'FO Syntax',
                href => 'http://treeview.lindnerei.de/cgi-bin/fo.pl',
            },
            {
                text => 'Crystal',
                href => 'http://treeview.lindnerei.de/cgi-bin/crystal.pl',
            },
            {
                text => 'Sorting the Tree',
                href => 'http://treeview.lindnerei.de/cgi-bin/folderFirst.pl',
            },
        ],
    },
    {
        text    => 'Related Sites',
        subtree => [
            {
                text   => 'search.cpan.org',
                href   => 'http://search.cpan.org/dist/HTML-Menu-TreeView/',
                target => '_parent',
            },
            {
                text   => 'Forum',
                href   => 'http://www.cpanforum.com/dist/HTML-Menu-TreeView/',
                target => '_parent',
            },
            {
                text   => 'Lindnerei.de',
                href   => 'http://www.lindnerei.de',
                target => '_parent',
            },
            {
                text    => 'Treeview.pm',
                href    => 'http://treeview.lindnerei.de/',
                subtree => [
                    {
                        text => 'Source Code',
                        href => 'treeviewsource.pl',
                    },
                ],
            },
        ]
    },
    {
        text => 'Contact',
        href => 'mailto:dirk.lindner@gmx.de',
    }
);
print( $cgi->header,
    $cgi->start_html(
        -title  => 'Print Folders First',
        -script => $TreeView->jscript() . $TreeView->preload(),
        -style  => { -code => $TreeView->css() }
    ),
    $TreeView->Tree( \@tree ),
    $cgi->end_html
);