From: Jeff Godin <jgodin@tadl.org>
Date: Tue, 19 Jun 2012 18:12:56 +0000 (-0400)
Subject: Derefrence fixed fields in handle_fee_paid
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=67d05dcaed0793cfe228d749e6e0cfbca812da86;p=SIPServer.git

Derefrence fixed fields in handle_fee_paid

Properly dereference fixed fields in handle_fee_paid so that the ILS layer receives fixed fields fee type, payment type, currency type

Fixes LP 1015227

Signed-off-by: Jeff Godin <jgodin@tadl.org>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---

diff --git a/Sip/MsgType.pm b/Sip/MsgType.pm
index 783bf63..abdeec2 100644
--- a/Sip/MsgType.pm
+++ b/Sip/MsgType.pm
@@ -1055,7 +1055,7 @@ sub handle_end_patron_session {
 sub handle_fee_paid {
     my ($self, $server) = @_;
     my $ils = $server->{ils};
-    my ($trans_date, $fee_type, $pay_type, $currency) = $self->{fixed_fields};
+    my ($trans_date, $fee_type, $pay_type, $currency) = @{$self->{fixed_fields}};
     my $fields = $self->{fields};
     my ($fee_amt, $inst_id, $patron_id, $terminal_pwd, $patron_pwd);
     my ($fee_id, $trans_id);