From 67d05dcaed0793cfe228d749e6e0cfbca812da86 Mon Sep 17 00:00:00 2001 From: Jeff Godin Date: Tue, 19 Jun 2012 14:12:56 -0400 Subject: [PATCH] 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 Signed-off-by: Galen Charlton --- Sip/MsgType.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 2.11.0