1 package Koha::Virtualshelves;
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
24 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 group_by => '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 group_by => '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 $category = $params->{category} || 1;
87 my $add_allowed = $params->{add_allowed};
95 "me.owner" => $borrowernumber,
99 if ( $category == 1 ) {
103 "virtualshelfshares.borrowernumber" => $borrowernumber,
104 "me.owner" => $borrowernumber,
111 category => $category,
112 ( @conditions ? ( -and => \@conditions ) : () ),
115 join => [ 'virtualshelfshares' ],
116 group_by => 'shelfnumber',
117 order_by => { -desc => 'lastmodified' },
122 sub get_shelves_containing_record {
123 my ( $self, $params ) = @_;
124 my $borrowernumber = $params->{borrowernumber};
125 my $biblionumber = $params->{biblionumber};
127 my @conditions = ( 'virtualshelfcontents.biblionumber' => $biblionumber );
128 if ($borrowernumber) {
135 'me.owner' => $borrowernumber,
137 'virtualshelfshares.borrowernumber' => $borrowernumber,
146 push @conditions, { category => 2 };
149 return Koha::Virtualshelves->search(
154 join => [ 'virtualshelfcontents', 'virtualshelfshares' ],
155 group_by => 'shelfnumber',
156 order_by => { -asc => 'shelfname' },
162 return 'Virtualshelve';
166 return 'Koha::Virtualshelf';