projects
/
Business-OnlinePayment-Cardcom.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
pod
[Business-OnlinePayment-Cardcom.git]
/
Cardcom.pm
diff --git
a/Cardcom.pm
b/Cardcom.pm
index
3648318
..
20eff05
100644
(file)
--- 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 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);
use vars qw($VERSION $DEBUG @ISA);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.0
1
';
+$VERSION = '0.0
2
';
$DEBUG = 0;
sub set_defaults {
$DEBUG = 0;
sub set_defaults {
@@
-27,7
+27,7
@@
sub set_defaults {
sub submit {
my($self) = @_;
sub submit {
my($self) = @_;
- warn Dumper($self) if $DEBUG > 1;
+
#
warn Dumper($self) if $DEBUG > 1;
$self->remap_fields(
card_number => 'cardnumber',
$self->remap_fields(
card_number => 'cardnumber',
@@
-153,12
+153,11
@@
Business::OnlinePayment::Cardcom - Cardcom backend module for Business::OnlinePa
# One step transaction, the simple case.
####
# 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',
$tx->content(
type => 'CC',
login => 'Cardcom Username',
password => 'Cardcom Password',
- terminalnumber => 'Cardcom Terminal Number',
action => 'Normal Authorization',
amount => '49.95',
card_number => '4005550000000019',
action => 'Normal Authorization',
amount => '49.95',
card_number => '4005550000000019',
@@
-177,7
+176,7
@@
Business::OnlinePayment::Cardcom - Cardcom backend module for Business::OnlinePa
=head2 CC
=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
=head1 PREREQUISITES
@@
-189,9
+188,9
@@
For detailed information see L<Business::OnlinePayment>.
=head1 AUTHOR
=head1 AUTHOR
-Erik Levinson <levinse@freeside.biz>
+Original Author: Erik Levinson
-=head1 SEE ALSO
+Current Maintainer: Ivan Kohler C<< <ivan-cardcom@freeside.biz> >>
perl(1). L<Business::OnlinePayment>.
perl(1). L<Business::OnlinePayment>.