Changeset 2419

Timestamp:

06/25/20 19:56:19 (4 years ago)

Author:

nanardon

Message:

la-cli: search return an error is object type is unsupported

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm (modified) (1 diff)

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

@@ -157 +157 @@
             code => sub {
                 my ($self, @args) = @_;
-                if ($_[1]) {
-                    my @res = $self->base->search_objects(@args);
-                    $self->print(map { "$_\n" } @res);
-                    $self->{_lastsearch} = \@res;
-                    $self->{_lastsearchtype} = $args[0];
+                if ($args[0]) {
+                    if (!$self->base->is_supported_object($args[0])) {
+                        $self->print("$args[0] is an usupported object type\n");
+                    } else {
+                        my @res = $self->base->search_objects(@args);
+                        $self->print(map { "$_\n" } @res);
+                        $self->{_lastsearch} = \@res;
+                        $self->{_lastsearchtype} = $args[0];
+                    }
                 } else {
                     $self->print("Object type missing\n");