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 |
- |
|
|