Changeset 1275

Timestamp:

01/16/15 18:14:04 (9 years ago)

Author:

nanardon

Message:

fix expired user discovery

File:

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

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

@@ -195 +195 @@
 
     my %managers;
+    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);
@@ -200 +207 @@
         my $manager = $uobj->get_attributes('managerContact') || 'N/A';
         push(@{$managers{$manager}{users}}, $uobj);
-    }
-
-    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);
-
+
+        if ($accreq) {
             my $req = LATMOS::Accounts::Bases::Sql::DataRequest->new($accreq);
             $req->set_ptr_object($uobj);