kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use entry::set_numbers and setbools for parameters

Browse Source
This commit is contained in:
Milan
2020-03-08 14:43:01 +01:00
parent 07219ad3ee
commit 5c73484638
24 changed files with 46 additions and 223 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
lib/calcms/entry.pm
View File

@@ -11,19 +11,31 @@ sub from_valid($$) {
sub set_numbers($$$) {
my ( $entry, $params, $fields ) = @_;
for my $field (@$fields) {
next unless defined $params->{$field};
if ( $params->{$field} =~ /([\-\d]+)/ ){
my $value = $params->{$field};
next unless defined $value;
if ( $value =~ /([\-\d]+)/ ){
$entry->{$field} = $1;
}
}
}
sub set_bools($$$) {
my ( $entry, $params, $fields ) = @_;
for my $field (@$fields) {
my $value = $params->{$field};
next unless defined $value;
if ($value=~/([01])/){
$entry->{$field} = $1;
}
}
}
sub set_strings($$$) {
my ( $entry, $params, $attrs ) = @_;
for my $field (@$attrs) {
next unless defined $params->{$field};
$entry->{$field} = $params->{$field};
my $value = $params->{$field};
next unless defined $value;
$entry->{$field} = $value;
$entry->{$field} =~ s/^\s+//g;
$entry->{$field} =~ s/\s+$//g;
}
@@ -31,7 +43,8 @@ sub set_strings($$$) {
sub element_of($$) {
my ( $value, $attrs ) = @_;
return { map { $_ => $_ } @$attrs }->{$value};
return unless $value;
return { map { $_ => $_ } @$attrs }->{$value} //'';
}
# do not delete last line