Lines 1068-1074
sub handle_fee_paid {
Link Here
|
1068 |
my $status; |
1068 |
my $status; |
1069 |
my $resp = FEE_PAID_RESP; |
1069 |
my $resp = FEE_PAID_RESP; |
1070 |
|
1070 |
|
1071 |
my $payment_type_writeoff = $server->{account}->{payment_type_writeoff}; |
1071 |
my $payment_type_writeoff = $server->{account}->{payment_type_writeoff} || ''; |
1072 |
my $is_writeoff = $pay_type eq $payment_type_writeoff; |
1072 |
my $is_writeoff = $pay_type eq $payment_type_writeoff; |
1073 |
|
1073 |
|
1074 |
$fee_amt = $fields->{ (FID_FEE_AMT) }; |
1074 |
$fee_amt = $fields->{ (FID_FEE_AMT) }; |
1075 |
- |
|
|