use strict;
use Pos::Webtop::Toolbox;

package Pos::Webtop::Web::ContentModule;


sub new 
{
	my $this = shift;
	my $class = ref($this) || $this;
	my ($self,$previewWidth,$previewTitle,$tb) = @{{@_}}{qw/self previewWidth previewTitle toolBox/};

	if ( not defined $self )
	{
		$self = {};
		bless($self,$class);
	}
	
	$tb = Pos::Webtop::Toolbox->new() unless defined $tb;
	$self->{'toolBox'} = $tb;

	my $client = $tb->getClient();
	my $isMobile = $client->isMobileWebtop();

	if ($isMobile)
	{
		$previewWidth = "200" unless defined $previewWidth;
	}
	else
	{
		$previewWidth = "333" unless defined $previewWidth;
	}
	$self->{'previewWidth'} = $previewWidth;
	
	$previewTitle = "Content" unless defined $previewTitle;
	$self->{'previewTitle'} = $previewTitle;

	my $p = $tb->getPage();
	$p->addNavBarElement( description=> $previewTitle );

	return $self;	
}

# pure virtual
sub main
{
	die(ref(shift) . " did not define main method required by base class Pos::Webtop::Web::ContentModule\n");	
}

# pure virtual
sub getPreviewHtml
{
	die(ref(shift) . " did not define getPreviewHtml method required by base class Pos::Webtop::Web::ContentModule\n");	
}

sub getPreviewHeader
{
	my $self = shift;

	my $ret = "
		<table border='0' cellspacing='1' cellpadding='4' width='" . $self->{'previewWidth'} . "'>
		<tr>
			<td class='CLMPREVIEW' align='left' valign='top'>
	";

	return $ret;
}

sub getPreviewFooter
{
	my $self = shift;

	my $ret = "
			</td>
		</tr>
		</table>
	";

	return $ret;
}

sub getPreviewWidth
{
	return shift->{'previewWidth'};
}

sub getPreviewTitle
{
	return shift->{'previewTitle'};
}

sub getToolBox
{
	return shift->{'toolBox'};
}


1;