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

Update EMSToken for Moose.

Browse source
This commit is contained in:
Colin Kuskie 2010-02-15 13:40:02 -08:00
parent d1a761945a
commit b277e69dd3
1 changed files with 16 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

58
lib/WebGUI/Asset/Sku/EMSToken.pm
View file

@ -15,8 +15,19 @@ package WebGUI::Asset::Sku::EMSToken;
=cut =cut
use strict; use strict;
use Tie::IxHash; use WebGUI::Definition::Asset;
use base 'WebGUI::Asset::Sku'; extends 'WebGUI::Asset::Sku';
aspect assetName => ['ems token', 'Asset_EMSToken'],
aspect icon => 'EMSToken.gif',
aspect tableName => 'EMSToken',
property price => (
tab => "shop",
fieldType => "float",
default => 0.00,
label => ["price", 'Asset_EMSToken'],
hoverHelp => ["price help", 'Asset_EMSToken'],
);
use WebGUI::Utility; use WebGUI::Utility;
@ -39,43 +50,6 @@ These methods are available from this class:
=cut =cut
#-------------------------------------------------------------------
=head2 definition
Adds price field.
=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_EventManagementSystem");
my $date = WebGUI::DateTime->new($session, time());
%properties = (
price => {
tab => "shop",
fieldType => "float",
defaultValue => 0.00,
label => $i18n->get("price"),
hoverHelp => $i18n->get("price help"),
},
);
push(@{$definition}, {
assetName => $i18n->get('ems token'),
icon => 'EMSToken.gif',
autoGenerateForms => 1,
tableName => 'EMSToken',
className => 'WebGUI::Asset::Sku::EMSToken',
properties => \%properties
});
return $class->SUPER::definition($session, $definition);
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getAddToCartForm =head2 getAddToCartForm
@ -120,7 +94,7 @@ Returns the value of the price field.
sub getPrice { sub getPrice {
my $self = shift; my $self = shift;
return $self->get("price"); return $self->price;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -208,7 +182,7 @@ sub view {
# render the page; # render the page;
my $output = '<h1>'.$self->getTitle.'</h1>' my $output = '<h1>'.$self->getTitle.'</h1>'
.'<p>'.$self->get('description').'</p>'; .'<p>'.$self->description.'</p>';
# build the add to cart form # build the add to cart form
if ($form->get('badgeId') ne '') { if ($form->get('badgeId') ne '') {
@ -250,7 +224,7 @@ Override to return to appropriate page.
sub www_delete { sub www_delete {
my ($self) = @_; my ($self) = @_;
return $self->session->privilege->insufficient() unless ($self->canEdit && $self->canEditIfLocked); return $self->session->privilege->insufficient() unless ($self->canEdit && $self->canEditIfLocked);
return $self->session->privilege->vitalComponent() if $self->get('isSystem'); return $self->session->privilege->vitalComponent() if $self->isSystem;
return $self->session->privilege->vitalComponent() if (isIn($self->getId, return $self->session->privilege->vitalComponent() if (isIn($self->getId,
$self->session->setting->get("defaultPage"), $self->session->setting->get("notFoundPage"))); $self->session->setting->get("defaultPage"), $self->session->setting->get("notFoundPage")));
$self->trash; $self->trash;