From 6581974c4daf873c1daf55ae14801db44f6a7567 Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Sun, 6 Oct 2013 20:51:12 -0400 Subject: [PATCH] LP 1198465: Add some more auth checks in CircCommon.pm. Signed-off-by: Jason Stephenson Signed-off-by: Kathy Lussier --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm index 526a98cafb..361072ef08 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm @@ -26,6 +26,9 @@ my $U = "OpenILS::Application::AppUtils"; sub void_overdues { my($class, $e, $circ, $backdate, $note) = @_; + # Make sure we have a session. + return $e->die_event unless $e->checkauth; + my $bill_search = { xact => $circ->id, btype => 1 @@ -79,6 +82,9 @@ sub void_overdues { sub void_bills_of_type { my ($class, $e, $circ, $btype, $note) = @_; + # Make sure we have a session. + return $e->die_event unless $e->checkauth; + my $bills = $e->search_money_billing( { xact => $circ->id, -- 2.11.0