#!/usr/bin/perl -w use lib qw(lib); use HTML::Menu::TreeView; use CGI; use strict; my @tree = ( { onclick => "alert('onclick');", text => 'onclick', }, { text => 'Html::Menu::TreeView', href => "./open.pl?open=1", empty => 1, # this is the important line } ); my $TreeView = new HTML::Menu::TreeView(); my $q = new CGI; if ($q->param('open')){ $tree[1]{subtree} = [ { text => 'Examples', subtree => [ { text => 'FO Syntax', href => './fo.pl', }, ], }, ]; undef $tree[1]{empty}; } print($q->header . $q->start_html( -title => 'OO', -script => $TreeView->jscript() . $TreeView->preload(), -style => {-code => $TreeView->css()} ) . $TreeView->Tree(\@tree) . $q->end_html ); |