LP 1198465: 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 526a98c..361072e 100644 (file)
--- 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,