1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
package HTML::FormHandler::Field::SelectCSV;
# ABSTRACT: Multiple select field from CSV value
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler::Field::Select';
has '+inflate_default_method' => ( default => sub { \&selectcsv_inflate_default } );
has '+deflate_value_method' => ( default => sub { \&selectcsv_deflate_value } );
has '+multiple' => ( default => 1 );
sub build_value_when_empty { undef }
sub selectcsv_inflate_default {
my ( $self, $value ) = @_;
if( defined $value ) {
my @values = split (/,/, $value);
return @values;
}
return;
}
sub selectcsv_deflate_value {
my ( $self, $value ) = @_;
if ( defined $value ) {
my $str = join( ',', sort @$value );
return $str;
}
return;
}
sub fif {
my $self = shift;
my $fif = $self->next::method;
$fif = [] if $fif eq '';
return $fif;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
HTML::FormHandler::Field::SelectCSV - Multiple select field from CSV value
=head1 VERSION
version 0.40057
=head1 SYNOPSIS
A multiple select field for comma-separated values in the database.
It expects database values like: '1,5,7'. The string will be inflated
into an arrayref for validation and form filling, and will be deflated
into a comma-separated string in the output value.
This field is useful for MySQL 'set' columns.
=head1 NAME
HTML::FormHandler::Field::SelectCSV
=head1 AUTHOR
FormHandler Contributors - see HTML::FormHandler
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Gerda Shank.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
