Changeset 1342 for branches

Timestamp:

05/28/15 12:19:20 (9 years ago)

Author:

nanardon

Message:

Fix expired accounts mails feature

File:

• branches/4.0/LATMOS-Accounts/lib/LATMOS/Accounts/Maintenance.pm (modified) (1 diff)

branches/4.0/LATMOS-Accounts/lib/LATMOS/Accounts/Maintenance.pm

@@ -195 +195 @@
 
     my %managers;
-    if (my $accreq = $self->_base->get_object('accreq', 'user-removal')) {
-
-        $self->base->log(LA_DEBUG,
-            "Found accreq 'user-removal', using it to automated deletion",
-        );
-        foreach my $user (@users) {
-            my $uobj = $self->_base->get_object('user', $user);
-            $uobj->get_attributes('unexported') and next; # can't happend
-            my $manager = $uobj->get_attributes('managerContact') || 'N/A';
-            push(@{$managers{$manager}{users}}, $uobj);
-
+    my $accreq = $self->_base->get_object('accreq', 'user-removal');
+
+
+    $self->base->log(LA_DEBUG,
+        "Found accreq 'user-removal', using it to automated deletion",
+    ) if ($accreq);
+
+    foreach my $user (@users) {
+        my $uobj = $self->_base->get_object('user', $user);
+        $uobj->get_attributes('unexported') and next; # can't happend
+        my $manager = $uobj->get_attributes('managerContact') || 'N/A';
+        push(@{$managers{$manager}{users}}, $uobj);
+
+        if ($accreq) {
             my $req = LATMOS::Accounts::Bases::Sql::DataRequest->new($accreq);
             $req->set_ptr_object($uobj);