3e2d5c6adf
Sku's. Update all the templates to display this URL. The new url takes the user back to the view method with no extra variables set (like hasAddedToCart).
259 lines
6.1 KiB
Perl
259 lines
6.1 KiB
Perl
package WebGUI::Asset::Sku::FlatDiscount;
|
|
|
|
=head1 LEGAL
|
|
|
|
-------------------------------------------------------------------
|
|
WebGUI is Copyright 2001-2008 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
|
|
-------------------------------------------------------------------
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use Tie::IxHash;
|
|
use base 'WebGUI::Asset::Sku';
|
|
use WebGUI::Asset::Template;
|
|
use WebGUI::Form;
|
|
|
|
|
|
=head1 NAME
|
|
|
|
Package WebGUI::Asset::Sku::FlatDiscount
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This asset is a basic coupon.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use WebGUI::Asset::Sku::FlatDiscount;
|
|
|
|
=head1 METHODS
|
|
|
|
These methods are available from this class:
|
|
|
|
=cut
|
|
|
|
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 addToCart ( )
|
|
|
|
Checks to make sure there isn't already a coupon of this type in the cart.
|
|
|
|
=cut
|
|
|
|
sub addToCart {
|
|
my ($self, $options) = @_;
|
|
my $found = $self->hasCoupon();
|
|
unless ($found) {
|
|
$self->{_hasAddedToCart} = 1;
|
|
$self->SUPER::addToCart($options);
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 definition
|
|
|
|
Adds templateId, thankYouMessage, and defaultPrice fields.
|
|
|
|
=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 ( )
|
|
|
|
Returns 1.
|
|
|
|
=cut
|
|
|
|
sub getMaxAllowedInCart {
|
|
return 1;
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 getPrice
|
|
|
|
Returns either 0 or a percentage off the price or a flat amount off the price depending upon what's in the cart.
|
|
|
|
=cut
|
|
|
|
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');
|
|
}
|
|
if ($subtotal >= $self->get('mustSpend')) {
|
|
if ($self->get('percentageDiscount') > 0) {
|
|
return $subtotal * $self->get('percentageDiscount') / -100;
|
|
}
|
|
else {
|
|
return $self->get('priceDiscount');
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 hasCoupon
|
|
|
|
Returns 1 if this coupon is already in the user's cart. It does a short-circuiting
|
|
search for speed.
|
|
|
|
=cut
|
|
|
|
sub hasCoupon {
|
|
my $self = shift;
|
|
my $hasCoupon = 0;
|
|
ITEM: foreach my $item (@{$self->getCart->getItems()}) {
|
|
if (ref($item->getSku) eq ref($self)) {
|
|
$hasCoupon=1;
|
|
last ITEM;
|
|
}
|
|
}
|
|
return $hasCoupon;
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 isCoupon
|
|
|
|
Returns 1.
|
|
|
|
=cut
|
|
|
|
sub isCoupon {
|
|
return 1;
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 prepareView
|
|
|
|
Prepares the template.
|
|
|
|
=cut
|
|
|
|
sub prepareView {
|
|
my $self = shift;
|
|
$self->SUPER::prepareView();
|
|
my $templateId = $self->get("templateId");
|
|
my $template = WebGUI::Asset::Template->new($self->session, $templateId);
|
|
$template->prepare;
|
|
$self->{_viewTemplate} = $template;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 view
|
|
|
|
Displays the FlatDiscount form.
|
|
|
|
=cut
|
|
|
|
sub view {
|
|
my ($self) = @_;
|
|
my $session = $self->session;
|
|
my $i18n = WebGUI::International->new($session, "Asset_FlatDiscount");
|
|
my %var = (
|
|
formHeader => WebGUI::Form::formHeader($session, { action=>$self->getUrl })
|
|
. WebGUI::Form::hidden( $session, { name=>"func", value=>"addToCart" }),
|
|
formFooter => WebGUI::Form::formFooter($session),
|
|
addToCartButton => WebGUI::Form::submit( $session, { value => $i18n->get("add to cart") }),
|
|
hasAddedToCart => $self->{_hasAddedToCart},
|
|
continueShoppingUrl => $self->getUrl,
|
|
);
|
|
$var{alreadyHasCoupon} = $self->hasCoupon();
|
|
|
|
return $self->processTemplate(\%var,undef,$self->{_viewTemplate});
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 wwww_addToCart
|
|
|
|
Accepts the information from the form and adds it to the cart.
|
|
|
|
=cut
|
|
|
|
sub www_addToCart {
|
|
my $self = shift;
|
|
if ($self->canView) {
|
|
$self->addToCart();
|
|
}
|
|
return $self->www_view;
|
|
}
|
|
|
|
1;
|