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

Timestamp:

06/19/19 20:02:16 (5 years ago)

Author:

nanardon

Message:

Add a way to dump object and all related objects

File:

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

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

@@ -313 +313 @@
 
 sub ParentObject { }
+
+=head2 ListChildObjects
+
+Return objects having this object as Parent
+
+=cut
+
+sub ListChildObjects {
+    my ($self) = @_;
+
+    my $Subotype = $self->GetOtypeDef or return;
+
+    my %res;
+
+    foreach my $otype (keys %$Subotype) {
+        foreach my $attr (ref $Subotype->{$otype} ? @{ $Subotype->{$otype} } : $Subotype->{$otype}) {
+            my @list = $self->base->search_objects( $otype, $attr . '=' . $self->id );
+            if (@list) {
+                push(@{ $res{$otype} }, @list);
+            }
+        }
+    }
+
+    %res;
+}
 
 sub _get_ikey {