From b9051fa8a44b8fc2bb36843626ee23f83d85a3dd Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 10 Nov 2010 10:23:51 -0800
Subject: [PATCH] Convert AdSku collateral over to Moose.

---
 lib/WebGUI/Asset/Sku/Ad.pm              |  2 +-
 lib/WebGUI/AssetCollateral/Sku/Ad/Ad.pm | 93 ++++++++++++-------------
 2 files changed, 45 insertions(+), 50 deletions(-)

diff --git a/lib/WebGUI/Asset/Sku/Ad.pm b/lib/WebGUI/Asset/Sku/Ad.pm
index 62b369b05..b59555eeb 100644
--- a/lib/WebGUI/Asset/Sku/Ad.pm
+++ b/lib/WebGUI/Asset/Sku/Ad.pm
@@ -328,7 +328,7 @@ sub onCompletePurchase {
         });
     }
 
-    WebGUI::AssetCollateral::Sku::Ad::Ad->create($session, {
+    WebGUI::AssetCollateral::Sku::Ad::Ad->new($session, {
         userId                 => $userId,
         transactionItemId      => $item->getId,
         adId                   => $ad->getId,
diff --git a/lib/WebGUI/AssetCollateral/Sku/Ad/Ad.pm b/lib/WebGUI/AssetCollateral/Sku/Ad/Ad.pm
index 13ecf4dd6..ae5779609 100644
--- a/lib/WebGUI/AssetCollateral/Sku/Ad/Ad.pm
+++ b/lib/WebGUI/AssetCollateral/Sku/Ad/Ad.pm
@@ -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
 for a list of base methods that are available.
 
-=cut
-
-use strict;
-use base 'WebGUI::Crud';
-
-#------------------------------------------------
-
-=head1 crud_definition ($session)
+=head1 properties
 
 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
 
-sub crud_definition {
-	my ($class, $session) = @_;
-	my $definition = $class->SUPER::crud_definition($session);
-	$definition->{tableName} = 'adSkuPurchase';
-	$definition->{tableKey} = 'adSkuPurchaseId';
-	$definition->{properties} = {
-            userId => {
-	        fieldType	=> 'user',
-		defaultValue	=> undef,
-	    },
-	    transactionItemId => {
-		fieldType	=> 'guid',
-		defaultValue	=> undef,
-	    },
-	    adId => {
-		fieldType	=> 'guid',
-		defaultValue	=> undef,
-	    },
-	    clicksPurchased => {
-		fieldType	=> 'integer',
-		defaultValue	=> undef,
-	    },
-	    impressionsPurchased => {
-		fieldType	=> 'integer',
-		defaultValue	=> undef,
-	    },
-	    dateOfPurchase => {
-		fieldType	=> 'date',
-		defaultValue	=> undef,
-	    },
-	    storedImage => {
-		fieldType	=> 'guid',
-		defaultValue	=> undef,
-	    },
-	    isDeleted => {
-		fieldType	=> 'yesNo',
-		defaultValue	=> 0,
-	    },
-	};
-	return $definition;
-}
+use strict;
+use Moose;
+use WebGUI::Definition::Crud;
+extends 'WebGUI::Crud';
+define tableName    => 'adSkuPurchase';
+define tableKey     => 'adSkuPurchaseId';
+has adSkuPurchaseId => (
+    required => 1,
+    is       => 'ro',
+);
+property userId => (
+    label     => 'userId',
+    fieldType => 'user',
+);
+property transactionItemId => (
+    label     => 'transactionItemId',
+    fieldType => 'guid',
+);
+property adId => (
+    label     => 'adId',
+    fieldType => 'guid',
+);
+property clicksPurchased => (
+    label     => 'clicksPurchased',
+    fieldType => 'integer',
+);
+property impressionsPurchased => (
+    label     => 'impressionsPurchased',
+    fieldType => 'integer',
+);
+property dateOfPurchase => (
+    label     => 'dateOfPurchase',
+    fieldType => 'date',
+);
+property storedImage => (
+    label     => 'storedImage',
+    fieldType => 'guid',
+);
+property isDeleted => (
+    label     => 'isDeleted',
+    fieldType => 'yesNo',
+    default   => 0,
+);
 
 1;