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

(-)a/Koha/Object/Limit/Library.pm (-9 / +7 lines)
Lines 73-96 sub library_limits { Link Here
73
my $limits = $object->get_library_limits();
73
my $limits = $object->get_library_limits();
74
74
75
Returns the current library limits in the form of a Koha::Libraries iterator object.
75
Returns the current library limits in the form of a Koha::Libraries iterator object.
76
It returns undef if no library limits defined.
76
It returns a Koha::Libraries resultset containing all libraries if no library limits 
77
are defined.
77
78
78
=cut
79
=cut
79
80
80
sub get_library_limits {
81
sub get_library_limits {
81
    my ($self) = @_;
82
    my ($self) = @_;
82
83
83
    my @branchcodes
84
    my @branchcodes = $self->_library_limit_rs->search(
84
        = $self->_library_limit_rs->search(
85
        { $self->_library_limits->{id} => $self->id } )
85
        { $self->_library_limits->{id} => $self->id } )
86
        ->get_column( $self->_library_limits->{library} )->all();
86
      ->get_column( $self->_library_limits->{library} )->all();
87
87
88
    return unless @branchcodes;
88
    my $libraries = Koha::Libraries->new();
89
    return $libraries unless @branchcodes;
89
90
90
    my $filter = [ map { { branchcode => $_ } } @branchcodes ];
91
    my $filter = [ map { { branchcode => $_ } } @branchcodes ];
91
    my $libraries = Koha::Libraries->search( $filter );
92
    return $libraries->search($filter);
92
93
    return $libraries;
94
}
93
}
95
94
96
=head3 add_library_limit
95
=head3 add_library_limit
97
- 

Return to bug 23608