diff options
Diffstat (limited to 'InternetSecure.pm')
| -rwxr-xr-x | InternetSecure.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index c41e3ce..65847f1 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -135,6 +135,12 @@ sub to_xml { my %content = $self->content; + # Backwards-compatible support for exp_date + if (exists $content{exp_date} && ! exists $content{expiration}) { + $content{expiration} = delete $content{exp_date}; + $self->content(%content); + } + $self->required_fields(qw(action card_number expiration)); croak "Unsupported transaction type: $content{type}" |