package WebGUI::Asset::Wobject::NewWobject;

$VERSION = "1.0.0";

#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2005 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com                     info@plainblack.com
#-------------------------------------------------------------------

use strict;
use Tie::IxHash;
use WebGUI::ErrorHandler;
use WebGUI::International;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::URL;
use WebGUI::Utility;
use WebGUI::Asset::Wobject;

our @ISA = qw(WebGUI::Asset::Wobject);

#-------------------------------------------------------------------
=head2 definition

defines wobject properties for New Wobject instances.  You absolutely need 
this method in your new Wobjects.  If you choose to "autoGenerateForms", the
getEditForm method is unnecessary/redundant/useless.  

=cut

sub definition {
	my $class = shift;
	my $definition = shift;
	my %properties;
	tie %properties, 'Tie::IxHash';
	%properties = (
		templateId =>{
			
			#See the list of field/control types in /lib/WebGUI/Form/
			fieldType=>"template",  
			
			defaultValue=>'NewWobjectTmpl00000001',
			tab=>"display",
			
			#www_editSave will ignore anyone's attempts to update this field if this is set to 1
			noFormPost=>0,  
			
			#This is an option specific to the template fieldType.
			namespace=>"NewWobject", 
			
			#This is what will appear when the user hovers the mouse over the label 
			# of your form field.
			hoverHelp=>WebGUI::International::get('templateId label description','Asset_NewWobject'),
			
			# This is the text that will appear to the left of your form field.
			label=>WebGUI::International::get('templateId label,"Asset_NewWobject")
		}
	);
	push(@{$definition}, {
		assetName=>WebGUI::International::get('assetName',"Asset_NewWobject"),
		icon=>'newWobject.gif',
		autoGenerateForms=>1,
		tableName=>'NewWobject',
		className=>'WebGUI::Asset::Wobject::NewWobject',
		properties=>\%properties
		});
	return $class->SUPER::definition($definition);
}


#-------------------------------------------------------------------
=head2 duplicate

duplicates a New Wobject.  This method is unnecessary, but if you have 
auxiliary, ancillary, or "collateral" data or files related to your 
wobject instances, you will need to duplicate them here.

=cut

sub duplicate {
	my $self = shift;
	my $newAsset = $self->SUPER::duplicate(shift);
	return $newAsset;
}

#-------------------------------------------------------------------
=head2 getEditForm

returns the tabform object that will be used in generating the edit page for New Wobjects.
This method is optional if you set autoGenerateForms=1 in the definition.

=cut

sub getEditForm {
	my $self = shift;
	my $tabform = $self->SUPER::getEditForm();

	$tabform->getTab("display")->template(
		-value=>$self->getValue("templateId"),
		-label=>WebGUI::International::get("template_label","NewWobject"),
		-namespace=>"NewWobject"
	);
	
	return $tabform;
}

#-------------------------------------------------------------------
=head2 purge ( )

removes collateral data associated with a NewWobject when the system
purges it's data.  This method is unnecessary, but if you have 
auxiliary, ancillary, or "collateral" data or files related to your 
wobject instances, you will need to purge them here.

=cut

sub purge {
	my $self = shift;
	#purge your wobject-specific data here.  This does not include fields 
	# you create for your NewWobject asset/wobject table.
	return $self->SUPER::purge;
}

#-------------------------------------------------------------------
=head2 view ( )

method called by the www_view method.  Returns a processed template
to be displayed within the page style.  

=cut

sub view {
	my $self = shift;
	
	#This automatically creates template variables for all of your wobject's properties.
	my $var = $self->get;
	
	 #This is where you will store your wobject's extras files, any javascript, css, or any other files your wobject may use.
	$var->{'extrasFolder'} = $session{config}{extrasURL}."/wobject/NewWobject"; 
	
	#This is an example of debugging code to help you diagnose problems.
	#WebGUI::ErrorHandler::warn($self->get("templateId")); 
	
	return $self->processTemplate($var, $self->get("templateId"));
}

#-------------------------------------------------------------------
=head2 www_edit ( )

Web facing method which is the default edit page.  This method is entirely
optional.  Take it out unless you specifically want to set a submenu in your
adminConsole views.

=cut

#sub www_edit {
#   my $self = shift;
#   return WebGUI::Privilege::insufficient() unless $self->canEdit;
#   $self->getAdminConsole->setHelp("new wobject add/edit", "NewWobject");
#   return $self->getAdminConsole->render($self->getEditForm->print,
#                  WebGUI::International::get("edit_title","NewWobject"));
#}

#-------------------------------------------------------------------
=head2 www_view ( )

Override www_view method and call the superclass's object method, passing 
in a 1 to disable wobject-level cache.  Only use this method if you want 
to explicitly disable caching, or do something else when /yourWobjectUrl?func=view or just /yourWobjectUrl is requested.

=cut

sub www_view {
   my $self = shift;
   return $self->SUPER::www_view(1);
   # default: return $self->SUPER::www_view();
}

1;