From 7e7df861f06139cea317a26dbb0fd91e03f45316 Mon Sep 17 00:00:00 2001
From: Chris Sharp <csharp@georgialibraries.org>
Date: Mon, 26 Apr 2021 15:06:46 -0400
Subject: [PATCH] tweak to allow OpenAthens to retreive OU name

---
 Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/OpenAthens.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/OpenAthens.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/OpenAthens.pm
index 4a5af936b9..bc6e2f61d7 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/OpenAthens.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/OpenAthens.pm
@@ -320,9 +320,9 @@ sub _get_openathens_session_initiator_url {
 
     my $ou_id = $user->home_ou;
     if ($ou_id && $U->is_true($openathens_config->{release_home_ou})) {
-        my $ou = $ctx->{get_aou}->($ou_id);
-        if ($ou) {
-            $request_obj->{attributes}->{OA_ATTR_HOME_OU} = $ou->shortname;
+        my $ou_name = $ctx->{get_aou}->($ou_id)->shortname;
+        if ($ou_name) {
+            $request_obj->{attributes}->{OA_ATTR_HOME_OU} = $ou_name;
         }
     }
 
-- 
2.11.0