diff --git a/lib/WebGUI/Newsletter/Admin.pm b/lib/WebGUI/Newsletter/Admin.pm index aacef0f..ef80dde 100644 --- a/lib/WebGUI/Newsletter/Admin.pm +++ b/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; diff --git a/sbin/install_newsletter.pl b/sbin/install_newsletter.pl index 9d94fc2..0c5b83c 100644 --- a/sbin/install_newsletter.pl +++ b/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 {