Changeset 2421 for trunk

Timestamp:

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

Author:

nanardon

Message:

la-cli: don't separate object by comma when listing them

File:

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

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

@@ -71 +71 @@
                 push(@{$env->{_objects}}, $o);
             }
-            $self->printf("select is now %s: %s\n", $env->{_otype}, join(', ', map {
+            $self->printf("select is now %s: %s\n", $env->{_otype}, join(' ', map {
                 $_->id } @{$env->{_objects}}));
         },
@@ -103 +103 @@
                 @{$env->{_objects}} = @newobjs;
             }
-            $self->printf( "select is now %s: %s\n", $env->{_otype}, join(', ', map {
+            $self->printf( "select is now %s: %s\n", $env->{_otype}, join(' ', map {
                 $_->id } @{$env->{_objects}}));
         },
@@ -462 +462 @@
                 $self->print( "\n" );
             } else {
-                $self->printf("%s: %s\n", $env->{_otype}, join(', ', map { $_->id } @{$env->{_objects}}));
+                $self->printf("%s: %s\n", $env->{_otype}, join(' ', map { $_->id } @{$env->{_objects}}));
             }
         }
@@ -564 +564 @@
                 my @objs = (grep { $_ } map { $env->base->get_object($totype, $_) } @objects);
                 return if (!@objs);
-                $self->print( "Selecting $totype " . join(', ', map { $_->id } @objs) . "\n" );
+                $self->print( "Selecting $totype " . join(' ', map { $_->id } @objs) . "\n" );
                 LATMOS::Accounts::Cli::Object->new(
                     Parent  => $self,