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

@ -4,7 +4,7 @@ use strict;
use warnings;
use Carp;
use WebGUI::Newsletter::Admin;
use WebGUI::Mailing::Admin;
use base 'WebGUI::Crud';
@ -155,12 +155,13 @@ sub www_sendTestEmailsConfirm {
my $session = $self->session;
my $form = $session->form;
my $to = $form->email( 'to' );
# my $to = $form->email( 'to' );
my $to = $form->get( 'to' );
my @userIds = $form->selectList( 'userIds' );
$self->queueTestEmails( $to, \@userIds );
return WebGUI::Newsletter::Admin->new( $session )->www_view;
return WebGUI::Mailing::Admin->new( $session )->www_view;
}