37 lines
811 B
Perl
37 lines
811 B
Perl
package WebGUI::Content::NewsletterManager;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use WebGUI::Pluggable;
|
|
|
|
sub handler {
|
|
my $session = shift;
|
|
my $form = $session->form;
|
|
|
|
my $module = $form->get('newsletter');
|
|
|
|
my $class =
|
|
$module eq 'manage' ? 'WebGUI::Newsletter::Admin'
|
|
: $module eq 'mailing' ? 'WebGUI::Mailing'
|
|
: return
|
|
;
|
|
|
|
# return unless $form->get('newsletter') eq 'manage';
|
|
|
|
my $func = 'www_' . ( $form->get('func') || 'view' );
|
|
my $id = $form->get('id');
|
|
|
|
my $object = WebGUI::Pluggable::instanciate( $class, 'new', [ $session, $id ] );
|
|
return $object->$func if $object->can( $func );
|
|
|
|
return;
|
|
|
|
# my $nl = WebGUI::Newsletter::Admin->new( $session );
|
|
# return unless $nl->can( $func );
|
|
#
|
|
# return $nl->$func;
|
|
}
|
|
|
|
1;
|
|
|