From 8001f33bed838c30e1940101fccc7ec5c9645557 Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@martintwee.oqapi.nl>
Date: Thu, 9 Sep 2010 15:49:30 +0200
Subject: [PATCH] Solve some dependency issues

---
 lib/WebGUI/Mailing.pm       | 2 ++
 lib/WebGUI/Mailing/Admin.pm | 5 +++++
 2 files changed, 7 insertions(+)

diff --git a/lib/WebGUI/Mailing.pm b/lib/WebGUI/Mailing.pm
index 1591e9c..c4d615e 100644
--- a/lib/WebGUI/Mailing.pm
+++ b/lib/WebGUI/Mailing.pm
@@ -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';
diff --git a/lib/WebGUI/Mailing/Admin.pm b/lib/WebGUI/Mailing/Admin.pm
index d415d97..6e92cd6 100644
--- a/lib/WebGUI/Mailing/Admin.pm
+++ b/lib/WebGUI/Mailing/Admin.pm
@@ -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;