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

(-)a/Koha/Edifact/Order.pm (-11 / +9 lines)
Lines 23-43 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
use Koha::Acquisition::Orders;
30
use Koha::Acquisition::Orders;
32
31
33
Readonly::Scalar my $seg_terminator      => q{'};
32
my $seg_terminator      = q{'};
34
Readonly::Scalar my $separator           => q{+};
33
my $separator           = q{+};
35
Readonly::Scalar my $component_separator => q{:};
34
my $component_separator = q{:};
36
Readonly::Scalar my $release_character   => q{?};
35
my $release_character   = q{?};
37
36
38
Readonly::Scalar my $NINES_12  => 999_999_999_999;
37
my $NINES_12  = 999_999_999_999;
39
Readonly::Scalar my $NINES_14  => 99_999_999_999_999;
38
my $NINES_14  = 99_999_999_999_999;
40
Readonly::Scalar my $CHUNKSIZE => 35;
39
my $CHUNKSIZE = 35;
41
40
42
sub new {
41
sub new {
43
    my ( $class, $parameter_hashref ) = @_;
42
    my ( $class, $parameter_hashref ) = @_;
Lines 622-631 sub message_date_segment { Link Here
622
621
623
sub _const {
622
sub _const {
624
    my $key = shift;
623
    my $key = shift;
625
    Readonly my %S => {
624
    my %S = (
626
        service_string_advice => q{UNA:+.? '},
625
        service_string_advice => q{UNA:+.? '},
627
        message_identifier    => q{+ORDERS:D:96A:UN:EAN008'},
626
        message_identifier    => q{+ORDERS:D:96A:UN:EAN008'},
628
    };
627
    );
629
    return ( $S{$key} ) ? $S{$key} : q{};
628
    return ( $S{$key} ) ? $S{$key} : q{};
630
}
629
}
631
630
632
- 

Return to bug 16588