From dbc0161cdc8da7687220bc158018fc83b89be623 Mon Sep 17 00:00:00 2001
From: Michael Hafen <mdhafen@tech.washk12.org>
Date: Mon, 14 Sep 2009 09:07:57 -0600
Subject: [PATCH] Avoid potentially unnecessary database call in Auth

Auth, after verifying the session/logging in the user, calls to the database
to get the users borrowernumber.  This call is probably unnecessary because
borrowernumber is part of userenv.  Check userenv before going to the database.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 C4/Auth.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/C4/Auth.pm b/C4/Auth.pm
index 22ea838450..ff238fcb56 100644
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -1447,6 +1447,10 @@ sub haspermission {
 
 sub getborrowernumber {
     my ($userid) = @_;
+    my $userenv = C4::Context->userenv;
+    if ( defined( $userenv ) && ref( $userenv ) eq 'HASH' && $userenv->{number} ) {
+        return $userenv->{number};
+    }
     my $dbh = C4::Context->dbh;
     for my $field ( 'userid', 'cardnumber' ) {
         my $sth =
-- 
2.39.5