Changeset 861 for LATMOS-Accounts/bin/la-attributes

Timestamp:

12/02/11 11:42:17 (13 years ago)

Author:

nanardon

Message:

• reimport missing files from previous svn

File:

• LATMOS-Accounts/bin/la-attributes (modified) (2 diffs)

LATMOS-Accounts/bin/la-attributes

@@ -28 +28 @@
 =head1 OPTIONS
 
-=item -c|--config configfile
+=over 4
 
-Use this configuration file instead of thr default one.
+=item -c|--config configdir
+
+Use this configuration directory instead of thr default one.
 
 =item -b|--base basename
 
 Perform query on this base(s) (can be set multiple times).
+
+=back
 
 =cut
@@ -55 +59 @@
         };
         foreach($labase->list_canonical_fields($otype, 'a')) {
-            $supported{$_}{$basename} = sprintf('%s%s',
-                ($labase->get_field_name($otype, $_, 'r') ? 'r' : ' '),
-                ($labase->get_field_name($otype, $_, 'w') ? 'w' : ' '),
+            my $attr = $labase->attribute($otype, $_);
+            $supported{$_}{$basename} = sprintf('%s',
+                $attr ? ($attr->ro ? 'r ' : 'rw') : '  '
             );
         }