Add newsletter to admin console

lib/WebGUI/Newsletter/Admin.pm

@@ -2,9 +2,18 @@ package WebGUI::Newsletter::Admin;
 
 use strict;
 use warnings;
-
 use Carp 'confess';
 
+use WebGUI::Asset;
+use WebGUI::AdminConsole;
+
+sub getAdminConsole {
+    my $self = shift;
+
+    my $ac = WebGUI::AdminConsole->new( $self->session );
+
+    return $ac;
+}
 
 sub getMailables {
     my $self = shift;
@@ -91,7 +100,7 @@ sub www_view {
     my $var = { newsletter_loop => \@newsletterLoop };
 
     my $template = WebGUI::Asset::Template->new( $self->session, 'FTfNhWI8KJOwLzFUl5rYeQ' );
-    return $template->process( $var );
+    return $self->getAdminConsole->render( $template->process( $var ), 'Manage newsletters' );
 }
 
 1;

sbin/install_newsletter.pl

@@ -23,9 +23,11 @@ my $session = start( $webguiRoot, $configFile );
 installMailableAspectTable( $session );
 installNewsletterCollection( $session );
 installMailingTables( $session );
+installNewsletterInAdminConsole( $session );
 
 finish($session);
 
+
 #----------------------------------------------------------------------------
 sub installMailableAspectTable {
     my $session = shift;
@@ -85,6 +87,22 @@ sub installMailingTables {
     print "Done\n";
 }
 
+#----------------------------------------------------------------------------
+sub installNewsletterInAdminConsole {
+    my $session = shift;
+
+    print "\tAdding newsletter admin console section...";
+    $session->config->set( 'adminConsole/mailable', {
+       groupSetting => "admins",
+       icon         => "newsletter.gif",
+       title        => "Newsletter",
+       uiLevel      => 7,
+       url          => qq{^PageUrl("",newsletter=manage);},
+    } );
+
+    print "Done.\n";
+}
+
 
 #----------------------------------------------------------------------------
 sub start {