X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-Cardcom.git;a=blobdiff_plain;f=Cardcom.pm;h=de8f4117c918c8be6f9cad34934996ccba59dfdd;hp=0203f78610cb4de267901799f882b4cac0b59137;hb=dd8ab8c86706923f32a005fe05537194aad3e929;hpb=82a335ec22857eae3a8c351a8fbf348c32b97de6 diff --git a/Cardcom.pm b/Cardcom.pm index 0203f78..de8f411 100644 --- a/Cardcom.pm +++ b/Cardcom.pm @@ -5,11 +5,11 @@ use Carp; use Tie::IxHash; use Business::OnlinePayment 3; use Business::OnlinePayment::HTTPS 0.03; -use Data::Dumper; +#use Data::Dumper; use vars qw($VERSION $DEBUG @ISA); @ISA = qw(Business::OnlinePayment::HTTPS); -$VERSION = '0.01'; +$VERSION = '0.02'; $DEBUG = 0; sub set_defaults { @@ -27,7 +27,7 @@ sub set_defaults { sub submit { my($self) = @_; - warn Dumper($self) if $DEBUG > 1; + #warn Dumper($self) if $DEBUG > 1; $self->remap_fields( card_number => 'cardnumber', @@ -127,7 +127,7 @@ sub _info { 'gateway_name' => 'Cardcom', 'gateway_url' => 'http://www.cardcom.co.il', 'module_version' => $VERSION, - 'support_types' => [ 'CC' ], + 'supported_types' => [ 'CC' ], 'token_support' => 0, # well technically the gateway supports it, but we haven't implemented it 'test_transaction' => 1, 'supported_actions' => [ @@ -153,12 +153,11 @@ Business::OnlinePayment::Cardcom - Cardcom backend module for Business::OnlinePa # One step transaction, the simple case. #### - my $tx = new Business::OnlinePayment("Cardcom"); + my $tx = new Business::OnlinePayment("Cardcom", 'TerminalNumber'=>1234 ); $tx->content( type => 'CC', login => 'Cardcom Username', password => 'Cardcom Password', - terminalnumber => 'Cardcom Terminal Number', action => 'Normal Authorization', amount => '49.95', card_number => '4005550000000019', @@ -177,7 +176,7 @@ Business::OnlinePayment::Cardcom - Cardcom backend module for Business::OnlinePa =head2 CC -Content required: type, login, password, action, amount, card_number, expiration, terminalnumber. +Content required: type, login, password, action, amount, card_number, expiration. =head1 PREREQUISITES @@ -189,7 +188,9 @@ For detailed information see L. =head1 AUTHOR -Erik Levinson +Original Author: Erik Levinson + +Current Maintainer: Ivan Kohler C<< >> =head1 SEE ALSO