3 # Copyright ByWater Solutions 2014
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 3 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
29 use base
qw(Koha::Object);
33 Koha::Item - Koha Item object class
41 =head3 effective_itemtype
43 Returns the itemtype for the item based on whether item level itemtypes are set or not.
47 sub effective_itemtype
{
50 return $self->_result()->effective_itemtype();
60 $self->{_home_branch
} ||= Koha
::Libraries
->find( $self->homebranch() );
62 return $self->{_home_branch
};
72 $self->{_holding_branch
} ||= Koha
::Libraries
->find( $self->holdingbranch() );
74 return $self->{_holding_branch
};
79 return $self->_result->branchtransfers->first;
82 =head3 last_returned_by
84 Gets and sets the last borrower to return an item.
86 Accepts and returns Koha::Patron objects
88 $item->last_returned_by( $borrowernumber );
90 $last_returned_by = $item->last_returned_by();
94 sub last_returned_by
{
95 my ( $self, $borrower ) = @_;
97 my $items_last_returned_by_rs = Koha
::Database
->new()->schema()->resultset('ItemsLastBorrower');
100 return $items_last_returned_by_rs->update_or_create(
101 { borrowernumber
=> $borrower->borrowernumber, itemnumber
=> $self->id } );
104 unless ( $self->{_last_returned_by
} ) {
105 my $result = $items_last_returned_by_rs->single( { itemnumber
=> $self->id } );
107 $self->{_last_returned_by
} = Koha
::Patrons
->find( $result->get_column('borrowernumber') );
111 return $self->{_last_returned_by
};
125 Kyle M Hall <kyle@bywatersolutions.com>