From 6b1f51d75a914dfa6b004b5b7e2233245f5f411e Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 23 Sep 2005 17:49:54 +0000 Subject: [PATCH] now, actually passing in the user object git-svn-id: svn://svn.open-ils.org/ILS/trunk@1869 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/WWW/Reporter.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Reporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Reporter.pm index 6fb148884d..4da4372cd4 100644 --- a/Open-ILS/src/perlmods/OpenILS/WWW/Reporter.pm +++ b/Open-ILS/src/perlmods/OpenILS/WWW/Reporter.pm @@ -17,6 +17,7 @@ use OpenSRF::System; use XML::LibXML; use OpenSRF::Utils::SettingsParser; +use OpenILS::Utils::Fieldmapper; @@ -121,7 +122,7 @@ sub _process_template { } -# returns 1 if the session is valid, 0 otherwise +# returns the user object if the session is valid, 0 otherwise sub verify_login { my $auth_token = shift; return 0 unless $auth_token; @@ -130,7 +131,7 @@ sub verify_login { my $req = $session->request("open-ils.auth.session.retrieve", $auth_token ); my $user = $req->gather(1); - return 1 if ref($user); + return $user if ref($user); return 0; } -- 2.43.2