#!/usr/bin/perl -Tw

use strict;

package Pos::Webtop::Web::TreeNode;

sub new 
{
	my $this = shift;
	my $class = ref($this) || $this;
	my ($text, $appendFrontText, $appendBackText, $js) = @{{@_}}{qw/text appendFrontText appendBackText js/};
	my $self = {};

	bless($self,$class);

	$self->{'nodes'} = [];
	$self->{'text'} = $text;
	$self->{'appendFrontText'} = $appendFrontText;
	$self->{'appendBackText'} = $appendBackText;
	$self->{'js'} = $js;

	return $self;
}

sub pushNode
{
	my $self = shift;
	my ($new) = @{{@_}}{qw/node/};

	foreach my $node ( @{ $self->{'nodes'} }) {
		if ($node->{'text'} eq $new->{'text'}) {
			return $node;
		}
	}

	push @{ $self->{'nodes'} }, $new;

	return $new;
}

sub sprout
{
	my $self = shift;
	my $id = shift;
	my $printLib = shift;
	$id = 1 unless defined $printLib;
	$printLib = 1 unless defined $printLib;
	my $ret = "";

	my $text = $self->{'text'};
	my $appendFrontText = defined($self->{'appendFrontText'}) ? $self->{'appendFrontText'} : "";
	my $appendBackText = defined($self->{'appendBackText'}) ? $self->{'appendBackText'} : "";
	my $js = $self->{'js'};
	
	if ( $printLib )
	{
		$ret .= "
			<script language='JavaScript1.3' type='text/javascript'>
				
				var selectBackgroundColor = '#0600BA';
				var selectForegroundColor = 'white';
				var plusImage = 'LocalWebLib/plusSign.gif';
				var minusImage = 'LocalWebLib/minusSign.gif';
				var unselectBackgroundColor = '#efefef';
				var unselectForegroundColor = '#0600BA';

				var lastSelectedNodeId = '';

				function getLastSelectedNodeId() 
				{
					return lastSelectedNodeId;
				}

				function selectNode( nodeId )
				{
					if ( nodeId == lastSelectedNodeId )
						return;

					var nodeText;

					if ( String(lastSelectedNodeId).length )
					{
						/* turn off old selection */
						nodeText = document.getElementById('nodeText' + lastSelectedNodeId);

						if (nodeText != null)
						{
							nodeText.style.color = unselectForegroundColor;
							nodeText.style.background = unselectBackgroundColor;
						}
					}
						
					nodeText = document.getElementById('nodeText' + nodeId);

					if (nodeText != null)
					{
						nodeText.style.color = selectForegroundColor;
						nodeText.style.background = selectBackgroundColor;
					}

					lastSelectedNodeId = nodeId;
				}

				function toggleNode( nodeId )
				{
					var nodeImage = document.getElementById('nodeImage' + nodeId);
					var nodeContents = document.getElementById('nodeContents' + nodeId);

					if (nodeImage == null || nodeContents == null)
						return;

					if ( nodeContents.style.display == 'none' )
					{
						/* expand please */
						nodeContents.style.display = '';
						nodeImage.src = minusImage;
					}
					else
					{
						/* collapse please */
						nodeContents.style.display = 'none';
						nodeImage.src = plusImage;
					}
				}

			</script>
		";
	}
	
	my $spacing = '0px';
	my $display = '';
	my $image = 'LocalWebLib/plusSign.gif';

	scalar( @{ $self->{'nodes'} } ) or  $image = 'LocalWebLib/space.gif';

	if ( defined $text )
	{
		$spacing = '15px';
		$display = 'none';
		$text = HTML::Entities::encode($text);
		$js = "" unless defined $js;

		my $string = ((defined($appendFrontText))?"$appendFrontText ":"") . "$text" . ((defined($appendBackText))?" $appendBackText":"");
		$ret .= "<nobr><a href=\"javascript:toggleNode('$id');\"><img id='nodeImage$id' src='$image' height='11' width='11' border='0'/></a><a href='javascript:selectNode(\"$id\");$js' id='nodeText$id' style='text-decoration: none; color: #0600ba;'> $string</a><br/></nobr>\n";
	}

	
	if ( scalar( @{ $self->{'nodes'} } ) )
	{
		$ret .= "<div id='nodeContents$id' style='" . ( length($display) ? "display: $display; " : "" ) . "margin-left: $spacing;'>\n";

		my $cnt = 0;
		
		foreach ( @{ $self->{'nodes'} } )
		{
			$cnt++;
			my $yourId = $id . "." . $cnt;
			$ret .= $_->sprout($yourId,0);
		}

		$ret .= "</div>\n";
	}

	$ret .= "
		<script language='javascript' version='1.3'>

			// Always select the top node by default
			selectNode(\"1.1\");

		</script>
		";

	return $ret;
}

1;