Changeset 1182 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

Timestamp:

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

Author:

nanardon

Message:

add temp_switch_unexported() function

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)

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;