Lines 17-30
package Koha::Acquisition::Bookseller::Issue;
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
|
|
|
21 |
use Koha::Database; |
20 |
use Koha::Database; |
22 |
|
21 |
|
23 |
use base qw(Koha::Object); |
22 |
use base qw(Koha::Object); |
24 |
|
23 |
|
|
|
24 |
use constant ISSUE_TYPE_CATEGORY => 'VENDOR_ISSUE_TYPE'; |
25 |
|
25 |
=head1 NAME |
26 |
=head1 NAME |
26 |
|
27 |
|
27 |
Koha::Acquisition::Bookseller::Issue - Koha Issue Object class |
28 |
Koha::Acquisition::Bookseller::Issue - Koha vendor issue object class |
28 |
|
29 |
|
29 |
=head1 API |
30 |
=head1 API |
30 |
|
31 |
|
Lines 40-49
sub strings_map {
Link Here
|
40 |
my $strings = {}; |
41 |
my $strings = {}; |
41 |
|
42 |
|
42 |
if ( defined $self->type ) { |
43 |
if ( defined $self->type ) { |
43 |
my $type_av_category = 'VENDOR_ISSUE_TYPE'; |
|
|
44 |
my $av = Koha::AuthorisedValues->search( |
44 |
my $av = Koha::AuthorisedValues->search( |
45 |
{ |
45 |
{ |
46 |
category => $type_av_category, |
46 |
category => ISSUE_TYPE_CATEGORY, |
47 |
authorised_value => $self->type, |
47 |
authorised_value => $self->type, |
48 |
} |
48 |
} |
49 |
); |
49 |
); |
Lines 55-61
sub strings_map {
Link Here
|
55 |
: $self->type; |
55 |
: $self->type; |
56 |
|
56 |
|
57 |
$strings->{type} = { |
57 |
$strings->{type} = { |
58 |
category => 'VENDOR_ISSUE_TYPE', |
58 |
category => ISSUE_TYPE_CATEGORY, |
59 |
str => $type_str, |
59 |
str => $type_str, |
60 |
type => 'av', |
60 |
type => 'av', |
61 |
}; |
61 |
}; |