View | Details | Raw Unified | Return to bug 16588
Collapse All | Expand All

(-)a/Koha/Edifact/Order.pm (-6 / +6 lines)
Lines 607-617 sub message_date_segment { Link Here
607
607
608
sub _const {
608
sub _const {
609
    my $key = shift;
609
    my $key = shift;
610
    Readonly my %S => {
610
    if ( $key eq 'service_string_advice' ) {
611
        service_string_advice => q{UNA:+.? '},
611
        return q{UNA:+.? '};
612
        message_identifier    => q{+ORDERS:D:96A:UN:EAN008'},
612
    } elsif ( $key eq 'message_identifier' ) {
613
    };
613
        return q{+ORDERS:D:96A:UN:EAN008'};
614
    return ( $S{$key} ) ? $S{$key} : q{};
614
    }
615
    return q{};
615
}
616
}
616
617
617
sub _interchange_sr_identifier {
618
sub _interchange_sr_identifier {
618
- 

Return to bug 16588