Ready for 7.10.29 development.

lib/WebGUI/AssetCollateral/Sku/Ad/Ad.pm

@@ -0,0 +1,92 @@
+package WebGUI::AssetCollateral::Sku::Ad::Ad;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2009 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
+ -------------------------------------------------------------------
+
+=head1 NAME
+
+Package WebGUI::AssetCollateral::Sku::Ad::Ad
+
+=head1 DESCRIPTION
+
+Package to manipulate collateral for WebGUI::Asset::Sku::Ad.
+
+=head1 METHODS
+
+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)
+
+Defines the fields this CRUD will contain.
+
+userID = the id of the user that purchased the ad
+transactionItemid = the id if the transaction item that completes this purchase
+adId = th id if the ad purchased
+clicksPurchased = the number of clicks the user purchased
+impressionsPurchased = the number of impressions the user purchased
+dateOfPurchase = the date of purchase
+storedImage = storage for the image
+isDeleted = boolean that indicates whether the ad has been deleted from the system
+
+=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;
+}
+
+1;

lib/WebGUI/AssetCollateral/Sku/ThingyRecord/Record.pm

@@ -0,0 +1,84 @@
+package WebGUI::AssetCollateral::Sku::ThingyRecord::Record;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2009 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;
+
+=head1 NAME
+
+Package WebGUI::AssetCollateral::Sku::ThingyRecord::Record
+
+=head1 DESCRIPTION
+
+Package to manipulate collateral for WebGUI::Asset::Sku::ThingyRecord.
+
+There should be a list of data that this module uses and a description of how
+they relate and function.
+
+=head1 METHODS
+
+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 base 'WebGUI::Crud';
+
+#----------------------------------------------------------------
+
+=head2 crud_definition ($session)
+
+Defintion subroutine to set up CRUD.
+
+=cut
+
+sub crud_definition {
+	my ($class, $session) = @_;
+	my $definition = $class->SUPER::crud_definition($session);
+	$definition->{tableName} = 'ThingyRecord_record';
+	$definition->{tableKey} = 'recordId';
+    my $properties  = $definition->{properties};
+    $properties->{transactionId} = {
+        fieldType       => "hidden",
+        defaultValue    => undef,
+    };
+    $properties->{assetId} = {
+        fieldType       => "hidden",
+        defaultValue    => undef,
+    };
+    $properties->{expires} = {
+        fieldType       => "DateTime",
+        defaultValue    => 0,
+    };
+    $properties->{userId} = {
+        fieldType       => "hidden",
+        defaultValue    => undef,
+    };
+    $properties->{fields} = {
+        fieldType       => 'textarea',
+        defaultValue    => '',
+    };
+    $properties->{isHidden} = {
+        fieldType       => 'yesNo',
+        defaultValue    => 0,
+    };
+    $properties->{sentExpiresNotice} = {
+        fieldType       => 'yesNo',
+        defaultValue    => 0,
+    };
+    return $definition;
+}
+
+1;