@@ -, +, @@ --- Koha/Edifact/Order.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) --- a/Koha/Edifact/Order.pm +++ a/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 { --