|
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 |
- |
|
|