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