projects
/
Business-OnlineThirdPartyPayment-Interswitchng.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5f0a093
)
conditionally send port, always send TRANTYPE=00 noise, and be case insensitive to...
master
author
jeff
<jeff>
Wed, 17 Jun 2009 09:15:41 +0000
(09:15 +0000)
committer
jeff
<jeff>
Wed, 17 Jun 2009 09:15:41 +0000
(09:15 +0000)
Interswitchng.pm
patch
|
blob
|
history
diff --git
a/Interswitchng.pm
b/Interswitchng.pm
index
c1c7fec
..
c484c0f
100644
(file)
--- a/
Interswitchng.pm
+++ b/
Interswitchng.pm
@@
-22,7
+22,10
@@
sub set_defaults {
sub reference {
my ($self, $data) = @_;
sub reference {
my ($self, $data) = @_;
- $data->{TXNREF} || '';
+ #$data->{TXNREF} || '';
+ my @refkey = grep { /txnref/i } keys %{$data}; # @#$%#@%!
+ my $refkey = $refkey[0] || ''; # please don't give me 2
+ $data->{$refkey} || '';
}
sub submit {
}
sub submit {
@@
-48,10
+51,14
@@
sub submit {
);
%content = $self->content;
$content{AMT} = $content{amount} * 100;
);
%content = $self->content;
$content{AMT} = $content{amount} * 100;
+ $content{TRANTYPE} = '00';
my $url =
my $url =
- "https://". $self->server(). ':'. $self->port(). $self->path(). '?'.
- join( '&', map { "$_=$content{$_}" } qw( CADPID MERTID TXNREF AMT ) );
+ "https://". $self->server().
+ ($self->port != 443 ? ':'. $self->port() : ''). $self->path(). '?'.
+ join( '&', map { "$_=$content{$_}" }
+ qw( CADPID MERTID TXNREF AMT TRANTYPE )
+ );
$self->popup_url( $url );
$self->is_success(1);
$self->popup_url( $url );
$self->is_success(1);