UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding basis of nl manager.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-04-22 16:20:03 +02:00
parent 0fa97d2d9d
commit af40a772a9
4 changed files with 98 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Content/NewsletterManager.pm Normal file
View file

@ -0,0 +1,21 @@
package WebGUI::Content::NewsletterManager;
use strict;
use warnings;
sub handler {
my $session = shift;
my $form = $session->form;
return unless $form->get('newsletter') eq 'manage';
my $func = 'www_' . ( $form->get('func') || 'view' );
my $nl = WebGUI::Newsletter::Admin->new( $session );
return unless $nl->can( $func );
return $nl->$func;
}
1;