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

Convert AdSku collateral over to Moose.

Browse source
This commit is contained in:
Colin Kuskie 2010-11-10 10:23:51 -08:00
parent 9832f38a93
commit b9051fa8a4
2 changed files with 45 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Sku/Ad.pm
View file

@ -328,7 +328,7 @@ sub onCompletePurchase {
}); });
} }
WebGUI::AssetCollateral::Sku::Ad::Ad->create($session, { WebGUI::AssetCollateral::Sku::Ad::Ad->new($session, {
userId => $userId, userId => $userId,
transactionItemId => $item->getId, transactionItemId => $item->getId,
adId => $ad->getId, adId => $ad->getId,

77
lib/WebGUI/AssetCollateral/Sku/Ad/Ad.pm
View file

@ -25,14 +25,7 @@ Package to manipulate collateral for WebGUI::Asset::Sku::Ad.
This packages is a subclass of L<WebGUI::Crud>. Please refer to that module This packages is a subclass of L<WebGUI::Crud>. Please refer to that module
for a list of base methods that are available. for a list of base methods that are available.
=cut =head1 properties
use strict;
use base 'WebGUI::Crud';
#------------------------------------------------
=head1 crud_definition ($session)
Defines the fields this CRUD will contain. Defines the fields this CRUD will contain.
@ -47,46 +40,48 @@ isDeleted = boolean that indicates whether the ad has been deleted from the syst
=cut =cut
sub crud_definition { use strict;
my ($class, $session) = @_; use Moose;
my $definition = $class->SUPER::crud_definition($session); use WebGUI::Definition::Crud;
$definition->{tableName} = 'adSkuPurchase'; extends 'WebGUI::Crud';
$definition->{tableKey} = 'adSkuPurchaseId'; define tableName => 'adSkuPurchase';
$definition->{properties} = { define tableKey => 'adSkuPurchaseId';
userId => { has adSkuPurchaseId => (
required => 1,
is => 'ro',
);
property userId => (
label => 'userId',
fieldType => 'user', fieldType => 'user',
defaultValue => undef, );
}, property transactionItemId => (
transactionItemId => { label => 'transactionItemId',
fieldType => 'guid', fieldType => 'guid',
defaultValue => undef, );
}, property adId => (
adId => { label => 'adId',
fieldType => 'guid', fieldType => 'guid',
defaultValue => undef, );
}, property clicksPurchased => (
clicksPurchased => { label => 'clicksPurchased',
fieldType => 'integer', fieldType => 'integer',
defaultValue => undef, );
}, property impressionsPurchased => (
impressionsPurchased => { label => 'impressionsPurchased',
fieldType => 'integer', fieldType => 'integer',
defaultValue => undef, );
}, property dateOfPurchase => (
dateOfPurchase => { label => 'dateOfPurchase',
fieldType => 'date', fieldType => 'date',
defaultValue => undef, );
}, property storedImage => (
storedImage => { label => 'storedImage',
fieldType => 'guid', fieldType => 'guid',
defaultValue => undef, );
}, property isDeleted => (
isDeleted => { label => 'isDeleted',
fieldType => 'yesNo', fieldType => 'yesNo',
defaultValue => 0, default => 0,
}, );
};
return $definition;
}
1; 1;