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

Update FlatDiscount for Moose.

Browse source
This commit is contained in:
Colin Kuskie 2010-02-15 09:24:00 -08:00
parent e9296e1a3a
commit c670b130f6
1 changed files with 56 additions and 71 deletions
Download patch file Download diff file Expand all files Collapse all files

127
lib/WebGUI/Asset/Sku/FlatDiscount.pm
View file

@ -16,7 +16,55 @@ package WebGUI::Asset::Sku::FlatDiscount;
use strict;
use Tie::IxHash;
use base 'WebGUI::Asset::Sku';
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['assetName', 'Asset_FlatDiscount'];
aspect icon => 'FlatDiscount.gif';
aspect tableName => 'FlatDiscount';
property templateId => (
tab => "display",
fieldType => "template",
namespace => "FlatDiscount",
default => "63ix2-hU0FchXGIWkG3tow",
label => ["template", 'Asset_FlatDiscount'],
hoverHelp => ["template help", 'Asset_FlatDiscount'],
);
property mustSpend => (
tab => "shop",
fieldType => "float",
default => 0.00,
label => ["must spend", 'Asset_FlatDiscount'],
hoverHelp => ["must spend help", 'Asset_FlatDiscount'],
);
property percentageDiscount => (
tab => "shop",
fieldType => "integer",
default => 0,
label => ["percentage discount", 'Asset_FlatDiscount'],
hoverHelp => ["percentage discount help", 'Asset_FlatDiscount'],
);
property priceDiscount => (
tab => "shop",
fieldType => "float",
default => 0.00,
label => ["price discount", 'Asset_FlatDiscount'],
hoverHelp => ["price discount help", 'Asset_FlatDiscount'],
);
property thankYouMessage => (
tab => "properties",
builder => '_thankYouMessage_default',
lazy => 1,
fieldType => "HTMLArea",
label => ["thank you message", 'Asset_FlatDiscount'],
hoverHelp => ["thank you message help", 'Asset_FlatDiscount'],
);
sub _thankYouMessage_default {
my $session = shift->session;
my $i18n = WebGUI::International->new($session, "Asset_Donation");
return $i18n->get("default thank you message");
}
use WebGUI::Asset::Template;
use WebGUI::Form;
@ -59,69 +107,6 @@ sub addToCart {
}
}
#-------------------------------------------------------------------
=head2 definition
=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_FlatDiscount");
%properties = (
templateId => {
tab => "display",
fieldType => "template",
namespace => "FlatDiscount",
defaultValue => "63ix2-hU0FchXGIWkG3tow",
label => $i18n->get("template"),
hoverHelp => $i18n->get("template help"),
},
mustSpend => {
tab => "shop",
fieldType => "float",
defaultValue => 0.00,
label => $i18n->get("must spend"),
hoverHelp => $i18n->get("must spend help"),
},
percentageDiscount => {
tab => "shop",
fieldType => "integer",
defaultValue => 0,
label => $i18n->get("percentage discount"),
hoverHelp => $i18n->get("percentage discount help"),
},
priceDiscount => {
tab => "shop",
fieldType => "float",
defaultValue => 0.00,
label => $i18n->get("price discount"),
hoverHelp => $i18n->get("price discount help"),
},
thankYouMessage => {
tab => "properties",
defaultValue => $i18n->get("default thank you message"),
fieldType => "HTMLArea",
label => $i18n->get("thank you message"),
hoverHelp => $i18n->get("thank you message help"),
},
);
push(@{$definition}, {
assetName => $i18n->get('assetName'),
icon => 'FlatDiscount.gif',
autoGenerateForms => 1,
tableName => 'FlatDiscount',
className => 'WebGUI::Asset::Sku::FlatDiscount',
properties => \%properties
});
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------
=head2 getMaxAllowedInCart ( )
@ -147,15 +132,15 @@ sub getPrice {
my $self = shift;
my $subtotal = 0;
foreach my $item (@{$self->getCart->getItems()}) {
next if ($item->get('assetId') eq $self->getId); # avoid an infinite loop
$subtotal += $item->getSku->getPrice * $item->get('quantity');
next if ($item->assetId eq $self->getId); # avoid an infinite loop
$subtotal += $item->getSku->getPrice * $item->quantity;
}
if ($subtotal >= $self->get('mustSpend')) {
if ($self->get('percentageDiscount') > 0) {
return $subtotal * $self->get('percentageDiscount') / -100;
if ($subtotal >= $self->mustSpend) {
if ($self->percentageDiscount > 0) {
return $subtotal * $self->percentageDiscount / -100;
}
else {
return $self->get('priceDiscount');
return $self->priceDiscount;
}
}
return 0;
@ -207,7 +192,7 @@ Prepares the template.
sub prepareView {
my $self = shift;
$self->SUPER::prepareView();
my $templateId = $self->get("templateId");
my $templateId = $self->templateId;
my $template = WebGUI::Asset::Template->new($self->session, $templateId);
$template->prepare($self->getMetaDataAsTemplateVariables);
$self->{_viewTemplate} = $template;