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

(-)a/Koha/Edifact/Order.pm (-11 / +9 lines)
Lines 23-41 use utf8; Link Here
23
23
24
use Carp;
24
use Carp;
25
use DateTime;
25
use DateTime;
26
use Readonly;
27
use Business::ISBN;
26
use Business::ISBN;
28
use Koha::Database;
27
use Koha::Database;
29
use C4::Budgets qw( GetBudget );
28
use C4::Budgets qw( GetBudget );
30
29
31
Readonly::Scalar my $seg_terminator      => q{'};
30
my $seg_terminator      = q{'};
32
Readonly::Scalar my $separator           => q{+};
31
my $separator           = q{+};
33
Readonly::Scalar my $component_separator => q{:};
32
my $component_separator = q{:};
34
Readonly::Scalar my $release_character   => q{?};
33
my $release_character   = q{?};
35
34
36
Readonly::Scalar my $NINES_12  => 999_999_999_999;
35
my $NINES_12  = 999_999_999_999;
37
Readonly::Scalar my $NINES_14  => 99_999_999_999_999;
36
my $NINES_14  = 99_999_999_999_999;
38
Readonly::Scalar my $CHUNKSIZE => 35;
37
my $CHUNKSIZE = 35;
39
38
40
sub new {
39
sub new {
41
    my ( $class, $parameter_hashref ) = @_;
40
    my ( $class, $parameter_hashref ) = @_;
Lines 606-615 sub message_date_segment { Link Here
606
605
607
sub _const {
606
sub _const {
608
    my $key = shift;
607
    my $key = shift;
609
    Readonly my %S => {
608
    my %S = (
610
        service_string_advice => q{UNA:+.? '},
609
        service_string_advice => q{UNA:+.? '},
611
        message_identifier    => q{+ORDERS:D:96A:UN:EAN008'},
610
        message_identifier    => q{+ORDERS:D:96A:UN:EAN008'},
612
    };
611
    );
613
    return ( $S{$key} ) ? $S{$key} : q{};
612
    return ( $S{$key} ) ? $S{$key} : q{};
614
}
613
}
615
614
616
- 

Return to bug 16588