gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 29886: Add Koha::Suggestions->search_limited 

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
(cherry picked from commit 2bcac55ba4)

Signed-off-by: Andrew Fuerste-Henry <andrew@bywatersolutions.com>
This commit is contained in:
Tomas Cohen Arazi 2022-01-14 13:03:54 -03:00 committed by Andrew Fuerste-Henry
parent 6c47560f34
commit 14a77ce99d
1 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Koha/Suggestions.pm
View File

@ -22,7 +22,6 @@ use Modern::Perl;
use Carp;
use Koha::Database;
use Koha::Suggestion;
use base qw(Koha::Objects);
@ -33,11 +32,40 @@ Koha::Suggestions - Koha Suggestion object set class
=head1 API
=head2 Class Methods
=head2 Class methods
=head3 search_limited
my $suggestions = Koha::Suggestions->search_limited( $params, $attributes );
Returns all the suggestions the logged in user is allowed to see.
=cut
=head3 type
sub search_limited {
my ( $self, $params, $attributes ) = @_;
my $resultset = $self;
# filter on user branch
if ( C4::Context->preference('IndependentBranches')
&& !C4::Context->IsSuperLibrarian() )
{
# If IndependentBranches is set and the logged in user is not superlibrarian
# Then we want to filter by the user's library (i.e. cannot see suggestions
# from other libraries)
my $userenv = C4::Context->userenv;
$resultset = $self->search({ branchcode => $userenv->{branch} })
if $userenv && $userenv->{branch};
}
return $resultset->search( $params, $attributes);
}
=head2 Internal methods
=head3 _type
=cut