Changeset 39 for LATMOS-Accounts

Timestamp:

04/25/09 04:10:37 (15 years ago)

Author:

nanardon

Message:

• allowto list objects attribute

File:

• LATMOS-Accounts/bin/la-query (modified) (1 diff)

LATMOS-Accounts/bin/la-query

@@ -16 +16 @@
 
 my $LA = LATMOS::Accounts->new($config);
+my $labase = $base ? $LA->base($base) : $LA->default_base;
 
-my $labase = $base ? $LA->base($base) : $LA->default_base;
-foreach ($labase->list_objects($otype)) {
-    print "$_\n";
+if (my $ouid = shift(@ARGV)) {
+    my $obj = $labase->get_object($otype, $ouid);
+    foreach ($labase->list_canonicals_fields($otype)) {
+        printf("  %s: %s\n", $_, $obj->get_c_field($_) || 'N/A');
+    } 
+} else {
+    foreach ($labase->list_objects($otype)) {
+        print "$_\n";
+    }
 }