From 6e86531f450134dcfeca320a683b1cd8234e7ac5 Mon Sep 17 00:00:00 2001 From: djfiander Date: Wed, 12 Apr 2006 15:22:13 +0000 Subject: [PATCH] Don't use "ILS::pay_fee()", use "$ils->pay_fee()" --- Sip/MsgType.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Sip/MsgType.pm b/Sip/MsgType.pm index 814121c..6a27804 100644 --- a/Sip/MsgType.pm +++ b/Sip/MsgType.pm @@ -983,6 +983,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 $fields = $self->{fields}; my ($fee_amt, $inst_id, $patron_id, $terminal_pwd, $patron_pwd); @@ -1003,7 +1004,7 @@ sub handle_fee_paid { $server->{ils}->institution); } - $status = ILS::pay_fee($patron_id, $patron_pwd, $fee_amt, $fee_type, + $status = $ils->pay_fee($patron_id, $patron_pwd, $fee_amt, $fee_type, $pay_type, $fee_id, $trans_id, $currency); $resp .= ($status->ok ? 'Y' : 'N') . Sip::timestamp; -- 2.11.0