From a6fe3d69598cd97cff876cb1d397c4f4f71b6047 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Thu, 4 Oct 2018 13:45:15 -0300 Subject: [PATCH] Bug 11897: (QA follow-up) Remove rebase leftover Signed-off-by: Tomas Cohen Arazi Signed-off-by: Martin Renvoize --- Koha/Item.pm | 16 ++-------------- Koha/Library.pm | 37 ------------------------------------- 2 files changed, 2 insertions(+), 51 deletions(-) diff --git a/Koha/Item.pm b/Koha/Item.pm index 721c0d66d6..f3799eff20 100644 --- a/Koha/Item.pm +++ b/Koha/Item.pm @@ -42,7 +42,7 @@ Koha::Item - Koha Item object class =head1 API -=head2 Class Methods +=head2 Class methods =cut @@ -315,19 +315,7 @@ sub add_to_rota { return $self; } -=head3 biblio - - my $biblio = $item->biblio; - -Returns the biblio associated with the current item. - -=cut - -sub biblio { - my ( $self ) = @_; - my $rs = $self->_result->biblio; - return Koha::Biblio->_new_from_dbic( $rs ); -} +=head2 Internal methods =head3 _type diff --git a/Koha/Library.pm b/Koha/Library.pm index 7877174ec5..f1a5597305 100644 --- a/Koha/Library.pm +++ b/Koha/Library.pm @@ -36,43 +36,6 @@ Koha::Library - Koha Library Object class =head2 Class methods -=head3 get_categories - -TODO: Ask the author to add a proper description - -=cut - -sub get_categories { - my ( $self, $params ) = @_; - # TODO This should return Koha::LibraryCategories - return $self->{_result}->categorycodes( $params ); -} - -=head3 update_categories - -TODO: Ask the author to add a proper description - -=cut - -sub update_categories { - my ( $self, $categories ) = @_; - $self->_result->delete_related( 'branchrelations' ); - $self->add_to_categories( $categories ); -} - -=head3 add_to_categories - -TODO: Ask the author to add a proper description - -=cut - -sub add_to_categories { - my ( $self, $categories ) = @_; - for my $category ( @$categories ) { - $self->_result->add_to_categorycodes( $category->_result ); - } -} - =head3 stockrotationstages my $stages = Koha::Library->stockrotationstages; -- 2.19.0