Changeset 1487 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Timestamp:

11/19/15 15:41:59 (9 years ago)

Author:

nanardon

Message:

Run Stat with unexported objects active

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Stats.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Stats.pm

@@ -33 +33 @@
     my ($self) = @_;
 
-    foreach my $stat ($self->{_base}->list_objects('stat')) {
-        my $ostat = $self->{_base}->get_object('stat', $stat);
-        # Don't process unexported stat objects
-        $ostat->_get_attributes('exported') or next;
-        if ($ostat->collect) {
-            $self->{_base}->commit;
-        } else {
-            $self->{_base}->rollback;
-        }
-    }
+    $self->{_base}->temp_switch_unexported(
+        sub {
+            foreach my $stat ($self->{_base}->list_objects('stat')) {
+                my $ostat = $self->{_base}->get_object('stat', $stat);
+                # Don't process unexported stat objects
+                $ostat->_get_attributes('unexported') and next;
+                if ($ostat->collect) {
+                    $self->{_base}->commit;
+                } else {
+                    $self->{_base}->rollback;
+                }
+            }
+        },
+        1
+    );
 
     return 1;