From 4918406ddb53f0d356fbc222d677ec013875164b Mon Sep 17 00:00:00 2001 From: erickson Date: Sun, 22 Oct 2006 20:12:01 +0000 Subject: [PATCH] rolling back checkauth test change to see if this fixes the mysterious no_session errors git-svn-id: svn://svn.open-ils.org/ILS/trunk@6491 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm b/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm index de8d0d39b3..c5f069bf3d 100644 --- a/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm +++ b/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm @@ -89,15 +89,16 @@ sub log { # ----------------------------------------------------------------------------- # Verifies the auth token and fetches the requestor object # ----------------------------------------------------------------------------- -#sub checkauth { -# my $self = shift; -# $self->log(D, "checking auth token ".$self->authtoken); -# my ($reqr, $evt) = $U->checkses($self->authtoken); -# $self->event($evt) if $evt; -# return $self->{requestor} = $reqr; -#} +sub checkauth { + my $self = shift; + $self->log(D, "checking auth token ".$self->authtoken); + my ($reqr, $evt) = $U->checkses($self->authtoken); + $self->event($evt) if $evt; + return $self->{requestor} = $reqr; +} +=head test sub checkauth { my $self = shift; $cache = OpenSRF::Utils::Cache->new('global') unless $cache; @@ -107,6 +108,7 @@ sub checkauth { $self->event(OpenILS::Event->new('NO_SESSION')); return undef; } +=cut # ----------------------------------------------------------------------------- -- 2.11.0