rolling back checkauth test change to see if this fixes the mysterious no_session...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6491 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm b/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
index de8d0d3..c5f069b 100644 (file)
--- 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
 
 
 # -----------------------------------------------------------------------------