X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=PlugnPay.pm;h=fac5ad4ae5814be627e206f3653a506a9bd21677;hb=976073a8fe90018f61dc5e26470a59b58ebea373;hp=47ba37dae32848c5659f3cbad286812b620d588c;hpb=39c43a68f35c5b18462471ef04104ced84554665;p=Business-OnlinePayment-PlugnPay.git

diff --git a/PlugnPay.pm b/PlugnPay.pm
index 47ba37d..fac5ad4 100644
--- a/PlugnPay.pm
+++ b/PlugnPay.pm
@@ -6,7 +6,7 @@ use Carp qw(carp croak);
 
 use base qw(Business::OnlinePayment::HTTPS);
 
-$VERSION = '0.02';
+$VERSION = '0.03';
 $VERSION = eval $VERSION;
 $DEBUG   = 0;
 
@@ -93,6 +93,9 @@ sub _map_fields {
 
     $self->transaction_type( $content{'type'} );
 
+    $content{'transflags'} = 'recurring'
+      if lc( $content{'recurring_billing'} ) eq 'yes';
+
     # stuff it back into %content
     $self->content(%content);
 }
@@ -164,7 +167,7 @@ sub submit {
                                 country ipaddress accttype orderID tax
                                 shipping app-level order-id acct_code magstripe
                                 marketdata carissuenum cardstartdate descrcodes
-                                retailterms) ];
+                                retailterms transflags ) ];
     $optional{CC_newreturn} = [ qw( orderID card-address1 card-address2
                                     card-city card-state card-zip card-country
                                     notify-email
@@ -452,6 +455,7 @@ from content(%content):
       zip                => 'ship_zip',
       country            => 'ship_country',
 
+      transflags         => 'recurring' if ($content{recurring_billing}) eq 'yes',
 
 =head1 Mapping plugnpay transaction responses to object methods