Changeset 70

Timestamp:

05/05/09 02:24:15 (15 years ago)

Author:

nanardon

Message:

• die on object not found

File:

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

LATMOS-Accounts/bin/la-query

@@ -21 +21 @@
 
 if (my $ouid = shift(@ARGV)) {
-    my $obj = $labase->get_object($otype, $ouid);
+    my $obj = $labase->get_object($otype, $ouid) or do {
+        die "Object $otype $ouid not found\n";
+    };
     foreach ($labase->list_canonicals_fields($otype, 'r')) {
         my $val = $obj->get_c_field($_);