Add base classes for mailing instances.

lib/WebGUI/Mailing.pm

@@ -0,0 +1,47 @@
+package WebGUI::Mailing;
+
+use strict;
+use warnings;
+
+use base 'WebGUI::Crud';
+
+sub crud_definition {
+    my $class   = shift;
+    my $session = shift;
+
+    my $definition = $class->SUPER::crud_definition( $session );
+
+    $definition->{ tableName    } = 'WGMailing';
+    $definition->{ tableKey     } = 'mailingId';
+    $definition->{ sequenceKey  } = 'issueId';
+
+    my %properties = (
+        assetId         => {
+            fieldType       => 'guid',
+        },
+        
+        issueId         => {
+            fieldType       => 'guid',
+        },
+        configuration   => {
+            fieldType       => 'textarea',
+        },
+        sendDate        => {
+            fieldType       => 'dateTime',
+        },
+        active          => {
+            fieldType       => 'yesNo',
+            defaultValue    => 0,
+        },
+    );
+
+    $definition->{ properties } = { 
+        %{ $definition->{ properties } || {} },
+        %properties,
+    };
+
+    return $definition;
+}
+
+1;
+