From a6d247b654beee7958c6bd5f2d45dcb55554ab3e Mon Sep 17 00:00:00 2001 From: Jeff Davis Date: Thu, 13 Apr 2023 15:11:24 -0700 Subject: [PATCH] LP#2016188: avoid EDIWriter error when PO ordering agency has no mailing address Signed-off-by: Jeff Davis --- Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm index ab67194b47..c0cde12eff 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm @@ -153,7 +153,7 @@ sub compile_po { po_name => $self->escape_edi($po->name), provider_id => $po->provider->id, vendor_san => $po->provider->san || '', - org_unit_san => $po->ordering_agency->mailing_address->san || '', + org_unit_san => defined($po->ordering_agency->mailing_address) ? ($po->ordering_agency->mailing_address->san || '') : '', currency_type => $po->provider->currency_type, edi_attrs => {}, lineitems => [] -- 2.11.0