X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-InternetSecure.git;a=blobdiff_plain;f=InternetSecure.pm;fp=InternetSecure.pm;h=65847f1aed8cc70bd5c7009aa202f4f129a602ab;hp=c41e3cecd9990a53749bd48982c3e6ffb3a9378b;hb=e97a2d3512479f30718872b70196a2be18ec2b2e;hpb=980d429a92740e97ca84e1fa9fb951284160c820

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