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,
96 "me.allow_change_from_owner" => 1,
98 "me.allow_change_from_others" => 1,
102 if ( $category == 1 ) {
106 "virtualshelfshares.borrowernumber" => $borrowernumber,
107 "me.owner" => $borrowernumber,
114 category
=> $category,
115 ( @conditions ?
( -and => \
@conditions ) : () ),
118 join => [ 'virtualshelfshares' ],
119 group_by
=> 'shelfnumber',
120 order_by
=> { -desc
=> 'lastmodified' },
125 sub get_shelves_containing_record
{
126 my ( $self, $params ) = @_;
127 my $borrowernumber = $params->{borrowernumber
};
128 my $biblionumber = $params->{biblionumber
};
130 my @conditions = ( 'virtualshelfcontents.biblionumber' => $biblionumber );
131 if ($borrowernumber) {
138 'me.owner' => $borrowernumber,
140 'virtualshelfshares.borrowernumber' => $borrowernumber,
148 push @conditions, { category
=> 2 };
151 return Koha
::Virtualshelves
->search(
156 join => [ 'virtualshelfcontents', 'virtualshelfshares' ],
157 distinct
=> 'shelfnumber',
158 order_by
=> { -asc
=> 'shelfname' },
164 return 'Virtualshelve';
168 return 'Koha::Virtualshelf';