Changeset 1135 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

09/15/12 08:52:16 (12 years ago)

Author:

nanardon

Message:

Merge branch 'dyngroup'

File:

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

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

@@ -120 +120 @@
 }
 
+sub _sync_dyn_group {
+    my ($self) = @_;
+
+    my @groups = $self->search_objects('group', 'autoMemberFilter=*');
+
+    foreach (@groups) {
+        my $g = $self->get_object('group', $_) or next;
+        $g->populate_dyn_group;
+    }
+}
+
 sub _commit {
     my ($self) = @_;
+
+    $self->_sync_dyn_group;
+
     if ($ENV{LA_NO_COMMIT}) {
         $self->log(LA_DEBUG, 'DB::COMMIT (ignore due to LA_NO_COMMIT)');