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

Timestamp:

08/29/19 20:06:06 (5 years ago)

Author:

nanardon

Message:

Add la-dump: allow to dump in vrious format (xml only at time

File:

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

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

@@ -889 +889 @@
     }
 
+    my $SubOtype = undef;
+
+    if (@{ $config->{SubOtype} || []}) {
+        $SubOtype = { map { $_ => 1 } @{ $config->{SubOtype} } };
+    }
+
     if (ref $self && $config->{recur}) {
           my %subobj = $self->ListChildObjects;
           foreach my $otype (sort keys %subobj) {
+              if ($SubOtype) {
+                  $SubOtype->{$otype} or next;
+              }
               foreach my $oname (sort @{ $subobj{$otype} }) {
                   my $obj = $self->base->get_object($otype, $oname) or next;