#!/usr/bin/perl -Tw -I. -I/usr/local/positive/Perl

use strict;
use Pos::Web::Widget;

package Pos::Webtop::Web::ContentLayout;

our @ISA = qw(
	Pos::Web::Widget
);


=head1 ContentLayout object

The ContentLayout object is the interface for working with content layouts.  This
will be used to display a gui for laying out the content modules for a user.  The object
will be used by the webtop gui and the policy manager.

=head1 METHODS

=over 4

=cut 

sub new 
{
	my $this = shift;
	my $class = ref($this) || $this;
	my ($self,$title,$userId) = @{{@_}}{qw/self title userId/};

	if ( not defined $self )
	{
		$self = {};
		bless($self,$class);
	}
	
	# setup base class
	Pos::Web::Widget->new( self=> $self, id=> "1" );
	
	# setup css defaults
	$self->setTagClass( tag=> "TABLE", class=> "BOXTABLE" );
	$self->setTagClass( tag=> "MODULE", class=> "CLMODULECELL" );
	$self->setTagClass( tag=> "TOPIC", class=> "CLPREVIEWTITLE" );
	$self->setTagClass( tag=> "TD1", class=> "BOXTD1" );
	$self->setTagClass( tag=> "TD2", class=> "BOXTD2" );

	$self->{'userId'} = $userId;

	return $self;	
}

# required pure virtual from Pos::Web::Widget
sub getIdPrefix
{
	return "ContentLayoutWidget";
}

=item B<getColumnModules>

Gets the Perl::Class modules from the db per column... multi dim array.

=cut 

sub getColumnModules
{
	my $self = shift;
	my @columns = (
		['dog','cat','bird'],
		['car','truck','boat'],
		['bob','jane','carl']
	);

	# read columns for user from db...
	# hard coded for test.

	return @columns;
}


=item B<getDesignHtml>

Returns the design html for use in the admintool policy type and on the webtop
prefs page

=cut 

