From e7709e1758f7dde00e81ca722f48d63eb855d6ea Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 15 Aug 2016 14:56:04 +0100 Subject: [PATCH] Bug 16588: (follow-up) Remove Readonly from Edifact --- Koha/Edifact/Order.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/Koha/Edifact/Order.pm b/Koha/Edifact/Order.pm index 1f9a442..093224e 100644 --- a/Koha/Edifact/Order.pm +++ b/Koha/Edifact/Order.pm @@ -607,11 +607,12 @@ sub message_date_segment { sub _const { my $key = shift; - Readonly my %S => { - service_string_advice => q{UNA:+.? '}, - message_identifier => q{+ORDERS:D:96A:UN:EAN008'}, - }; - return ( $S{$key} ) ? $S{$key} : q{}; + if ( $key eq 'service_string_advice' ) { + return q{UNA:+.? '}; + } elsif ( $key eq 'message_identifier' ) { + return q{+ORDERS:D:96A:UN:EAN008'}; + } + return q{}; } sub _interchange_sr_identifier { -- 2.8.1