Changeset 2341

Timestamp:

04/08/20 19:34:50 (4 years ago)

Author:

nanardon

Message:

Add sort* functions

File:

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

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

@@ -92 +92 @@
             my %ids = map { $_ => 1 } @ids;
             grep { !$ids{$_} } map { $_->id } @{$env->{_objects}};
+        },
+        }
+    );
+    $self->add_func('sort', {
+        help => 'Sort the selection according attribute',
+        code => sub {
+            my ($env, $attribute) = @_;
+
+            if ($attribute) {
+                @{$env->{_objects}} =
+                    sort { ($a->get_attributes($attribute) || '') cmp ($b->get_attributes($attribute) || '') }
+                    @{$env->{_objects}};
+            } else {
+                @{$env->{_objects}} =
+                    sort { $a->id cmp $b->id }
+                    @{$env->{_objects}};
+            }
+
+            printf $OUT "select is now %s: %s\n", $env->{_otype}, join(', ', map {
+                $_->id } @{$env->{_objects}});
+        },
+        completion => sub {
+            if (!$_[2]) {
+                my $flag = $_[1] =~ /^_/ ? 'ra' : 'r';
+                return $_[0]->base->list_canonical_fields($_[0]->{_otype}, $flag)
+            }
+        },
+        }
+    );
+    $self->add_func('sortr', {
+        help => 'Sort the selection (reverse) according attribute',
+        code => sub {
+            my ($env, $attribute) = @_;
+
+            if ($attribute) {
+                @{$env->{_objects}} =
+                    sort { ($b->get_attributes($attribute) || '') cmp ($a->get_attributes($attribute) || '') }
+                    @{$env->{_objects}};
+            } else {
+                @{$env->{_objects}} =
+                    sort { $b->id cmp $a->id }
+                    @{$env->{_objects}};
+            }
+
+            printf $OUT "select is now %s: %s\n", $env->{_otype}, join(', ', map {
+                $_->id } @{$env->{_objects}});
+        },
+        completion => sub {
+            if (!$_[2]) {
+                my $flag = $_[1] =~ /^_/ ? 'ra' : 'r';
+                return $_[0]->base->list_canonical_fields($_[0]->{_otype}, $flag)
+            }
+        },
+        }
+    );
+    $self->add_func('sortn', {
+        help => 'Sort numeric the selection according attribute',
+        code => sub {
+            my ($env, $attribute) = @_;
+
+            if ($attribute) {
+                @{$env->{_objects}} =
+                    sort { ($a->get_attributes($attribute) || 0) <=> ($b->get_attributes($attribute) || 0) }
+                    @{$env->{_objects}};
+            } else {
+                @{$env->{_objects}} =
+                    sort { $a->_get_ikey <=> $b->_get_ikey }
+                    @{$env->{_objects}};
+            }
+
+            printf $OUT "select is now %s: %s\n", $env->{_otype}, join(', ', map {
+                $_->id } @{$env->{_objects}});
+        },
+        completion => sub {
+            if (!$_[2]) {
+                my $flag = $_[1] =~ /^_/ ? 'ra' : 'r';
+                return $_[0]->base->list_canonical_fields($_[0]->{_otype}, $flag)
+            }
+        },
+        }
+    );
+    $self->add_func('sortnr', {
+        help => 'Sort numeric reverse the selection according attribute',
+        code => sub {
+            my ($env, $attribute) = @_;
+
+            if ($attribute) {
+                @{$env->{_objects}} =
+                    sort { ($b->get_attributes($attribute) || 0) <=> ($a->get_attributes($attribute) || 0) }
+                    @{$env->{_objects}};
+            } else {
+                @{$env->{_objects}} =
+                    sort { $b->_get_ikey <=> $a->_get_ikey }
+                    @{$env->{_objects}};
+            }
+
+            printf $OUT "select is now %s: %s\n", $env->{_otype}, join(', ', map {
+                $_->id } @{$env->{_objects}});
+        },
+        completion => sub {
+            if (!$_[2]) {
+                my $flag = $_[1] =~ /^_/ ? 'ra' : 'r';
+                return $_[0]->base->list_canonical_fields($_[0]->{_otype}, $flag)
+            }
         },
         }
@@ -387 +491 @@
 
                 if (! @objects) {
-                    @objects = grep { $_ } 
+                    @objects = grep { $_ }
                       map { $_->get_attributes($attrname) } @{$env->{_objects}};
                 }
@@ -660 +764 @@
         });
 
-        
-
     } elsif ($self->otype eq 'group') {