From: Jason Stephenson <jason@sigio.com>
Date: Mon, 7 Oct 2013 00:51:12 +0000 (-0400)
Subject: Add some more auth checks in CircCommon.pm.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9e4df251c05ba621984a78315415145f7759d552;p=working%2FEvergreen.git

Add some more auth checks in CircCommon.pm.

Signed-off-by: Jason Stephenson <jason@sigio.com>
Signed-off-by: Kathy Lussier <klussier@masslnc.org>
---

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,