1 package Business::OnlinePayment::PPIPayMover::PayerAuthenticationResponse;
\r
5 use Business::OnlinePayment::PPIPayMover::TransactionResponse;
\r
6 use Business::OnlinePayment::PPIPayMover::constants;
\r
8 @ISA = qw(Business::OnlinePayment::PPIPayMover::TransactionResponse);
\r
13 my $paramNo = @param;
\r
15 my $InString = shift;
\r
21 my $self = $class->SUPER::new($InString,$prefix);
\r
23 $self->{strAuthenticationTransactionId} = "";
\r
24 $self->{strLookupPayload} = "";
\r
25 $self->{strHiddenFields} = "";
\r
26 $self->{strOrderId} = "";
\r
27 $self->{strAuthenticationURL} = "";
\r
28 $self->{strCavv} = "";
\r
29 $self->{strXID} = "";
\r
30 $self->{strStatus} = "";
\r
31 $self->{strTransactionConditionCode} = "";
\r
32 if ($self->{iResponseCode} == TRANSACTION_SERVER_ERROR || $self->{iResponseCode} == INVALID_VERSION) {
\r
35 if (!($$InString) && !($self->{iResponseCode} == SUCCESSFUL_TRANSACTION)) {
\r
39 my @temp = split(/\n/, $$InString);
\r
42 $self->{strError} .= "input string is in wrong format";
\r
43 $self->{iRetVal} = 0;
\r
46 #splice(@temp, 0, 4);
\r
51 # Anything after the first = is part
\r
52 # of the value (including other ='s)
\r
53 ($name, $value) = split(/=/, $_, 2);
\r
55 if ($name eq $prefix."authentication_transaction_id") {
\r
56 $self->{strAuthenticationTransactionId} = $value;
\r
58 elsif ($name eq $prefix."lookup_payload") {
\r
59 $self->{strLookupPayload} = $value;
\r
61 elsif ($name eq $prefix."hidden_fields") {
\r
62 $self->{strHiddenFields} = $value;
\r
64 elsif ($name eq $prefix."order_id") {
\r
65 $self->{strOrderId} = $value;
\r
67 elsif ($name eq $prefix."authentication_url") {
\r
68 $self->{strAuthenticationURL} = $value;
\r
70 elsif ($name eq $prefix."cavv") {
\r
71 $self->{strCavv } = $value;
\r
73 elsif ($name eq $prefix."x_id") {
\r
74 $self->{strXID} = $value;
\r
76 elsif ($name eq $prefix."status") {
\r
77 $self->{strStatus} = $value;
\r
79 elsif ($name eq $prefix."transaction_condition_code") {
\r
80 $self->{strTransactionConditionCode} = $value;
\r
83 $self->{strError} .= "Invalid data name: ";
\r
90 sub GetAuthenticationTransactionId
\r
93 $self->{strAuthenticationTransactionId};
\r
96 sub GetLookupPayload
\r
99 $self->{strLookupPayload};
\r
102 sub GetHiddenFields
\r
105 $self->{strHiddenFields};
\r
111 $self->{strOrderId};
\r
114 sub GetAuthenticationURL
\r
117 $self->{strAuthenticationURL};
\r
134 $self->{strStatus};
\r
137 sub GetTransactionConditionCode {
\r
139 $self->{strTransactionConditionCode};
\r