+ } elsif ( $options{'multiple'} ) {
+ my @values;
+ @values = split /,/, $value if defined($value);
+ $chunk->{type} = 'multiple';
+ $chunk->{CHOICES} = [
+ sort { $a->{'text'} cmp $b->{'text'} }
+ map {
+ my $option_value = $_;
+ {
+ text => $options{multiple}->{$option_value},
+ value => $option_value,
+ selected => (grep /^$option_value$/, @values) ? 1 : 0,
+ }
+ }
+ keys %{ $options{multiple} }
+ ];