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

Timestamp:

10/01/12 18:14:22 (12 years ago)

Author:

nanardon

Message:

add temp_switch_unexported() function

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases.pm (modified) (1 diff)
• Bases/Objects.pm (modified) (1 diff)

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

@@ -79 +79 @@
     }
     return($old || 0);
+}
+
+=head2 temp_switch_unexported($CODE, $value)
+
+Switch the base to unexported mode given by C<$value>, run C<$CODE>, restore
+back the previous state and return the result of code ref.
+
+=cut
+
+sub temp_switch_unexported (&;$) {
+    my ($self, $sub, $value) = @_;
+
+    my $old = $self->unexported($value || 0);
+    my $res = $sub->();
+    $self->unexported($old);
+    return $res;
 }
 

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -534 +534 @@
         $field, $min, $max);
     my %existsid;
-    my $oldunexported = $base->unexported(1);
-    foreach ($base->list_objects($class->type)) {
-        my $obj = $base->get_object($class->type, $_) or next;
-        my $id = $obj->_get_c_field($field) or next;
-        $existsid{$id + 0} = 1;
-    }
-    $base->unexported($oldunexported);
+    $base->temp_switch_unexported(sub {
+        foreach ($base->list_objects($class->type)) {
+            my $obj = $base->get_object($class->type, $_) or next;
+            my $id = $obj->_get_c_field($field) or next;
+            $existsid{$id + 0} = 1;
+        }
+    }, 1);
     $min += 0;
     $max += 0;