Initial commit.

lib/WebGUI/Asset/Wobject/NewsletterCollection.pm

@@ -0,0 +1,93 @@
+package WebGUI::Asset::Wobject::NewsletterCollection;
+
+use strict;
+use warnings;
+
+use Class::C3;
+
+use base qw{
+    WebGUI::AssetAspect::Mailable 
+    WebGUI::Asset::Wobject
+};
+
+#----------------------------------------------------------------------------
+sub definition {
+    my $class      = shift;
+    my $session    = shift;
+    my $definition = shift;
+    my $i18n       = WebGUI::International->new( $session, 'Asset_NewsletterCollection' );
+
+    tie my %properties, 'Tie::IxHash', (
+    );
+    
+    push @{ $definition }, {
+        assetName         => $i18n->echo('newsletter'),
+        icon              => 'newWobject.gif',
+        autoGenerateForms => 1,
+        tableName         => 'NewsletterCollection',
+        className         => 'WebGUI::Asset::Wobject::NewsletterCollection',
+        properties        => \%properties
+    };
+
+    return $class->SUPER::definition( $session, $definition );
+}
+
+#----------------------------------------------------------------------------
+sub generateEmailContent {
+    my $self    = shift;
+    my $session = $self->session;
+    my $form    = $session->form;
+
+    my $issueId = $form->get('issueId');
+    my $issue   = WebGUI::Asset->newByDynamicClass( $session, $issueId );
+
+    return "Invalid issueId [$issueId]" unless $issue;
+
+    $issue->prepareView;
+    return $issue->view;
+}
+
+##-------------------------------------------------------------------
+#sub prepareView {
+#    my $self = shift;
+#    $self->SUPER::prepareView();
+#    my $template = WebGUI::Asset::Template->new( $self->session, $self->get("templateIdView") );
+#    $template->prepare($self->getMetaDataAsTemplateVariables);
+#    $self->{_viewTemplate} = $template;
+#}
+
+#-------------------------------------------------------------------
+sub view {
+    my $self    = shift;
+    my $session = $self->session;
+
+    my $issues  = $self->getLineage( [ 'children' ], {
+        returnObjects   => 1,
+        orderByClause   => 'revisionDate desc',
+    } );
+
+    my $output  = $self->getToolbar if $session->var->isAdminOn;
+
+    return $output . "No issues yet" unless scalar @{ $issues };
+
+    $output .= '<p>Issues: <ul>';
+    $output .=
+        join    '',
+        map     { 
+                    '<li>'
+                        .'<a href="' . $_->getUrl . '">' . $_->get('title') . '</a>'
+                        .' :: '
+                        .' <a href="' .$self->getUrl('func=previewEmail;issueId='.$_->getId.';userId=3').'">preview</a>'
+                    .'</li>' 
+                }
+                @{ $issues };
+    $output .= '</ul></p>';
+
+    $issues->[0]->prepareView;
+    $output .= $issues->[0]->view;
+
+    return $output;
+}
+
+1;
+

lib/WebGUI/AssetAspect/Mailable.pm

@@ -0,0 +1,87 @@
+package WebGUI::AssetAspect::Mailable;
+
+use strict;
+use warnings;
+use Class::C3; 
+
+use WebGUI::Macro;
+
+#----------------------------------------------------------------------------
+sub definition {
+	my $class       = shift;
+	my $session     = shift;
+	my $definition  = shift;
+	my $i18n        = WebGUI::International->new( $session,'AssetAspect_Mailable' );
+
+	tie my %properties, 'Tie::IxHash', (
+	);
+
+	push( @{ $definition }, {
+		autoGenerateForms   => 1,
+		tableName           => 'assetAspectMailable',
+		className           => 'WebGUI::AssetAspect::Mailable',
+		properties          => \%properties
+	} );
+
+	return $class->next::method( $session, $definition );
+}
+
+#----------------------------------------------------------------------------
+sub getEditTabs {
+    my $self = shift;
+
+    return ( $self->next::method, [ 'mailable', 'Mailing list', 9 ] );
+}
+
+#----------------------------------------------------------------------------
+sub generateEmailContent {
+    WebGUI::Error::OverrideMe->throw;
+    return;
+}
+
+#----------------------------------------------------------------------------
+sub getIssueList {
+    WebGUI::Error::OverrideMe->throw;
+    return;
+}
+
+#----------------------------------------------------------------------------
+sub getRecipients {
+    WebGUI::Error::OverrideMe->throw;
+    return;
+}
+
+#----------------------------------------------------------------------------
+sub processContentAsUser {
+    my $self        = shift;
+    my $userId      = shift;
+    my $session     = $self->session;
+    my $currentUser = $session->user;
+
+    # Become the desired user
+    $session->user( { userId => $userId } );
+
+    # Generate email body for this user
+    my $content = $self->generateEmailContent;
+
+    # Process macros
+    WebGUI::Macro::process( $session, \$content );
+
+    # Become ourselves again.
+    $session->user( { userId => $currentUser->getId } );
+
+    return $content;
+}
+
+#----------------------------------------------------------------------------
+sub www_previewEmail {
+    my $self    = shift;
+    my $form    = $self->session->form;
+
+    my $userId  = $form->get('userId');
+
+    return $self->processContentAsUser( $userId );
+}
+
+1;
+