From 9abaa7a4c7575c44ef72824491739f205433d93b Mon Sep 17 00:00:00 2001 From: Jason Stephenson Date: Mon, 14 Dec 2015 15:28:45 -0500 Subject: [PATCH] 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 --- lib/NCIP/ILS/Evergreen.pm | 4 ---- 1 file changed, 4 deletions(-) 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); } } -- 2.43.2