oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Convert Sku and Shelf to Moose.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-19 13:16:54 -08:00
parent c7979a137f
commit 16d9076ecd
2 changed files with 66 additions and 109 deletions
Download patch file Download diff file Expand all files Collapse all files

123
lib/WebGUI/Asset/Sku.pm
View file

@ -16,12 +16,59 @@ package WebGUI::Asset::Sku;
use strict;
use Tie::IxHash;
use base 'WebGUI::Asset';
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
use WebGUI::International;
use WebGUI::Inbox;
use WebGUI::Shop::Cart;
use JSON qw{ from_json to_json };
attribute assetName => ['assetName', 'Asset_Sku'];
attribute icon => 'Sku.gif';
attribute tableName => 'sku';
property description => (
tab => "properties",
fieldType => "HTMLArea",
default => undef,
label => ["description", 'Asset_Sku'],
hoverHelp => ["description help", 'Asset_Sku'],
);
property sku => (
tab => "shop",
fieldType => "text",
default => sub { shift->session->id->generate },
lazy => 1,
label => ["sku", 'Asset_Sku'],
hoverHelp => ["sku help", 'Asset_Sku'],
);
property displayTitle => (
tab => "display",
fieldType => "yesNo",
default => 1,
label => ["display title", 'Asset_Sku'],
hoverHelp => ["display title help", 'Asset_Sku'],
);
property vendorId => (
tab => "shop",
fieldType => "vendor",
default => 'defaultvendor000000000',
label => ["vendor", 'Asset_Sku'],
hoverHelp => ["vendor help", 'Asset_Sku'],
);
property taxConfiguration => (
noFormPost => 1,
fieldType => 'hidden',
defaultValue => '{}',
);
property shipsSeparately => (
tab => 'shop',
fieldType => 'yesNo',
default => 0,
label => ['shipsSeparately', 'Asset_Sku'],
hoverHelp => ['shipsSeparately help', 'Asset_Sku'],
);
=head1 NAME
Package WebGUI::Asset::Sku
@ -88,76 +135,6 @@ sub applyOptions {
$self->{_skuOptions} = $options;
}
#-------------------------------------------------------------------
=head2 definition ( session, definition )
See super class.
=cut
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my %properties;
tie %properties, 'Tie::IxHash';
my $i18n = WebGUI::International->new($session, "Asset_Sku");
%properties = (
description => {
tab => "properties",
fieldType => "HTMLArea",
defaultValue => undef,
label => $i18n->get("description"),
hoverHelp => $i18n->get("description help")
},
sku => {
tab => "shop",
fieldType => "text",
defaultValue => $session->id->generate,
label => $i18n->get("sku"),
hoverHelp => $i18n->get("sku help")
},
displayTitle => {
tab => "display",
fieldType => "yesNo",
defaultValue => 1,
label => $i18n->get("display title"),
hoverHelp => $i18n->get("display title help")
},
vendorId => {
tab => "shop",
fieldType => "vendor",
defaultValue => 'defaultvendor000000000',
label => $i18n->get("vendor"),
hoverHelp => $i18n->get("vendor help")
},
taxConfiguration => {
noFormPost => 1,
fieldType => 'hidden',
defaultValue => '{}',
},
shipsSeparately => {
tab => 'shop',
fieldType => 'yesNo',
defaultValue => 0,
label => $i18n->get('shipsSeparately'),
hoverHelp => $i18n->get('shipsSeparately help'),
},
);
push(@{$definition}, {
assetName=>$i18n->get('assetName'),
icon=>'Sku.gif',
autoGenerateForms=>1,
tableName=>'sku',
className=>'WebGUI::Asset::Sku',
properties=>\%properties
});
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------
=head2 getAddToCartForm ( )
@ -420,7 +397,7 @@ Adding sku as a keyword. See WebGUI::Asset::indexContent() for additonal details
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
$indexer->addKeywords($self->get('sku'));
$indexer->addKeywords($self->sku);
return $indexer;
}
@ -667,7 +644,7 @@ false.
sub shipsSeparately {
my ($self) = @_;
return $self->isShippingRequired && $self->get('shipsSeparately');
return $self->isShippingRequired && $self->shipsSeparately;
}