@@ -, +, @@ --- Koha/Item.pm | 16 ++-------------- Koha/Library.pm | 37 ------------------------------------- 2 files changed, 2 insertions(+), 51 deletions(-) --- a/Koha/Item.pm +++ a/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 --- a/Koha/Library.pm +++ a/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; --