Changeset 1217 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Maintenance.pm

Timestamp:

01/15/13 13:16:24 (11 years ago)

Author:

nanardon

Message:

Fix the Mail module name

This patch fix the call to Mail module. Beside the fix, the module declaration
use now "use" keyword to allow test to trigger errors.

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Maintenance.pm (modified) (4 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Maintenance.pm

@@ -6 +6 @@
 use LATMOS::Accounts::Log;
 use LATMOS::Accounts::Bases::Sql::DataRequest;
+use LATMOS::Accounts::Mail;
 use FindBin qw($Bin);
 
@@ -79 +80 @@
     my ($self, %options) = @_;
 
-    require LATMOS::Account::Mail;
-    my $lamail = LATMOS::Account::Mail->new(
+    require LATMOS::Accounts::Mail;
+    my $lamail = LATMOS::Accounts::Mail->new(
         $self,
         'account_expire.mail',
@@ -141 +142 @@
         } else {
             if ($self->val('_default_', 'expire_summary_to')) {
-                my $summail = LATMOS::Account::Mail->new(
+                my $summail = LATMOS::Accounts::Mail->new(
                     $self,
                     \join('', @summary),
@@ -185 +186 @@
     my ($self, %options) = @_;
     $options{delay} ||= '6 month';
-
-    require LATMOS::Accounts::Mail;
 
     my $lamail = LATMOS::Accounts::Mail->new(