From: Jason Stephenson <jstephenson@mvlc.org>
Date: Mon, 14 Dec 2015 20:28:45 +0000 (-0500)
Subject: Modify NCIP::ILS::Evergreen->find_location_failover.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9abaa7a4c7575c44ef72824491739f205433d93b;p=working%2FNCIPServer.git

Modify NCIP::ILS::Evergreen->find_location_failover.

Comment out the code to strip everything up to and including the
first - from the location field when trying to parse the input.
Apparently, they've stopped adding extra crud on the front of
our codes.  The presence of this code is now causing problems
for those locations that do have dashes in their shortnames in
Evergreen.

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
---

diff --git a/lib/NCIP/ILS/Evergreen.pm b/lib/NCIP/ILS/Evergreen.pm
index 63e83f5..b19ceee 100644
--- a/lib/NCIP/ILS/Evergreen.pm
+++ b/lib/NCIP/ILS/Evergreen.pm
@@ -2801,15 +2801,11 @@ sub find_location_failover {
     }
     my $org_unit;
     if ($location) {
-        # Because Auto-Graphics. (This should be configured somehow.)
-        $location =~ s/^[^-]+-//;
         $org_unit = $self->retrieve_org_unit_by_shortname($location);
     }
     if ($request && $message && !$org_unit) {
         $location = $request->{$message}->{InitiationHeader}->{ToAgencyId}->{AgencyId};
         if ($location) {
-            # Because Auto-Graphics. (This should be configured somehow.)
-            $location =~ s/^[^-]+-//;
             $org_unit = $self->retrieve_org_unit_by_shortname($location);
         }
     }