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

Solve some dependency issues

Browse source
This commit is contained in:
Martin Kamerbeek 2010-09-09 15:49:30 +02:00
parent 65c04acc7c
commit 8001f33bed
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Mailing.pm
View file

@ -5,6 +5,8 @@ use warnings;
use Carp;
use WebGUI::Mailing::Admin;
use WebGUI::Mailing::Email;
use JSON qw{ to_json };
use base 'WebGUI::Crud';

5
lib/WebGUI/Mailing/Admin.pm
View file

@ -7,6 +7,9 @@ use Carp 'confess';
use WebGUI::Asset;
use WebGUI::AdminConsole;
# prevent sub redef warnings
#require WebGUI::Mailing;
#----------------------------------------------------------------------------
sub canManage {
my $self = shift;
@ -113,6 +116,7 @@ sub www_createMailing {
|| return "Error: issue [$issueId] for asset [$assetId] could not be instanciated.";
# All ok, create mailing.
require WebGUI::Mailing;
my $mailing = WebGUI::Mailing->create( $session, {
assetId => $assetId,
issueId => $issueId,
@ -225,6 +229,7 @@ sub www_view {
my $issueId = $issue->getId;
my @mailings;
require WebGUI::Mailing;
my $it = WebGUI::Mailing->getAllIterator( $session, { sequenceKeyValue => $issueId } );
while ( my $mailing = $it->() ) {
push @mailings, $mailing->getViewVars;