manuelcillero/perl-dam
manuelcillero/perl-dam
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Modify return value of the component to an array

Browse source
This commit is contained in:
Manuel Cillero 2020-05-09 08:41:21 +02:00
parent ce6eb14ca8
commit 1fca1f9f62
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Dam/Components/Controls/MultiCheck.pm
View file

@ -4,7 +4,7 @@ Dam::Components::Controls::MultiCheck
=head1 SYNOPSIS =head1 SYNOPSIS
my ($check_1, $check_2, ...) = Component__Get(CONTROL_MULTICHECK, ['multicheck']); my @checks = Component__Get(CONTROL_MULTICHECK, ['multicheck']);
=head1 DESCRIPTION =head1 DESCRIPTION
@ -123,7 +123,11 @@ sub Get {
$id = $ID_DEFAULT if is_empty($id); $id = $ID_DEFAULT if is_empty($id);
return strval_join(',', cgiapp_multi($id)); my @checks = cgiapp_multi($id);
for (@checks) {
$_ =~ s/^'|'$//g;
}
return @checks;
} }