1 package SL::SEPA::XML::Transaction;
5 use SL::DB::Helper::ReplaceSpecialChars qw(replace_special_chars);
9 use List::Util qw(first);
10 use POSIX qw(strftime);
27 $self->{sepa} = $params{sepa};
30 my $missing_parameter = first { !$params{$_} } qw(src_iban src_bic dst_iban dst_bic company reference amount end_to_end_id);
31 croak "Missing parameter: $missing_parameter" if ($missing_parameter);
33 $params{end_to_end_id} ||= 'NOTPROVIDED';
34 $params{execution_date} ||= strftime "%Y-%m-%d", localtime;
36 croak "Execution date format wrong for '$params{execution_date}': not YYYY-MM-DD." if ($params{execution_date} !~ /^\d{4}-\d{2}-\d{2}$/);
38 map { $self->{$_} = $self->{sepa}->{iconv}->convert($params{$_}) } keys %params;
39 map { $self->{$_} =~ s/\s+//g } qw(src_iban src_bic dst_iban dst_bic);
40 map { $self->{$_} = replace_special_chars($self->{$_}) } qw(company reference end_to_end_id);
48 return undef if (!defined $self->{$key});
50 my $str = $max_len ? substr($self->{$key}, 0, $max_len) : $self->{$key};
52 return encode('UTF-8', $str);