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 {
);
%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);