#! /usr/bin/perl -w

use strict;

use Tree::Numbered;
use Tree::Numbered::DB;
use Javascript::Menu;

use DBI;
use CGI;

my $cgi = CGI->new;

my $action = sub {
    my $self = shift;
    my ($level, $unique) = @_;

    my $value = $self->getValue;
    return "document.getElementById('caption_${unique}').innerHTML='$value';";
};

my $tree2 = Javascript::Menu->new(value => 'root', action => $action);
$tree2->append(value => 'first');
$tree2->append(value => 'second');
$tree2->nextNode->append(value => 'child1');

my $css = Javascript::Menu->buildCSS(Javascript::Menu->reasonableCSS);

print $cgi->header(-charset => "windows-1255");
print $cgi->start_html(-xbase => "http://192.168.0.124/",
		       -encoding => "windows-1255", 
		       -lang => "he", -dir => "rtl",
		       -style => {-code => $css},
		       -script => {-language => 'Javascript',
				   -code => $tree2->baseJS('rtl')});

print $cgi->div({-id => 'middle'}, $tree2->getHTML(no_ie => 0));