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

(-)a/Koha/Acquisition/Bookseller/Issue.pm (-5 / +5 lines)
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
        };
(-)a/Koha/Acquisition/Bookseller/Issues.pm (-3 / +1 lines)
Lines 17-23 package Koha::Acquisition::Bookseller::Issues; 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 Koha::Acquisition::Bookseller::Issue;
22
use Koha::Acquisition::Bookseller::Issue;
Lines 26-32 use base qw(Koha::Objects); Link Here
26
25
27
=head1 NAME
26
=head1 NAME
28
27
29
Koha::Acquisition::Bookseller::Issues
28
Koha::Acquisition::Bookseller::Issues - Koha vendor issues object class
30
29
31
=head1 API
30
=head1 API
32
31
33
- 

Return to bug 33105