Bug 29948: Fix display of selected values

The values were correctly inserted but the display was not sorting
correctly

Signed-off-by: Signed-off-by: Hugo Agud <hagud@orex.es>
Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Jonathan Druart 2024-03-22 12:46:21 +01:00 committed by Katrin Fischer
parent 6f1b00e24d
commit 3c503a1595
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834

View file

@ -32,7 +32,7 @@ use Koha::Database::Columns;
use IO::File;
use YAML::XS;
use Encode;
use List::MoreUtils qw( any );
use List::MoreUtils qw( any uniq );
sub GetTab {
my ( $input, $tab ) = @_;
@ -165,8 +165,8 @@ sub _get_chunk {
my @values;
@values = split /,/, $value if defined($value);
$chunk->{type} = 'multiple_sortable';
my @options = sort keys %{ $options{multiple_sortable} };
$chunk->{CHOICES} = [
sort { $a->{'text'} cmp $b->{'text'} }
map {
my $option_value = $_;
{
@ -175,7 +175,7 @@ sub _get_chunk {
selected => (grep { $_ eq $option_value } @values) ? 1 : 0,
}
}
keys %{ $options{multiple_sortable} }
uniq(@values, @options)
];
}