From 3c1df1d64eb995de45b8453b7bce536157529bc7 Mon Sep 17 00:00:00 2001 From: Chris Sharp Date: Mon, 30 Jan 2023 13:03:42 -0500 Subject: [PATCH] quiet logs when authtoken doesn't exist --- Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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')); -- 2.11.0