1 package Koha::Virtualshelves;
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
23 use Koha::Virtualshelf;
26 use base qw(Koha::Objects);
30 Koha::Virtualshelf - Koha Virtualshelf Object class
42 sub get_private_shelves {
43 my ( $self, $params ) = @_;
44 my $page = $params->{page};
45 my $rows = $params->{rows};
46 my $borrowernumber = $params->{borrowernumber} || 0;
52 'virtualshelfshares.borrowernumber' => $borrowernumber,
53 'me.owner' => $borrowernumber,
57 join => [ 'virtualshelfshares' ],
58 distinct => 'shelfnumber',
59 order_by => 'shelfname',
60 ( ( $page and $rows ) ? ( page => $page, rows => $rows ) : () ),
66 sub get_public_shelves {
67 my ( $self, $params ) = @_;
68 my $page = $params->{page};
69 my $rows = $params->{rows};
76 distinct => 'shelfnumber',
77 order_by => 'shelfname',
78 ( ( $page and $rows ) ? ( page => $page, rows => $rows ) : () ),
83 sub get_some_shelves {
84 my ( $self, $params ) = @_;
85 my $borrowernumber = $params->{borrowernumber} || 0;
86 my $public = $params->{public} || 0;
87 my $add_allowed = $params->{add_allowed};
92 if ( $borrowernumber != 0 ) {
93 $patron = Koha::Patrons->find( $borrowernumber );
94 $staffuser = $patron->can_patron_change_staff_only_lists;
102 "me.owner" => $borrowernumber,
103 "me.allow_change_from_owner" => 1,
105 "me.allow_change_from_others" => 1,
106 "me.allow_change_from_staff" => 1
114 "me.owner" => $borrowernumber,
115 "me.allow_change_from_owner" => 1,
117 "me.allow_change_from_others" => 1,
126 "virtualshelfshares.borrowernumber" => $borrowernumber,
127 "me.owner" => $borrowernumber,
135 ( @conditions ? ( -and => \@conditions ) : () ),
138 join => [ 'virtualshelfshares' ],
139 distinct => 'shelfnumber',
140 order_by => { -desc => 'lastmodified' },
145 sub get_shelves_containing_record {
146 my ( $self, $params ) = @_;
147 my $borrowernumber = $params->{borrowernumber};
148 my $biblionumber = $params->{biblionumber};
150 my @conditions = ( 'virtualshelfcontents.biblionumber' => $biblionumber );
151 if ($borrowernumber) {
158 'me.owner' => $borrowernumber,
160 'virtualshelfshares.borrowernumber' => $borrowernumber,
168 push @conditions, { public => 1 };
171 return Koha::Virtualshelves->search(
176 join => [ 'virtualshelfcontents', 'virtualshelfshares' ],
177 distinct => 'shelfnumber',
178 order_by => { -asc => 'shelfname' },
183 sub get_shared_shelves {
184 my ( $self, $params ) = @_;
185 my $borrowernumber = $params->{borrowernumber} || 0;
189 'me.owner' => $borrowernumber,
190 'me.shelfnumber' => { -ident => 'virtualshelfshares.shelfnumber' }
192 { prefetch => 'virtualshelfshares' }
197 return 'Virtualshelve';
201 return 'Koha::Virtualshelf';