sub getDesignHtml
{
	my $self = shift;

	my $ret = "";

	my $TABLE = $self->getTagClass( tag=> "TABLE" );
	my $MODULE = $self->getTagClass( tag=> "MODULE" );
	my $TOPIC = $self->getTagClass( tag=> "TOPIC" );
	my $TD1 = $self->getTagClass( tag=> "TD1" );
	my $TD2 = $self->getTagClass( tag=> "TD2" );
	my $idPrefix = $self->getIdPrefix();
	my $udPrefix = Pos::Web::Widget::FormWidget::MultiselectUpDown::getIdPrefix();

	$ret .= Pos::Web::Widget::FormWidget::MultiselectUpDown::getLibHtml();

	my @columns = $self->getColumnModules();

	my $colNum;
	my $lastPopulated = 0;

	# at most, 10 columns

	foreach $colNum ( 0..9 )
	{
		# setup columns array so we zap the last empties
		if ( defined $columns[ $colNum ] and @{ $columns[ $colNum ] } )
		{
			$lastPopulated = $colNum;
		}
	}

	$ret .= "
		<input type='hidden' name='" . $idPrefix . "LastPopulated' id='" . $idPrefix . "LastPopulated' value=\"" . HTML::Entities::encode($lastPopulated) . "\">

		<script language='JavaScript' version='1.3'>
			function " . $idPrefix . "FromTo( src, dest )
			{
				// find which index is selected
				var i;
				var found = false;
				var sel;

				for ( i = 0; i < src.options.length; i++ )
				{
					if( src.options[i].selected )
					{
						found = true;
						sel = i;
					}
				}

				if ( ! found )
					return;
				
				// make copy and kill
				var moving = new Option(
					src.options[sel].text,
					src.options[sel].value
				);

				src.options[sel] = null;
				
				
				// unselect everything in dest
				for ( i=0; i < dest.options.length; i++ )
				{
					dest.options[i].selected = false;
				}

				// add to
				var where = dest.options.length;
				dest.options[ where ] = moving;
				dest.options[ where ].selected = true;

				// last but not least, select first option in src

				if ( src.options.length > 0 )
				{
					src.options[0].selected=true;
				}

			}


			function " . $idPrefix . "AddModule( colNum )
			{
				// take from the srcModules and add to the ud#
				var src = document.getElementById('" . $idPrefix . "AvailModules');
				var dest = document.getElementById('" . $udPrefix . "mods' + colNum );
				" . $idPrefix . "FromTo( src, dest );
			}

			function " . $idPrefix . "RemoveModule( colNum )
			{
				// take from the srcModules and add to the ud#
				var dest = document.getElementById('" . $idPrefix . "AvailModules');
				var src = document.getElementById('" . $udPrefix . "mods' + colNum );
				" . $idPrefix . "FromTo( src, dest );
			}
			
			function " . $idPrefix . "ColumnAdjust( moreLess )
			{
				// more is true / 1 if you want more cols, false / 0 if you want less

				var lp = document.getElementById('" . $idPrefix . "LastPopulated');

				if ( moreLess )
					lp.value = Number( lp.value ) + 1;
				else
					lp.value = Number( lp.value ) - 1;

				// make sure we aren't over 9 or under 0..

				if ( Number( lp.value ) > 9 )
					lp.value = 9;

				if ( Number( lp.value ) < 0 )
					lp.value = 0;

				// now we go thru the td's and show all up to lp.value and hide the rest

				var i;

				for ( i = 0; i <= 9; i++ )
				{
					var tdId = '$idPrefix' + 'COL' + i;
					var myCol = document.getElementById( tdId );

					if ( i > Number( lp.value ) )
					{
						myCol.style.display = 'none';

						// while in the context, we need to also empty the msud in the cell
						// I will do this by calling RemoveModule on this colNum after selecting
						// the first item in the msud for this col.. i will stop when the msud's
						// select object has no more options in it.

						// get msud ref
						var msud = document.getElementById( '$udPrefix' + 'mods' + i );

						while ( msud.options.length > 0 )
						{
							msud.options[0].selected = true;
							" . $idPrefix . "RemoveModule( i );
						}
					}
					else
						myCol.style.display = '';

				}
			}

		</script>
	";

	$ret .= "
		<table border='0' cellspacing='0' cellpadding='5' class='$TABLE'>
		<tr>
			<th class='$TOPIC' align='left'>
				Available Content
			</th>
		</tr>
		<tr>
			<td class='$MODULE' valign='top' align='center'>
				<select id='" . $idPrefix . "AvailModules' size='6' style='width: 400px;'>
					<option id='test1'>test1</option>
					<option id='test2'>test2</option>
					<option id='test3'>test3</option>
				</select>
				<br/>
				<br/>
			</td>
		</tr>
		</table>

		<table border='0' cellspacing='1' cellpadding='5' class='$TABLE'>
		<tr>
			<th class='$TOPIC' align='left' colspan=10'>
				Content Columns
			</th>
		</tr>
		<tr>
			<td class='$TD1' align='center' colspan='10'>
				<table border='0' cellspacing='0' cellpadding='0'>
				<tr><td align='left' class='$TD1'>
					Below are columns that represent the columns used in the Webtop.  You may add content to a <br/>
					column by selecting content from the 'Available Content' list above and clicking the 'Add' button <br/>
					above the column you wish you add it to.  You may remove content from a column by selecting the <br/>
					content from the column and clicking the 'Remove' button above the column.  You may add and remove <br/>
					columns available via the 'Add Column' and 'Remove Column' buttons below the columns. <br/>
				</td></tr>
				</table>
			</td>
		</tr>
		<tr>
	";


	for $colNum ( 0..9 )
	{
		my $tdStyle = "";

		if ( not defined $columns[ $colNum ] or not @{ $columns[ $colNum ] } )
		{
			# assign to empty array so errors won't be generated by updown class
			$columns[ $colNum ] = [()];
			# hide this td if greater than lastPopulated
			if ( $colNum > $lastPopulated )
			{
				$tdStyle = " style='display: none;'";
			}
		}
		
		my $tdId = $idPrefix . "COL" . $colNum;

		$ret .= "
			<td class='$MODULE' valign='top' align='center'$tdStyle ID='$tdId'>
		";

		my $ud = Pos::Web::Widget::FormWidget::MultiselectUpDown->new(
			name=> "mods$colNum", width=> "150px", size=> "10" );

		$ud->setTagClass( tag=> "TD", class=> $MODULE );

		foreach my $moduleClass ( @{ $columns[ $colNum ] } )
		{
			$ud->addOption( text=> "$moduleClass", value=> "$moduleClass" );		
		}
		
		$ret .= "
			<input type='button' value='Add'
				onClick='" . $idPrefix . "AddModule(\"$colNum\")'>
			<input type='button' value='Remove'
				onClick='" . $idPrefix . "RemoveModule(\"$colNum\")'>
			<br/>
			<br/>
		";

		$ret .= $ud->getHtml();
		
		$ret .= "
			</td>
		";
	}

	$ret .= "
		</tr>
		</table>

		<br/>

		<input type='button' onClick='" . $idPrefix . "ColumnAdjust(true);' value='Add Column'>
		<input type='button' onClick='" . $idPrefix . "ColumnAdjust(false);' value='Remove Column'>

	";

	return $ret;
}

1;

=back

=cut