X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2FBusiness%2FOnlinePayment%2FTransactionCentral.pm;fp=lib%2FBusiness%2FOnlinePayment%2FTransactionCentral.pm;h=78b84ecb1b426a256c17abcad8f08698a76c30c2;hb=8898cc543d872803b29a14db438bee08014b7a74;hp=68a193d63af372645ab9909dc37a8fa9a95a6556;hpb=be5f2738a602593798b3afa06ab09d9e7b99b43c;p=Business-OnlinePayment-TransactionCentral.git

diff --git a/lib/Business/OnlinePayment/TransactionCentral.pm b/lib/Business/OnlinePayment/TransactionCentral.pm
index 68a193d..78b84ec 100644
--- a/lib/Business/OnlinePayment/TransactionCentral.pm
+++ b/lib/Business/OnlinePayment/TransactionCentral.pm
@@ -8,7 +8,7 @@ use Business::OnlinePayment::HTTPS 0.02;
 use vars qw($VERSION @ISA $DEBUG);
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.01';
+$VERSION = '0.02';
 $DEBUG = 0;
 
 sub set_defaults {
@@ -18,7 +18,9 @@ sub set_defaults {
     $self->port('443');
     $self->path('/billing/TransactionCentral/');
 
-    $self->build_subs(qw( order_number avs_code cvv2_response ));
+    $self->build_subs(qw( order_number avs_code cvv2_response
+                          response_page response_code response_headers
+                     ));
 }
 
 sub submit {
@@ -107,10 +109,13 @@ sub submit {
     DESCRIPTION DESCDATE TRANSTYPE TRANSROUTE
   );
 
-  #my( $page, $response, %reply_headers ) =
-  my( $page, $response ) =
+  my( $page, $response, %reply_headers ) =
     $self->https_post( $self->get_fields( @fields ) );
 
+  $self->response_code( $response );
+  $self->response_page( $page );
+  $self->response_headers( \%reply_headers );
+
   warn "\n" if $DEBUG > 1;
   if ( $DEBUG > 2 ) {
     warn "response: $response\n";
@@ -177,7 +182,7 @@ Business::OnlinePayment::TransactionCentral - Transaction Central backend module
   # One step transaction, the simple case.
   ####
 
-  my $tx = new Business::OnlinePayment("Capstone");
+  my $tx = new Business::OnlinePayment("TransactionCentral");
   $tx->content(
       type           => 'CC',
       login          => '10011', #MerchantID