X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlineThirdPartyPayment-Interswitchng.git;a=blobdiff_plain;f=Interswitchng.pm;fp=Interswitchng.pm;h=c484c0fff2ea5fc6947a7ce61f355d8a4e5157a0;hp=c1c7fecafdd8329ccb2d44fbc4da6dfeb06e0dd4;hb=3de34ecd853acb4784dfe5a771a230701e84fd35;hpb=5f0a0938cc0f64c12f8ffcea379fd0b4b7ad39e7

diff --git a/Interswitchng.pm b/Interswitchng.pm
index c1c7fec..c484c0f 100644
--- a/Interswitchng.pm
+++ b/Interswitchng.pm
@@ -22,7 +22,10 @@ sub set_defaults {
 
 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 {
@@ -48,10 +51,14 @@ sub submit {
                         );
     %content = $self->content;
     $content{AMT} = $content{amount} * 100;
+    $content{TRANTYPE} = '00';
 
     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);