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

Update Donation asset for Moose.

Browse source
This commit is contained in:
Colin Kuskie 2010-02-15 09:19:57 -08:00
parent 59d28086f6
commit e9296e1a3a
1 changed files with 39 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

93
lib/WebGUI/Asset/Sku/Donation.pm
View file

@ -16,7 +16,43 @@ package WebGUI::Asset::Sku::Donation;
use strict;
use Tie::IxHash;
use base 'WebGUI::Asset::Sku';
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['assetName', 'Asset_Donation'];
aspect icon => 'Donation.gif';
aspect tableName => 'donation';
property templateId => (
tab => "display",
fieldType => "template",
namespace => "Donation",
default => "vrKXEtluIhbmAS9xmPukDA",
label => ["donate template", 'Asset_Donation'],
hoverHelp => ["donate template help", 'Asset_Donation'],
);
property thankYouMessage => (
tab => "properties",
builder => '_thankYouMessage_default',
lazy => 1,
fieldType => "HTMLArea",
label => ["thank you message", 'Asset_Donation'],
hoverHelp => ["thank you message help", 'Asset_Donation'],
);
sub _thankYouMessage_default {
my $session = shift->session;
my $i18n = WebGUI::International->new($session, "Asset_Donation");
return $i18n->get("default thank you message");
}
property defaultPrice => (
tab => "shop",
fieldType => "float",
default => 100.00,
label => ["default price", 'Asset_Donation'],
hoverHelp => ["default price help", 'Asset_Donation'],
);
use WebGUI::Asset::Template;
use WebGUI::Form;
@ -41,57 +77,6 @@ These methods are available from this class:
#-------------------------------------------------------------------
=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_Donation");
%properties = (
templateId => {
tab => "display",
fieldType => "template",
namespace => "Donation",
defaultValue => "vrKXEtluIhbmAS9xmPukDA",
label => $i18n->get("donate template"),
hoverHelp => $i18n->get("donate template 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"),
},
defaultPrice => {
tab => "shop",
fieldType => "float",
defaultValue => 100.00,
label => $i18n->get("default price"),
hoverHelp => $i18n->get("default price help"),
},
);
push(@{$definition}, {
assetName => $i18n->get('assetName'),
icon => 'Donation.gif',
autoGenerateForms => 1,
tableName => 'donation',
className => 'WebGUI::Asset::Sku::Donation',
properties => \%properties
});
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------
=head2 getAddToCartForm ( )
@ -138,7 +123,7 @@ Returns configured price, or default price, or 100 if neither of those are avail
sub getPrice {
my $self = shift;
return $self->getOptions->{price} || $self->get("defaultPrice") || 100.00;
return $self->getOptions->{price} || $self->defaultPrice || 100.00;
}
#-------------------------------------------------------------------
@ -152,7 +137,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;