Added backwards-compatible support for exp_date

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}"