From ad99eb3eb6109e8250d068c23ed5238b968109b3 Mon Sep 17 00:00:00 2001
From: Jason Stephenson <jstephenson@mvlc.org>
Date: Mon, 26 Sep 2011 15:52:52 -0400
Subject: [PATCH] Verify session before trying any transactions in
SIP->pay_fee.
Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
Signed-off-by: Dan Scott <dscott@laurentian.ca>
---
Open-ILS/src/perlmods/lib/OpenILS/SIP.pm | 2 ++
1 file changed, 2 insertions(+)
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
index acfa572f78..a6d3aab2bb 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
@@ -430,6 +430,8 @@ sub pay_fee {
my ($self, $patron_id, $patron_pwd, $fee_amt, $fee_type,
$pay_type, $fee_id, $trans_id, $currency) = @_;
+ $self->verify_session;
+
my $xact = OpenILS::SIP::Transaction::FeePayment->new(authtoken => $self->{authtoken});
my $patron = $self->find_patron($patron_id);
--
2.11.0