View | Details | Raw Unified | Return to bug 29948
Collapse All | Expand All

(-)a/admin/preferences.pl (-4 / +3 lines)
Lines 32-38 use Koha::Database::Columns; Link Here
32
use IO::File;
32
use IO::File;
33
use YAML::XS;
33
use YAML::XS;
34
use Encode;
34
use Encode;
35
use List::MoreUtils qw( any );
35
use List::MoreUtils qw( any uniq );
36
36
37
sub GetTab {
37
sub GetTab {
38
    my ( $input, $tab ) = @_;
38
    my ( $input, $tab ) = @_;
Lines 165-172 sub _get_chunk { Link Here
165
        my @values;
165
        my @values;
166
        @values = split /,/, $value if defined($value);
166
        @values = split /,/, $value if defined($value);
167
        $chunk->{type}    = 'multiple_sortable';
167
        $chunk->{type}    = 'multiple_sortable';
168
        my @options = sort keys %{ $options{multiple_sortable} };
168
        $chunk->{CHOICES} = [
169
        $chunk->{CHOICES} = [
169
            sort { $a->{'text'} cmp $b->{'text'} }
170
              map {
170
              map {
171
                my $option_value = $_;
171
                my $option_value = $_;
172
                {
172
                {
Lines 175-181 sub _get_chunk { Link Here
175
                    selected => (grep { $_ eq $option_value } @values) ? 1 : 0,
175
                    selected => (grep { $_ eq $option_value } @values) ? 1 : 0,
176
                }
176
                }
177
              }
177
              }
178
              keys %{ $options{multiple_sortable} }
178
              uniq(@values, @options)
179
        ];
179
        ];
180
    }
180
    }
181
181
182
- 

Return to bug 29948