From: Chris Sharp <csharp@georgialibraries.org>
Date: Mon, 30 Jan 2023 18:03:42 +0000 (-0500)
Subject: quiet logs when authtoken doesn't exist
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3c1df1d64eb995de45b8453b7bce536157529bc7;p=evergreen%2Fpines.git

quiet logs when authtoken doesn't exist
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
index dab85c0a19..75ffdf77e1 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
@@ -160,11 +160,14 @@ sub log {
 # -----------------------------------------------------------------------------
 sub checkauth {
     my $self = shift;
-    $self->log(D, "checking auth token ".$self->authtoken);
+    my $content;
+    if ( $self->authtoken ) {
+        $self->log(D, "checking auth token ".$self->authtoken);
 
-    my $content = $U->simplereq( 
-        'open-ils.auth', 
-        'open-ils.auth.session.retrieve', $self->authtoken, 1);
+        $content = $U->simplereq( 
+            'open-ils.auth', 
+            'open-ils.auth.session.retrieve', $self->authtoken, 1);
+    }
 
     if(!$content or $U->event_code($content)) {
         $self->event( ($content) ? $content : OpenILS::Event->new('NO_SESSION'));