Changeset 2267 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.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/Cli/Object.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.pm

@@ -519 +519 @@
         });
     }
+    if (1) { # TODO test SQL base
+        $self->add_func('extract', {
+            help => 'extract information about objects',
+            code => sub {
+                my ($env, $action) = @_;
+                foreach my $obj (sort @{$env->{_objects}}) {
+                    print $OUT $obj->dump({ recur => 1 });
+                }
+                $env->rollback;
+            },
+        });
+    }
 
     return $self;