- "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 )
+ );