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