Adding nl settings screen

This commit is contained in:
Martin Kamerbeek 2010-05-12 18:55:17 +02:00
parent a9321d32da
commit ef172e2228
4 changed files with 172 additions and 11 deletions

View file

@ -12,13 +12,11 @@ sub handler {
my $module = $form->get('newsletter');
my $class =
$module eq 'manage' ? 'WebGUI::Newsletter::Admin'
$module eq 'manage' ? 'WebGUI::Mailing::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');
@ -26,11 +24,6 @@ sub handler {
return $object->$func if $object->can( $func );
return;
# my $nl = WebGUI::Newsletter::Admin->new( $session );
# return unless $nl->can( $func );
#
# return $nl->$func;
}
1;