21 lines
387 B
Perl
21 lines
387 B
Perl
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;
|
|
|