Changeset 2223 for trunk

Timestamp:

02/27/19 00:52:12 (5 years ago)

Author:

nanardon

Message:

Allow completion over attribute begining by '_', minors fixes

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.pm (modified) (5 diffs)

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

@@ -117 +117 @@
         completion => sub {
             if (!$_[2]) {
-                return $_[0]->base->list_canonical_fields($_[0]->{_otype}, 'r')
+                my $flag = $_[1] =~ /^_/ ? 'ra' : 'r';
+                return $_[0]->base->list_canonical_fields($_[0]->{_otype}, $flag)
             }
         },
@@ -276 +277 @@
         }
     });
+    $self->add_func('ls',  { alias => [ qw'list' ] });
     $self->add_func('edit', {
             help => 'edit [object] - edit selected object using vi',
@@ -368 +370 @@
                         @objects);
                 return if (!@objs);
-                print $OUT "Selecting $env->otype " . join(', ', map { $_->id } @objs) . "\n";
+                print $OUT "Selecting $totype " . join(', ', map { $_->id } @objs) . "\n";
                 LATMOS::Accounts::Cli::Object->new(
                     Parent  => $self,
@@ -384 +386 @@
                            @{$_[0]->{_objects}};
                 } else {
+                    my $flag = $_[1] =~ /^_/ ? 'ra' : 'r';
                     return grep { $_[0]->base->attribute($self->otype, $_)->reference }
-                    $_[0]->base->list_canonical_fields($self->otype, 'r');
+                    $_[0]->base->list_canonical_fields($self->otype, $flag);
                 }
             },
@@ -447 +450 @@
             },
         });
-    } elsif ($self->type eq 'group') {
+    } elsif ($self->otype eq 'group') {
         $self->add_func('member', {
             help => 'member add|remove user',