|
Lines 21-27
use Modern::Perl;
Link Here
|
| 21 |
|
21 |
|
| 22 |
|
22 |
|
| 23 |
use Koha::Database; |
23 |
use Koha::Database; |
| 24 |
|
|
|
| 25 |
use Koha::Suggestion; |
24 |
use Koha::Suggestion; |
| 26 |
|
25 |
|
| 27 |
use base qw(Koha::Objects); |
26 |
use base qw(Koha::Objects); |
|
Lines 32-42
Koha::Suggestions - Koha Suggestion object set class
Link Here
|
| 32 |
|
31 |
|
| 33 |
=head1 API |
32 |
=head1 API |
| 34 |
|
33 |
|
| 35 |
=head2 Class Methods |
34 |
=head2 Class methods |
|
|
35 |
|
| 36 |
=head3 search_limited |
| 37 |
|
| 38 |
my $suggestions = Koha::Suggestions->search_limited( $params, $attributes ); |
| 39 |
|
| 40 |
Returns all the suggestions the logged in user is allowed to see. |
| 36 |
|
41 |
|
| 37 |
=cut |
42 |
=cut |
| 38 |
|
43 |
|
| 39 |
=head3 type |
44 |
sub search_limited { |
|
|
45 |
my ( $self, $params, $attributes ) = @_; |
| 46 |
|
| 47 |
my $resultset = $self; |
| 48 |
|
| 49 |
# filter on user branch |
| 50 |
if ( C4::Context->preference('IndependentBranches') |
| 51 |
&& !C4::Context->IsSuperLibrarian() ) |
| 52 |
{ |
| 53 |
# If IndependentBranches is set and the logged in user is not superlibrarian |
| 54 |
# Then we want to filter by the user's library (i.e. cannot see suggestions |
| 55 |
# from other libraries) |
| 56 |
my $userenv = C4::Context->userenv; |
| 57 |
|
| 58 |
$resultset = $self->search({ branchcode => $userenv->{branch} }) |
| 59 |
if $userenv && $userenv->{branch}; |
| 60 |
} |
| 61 |
|
| 62 |
return $resultset->search( $params, $attributes); |
| 63 |
} |
| 64 |
|
| 65 |
=head2 Internal methods |
| 66 |
|
| 67 |
=head3 _type |
| 40 |
|
68 |
|
| 41 |
=cut |
69 |
=cut |
| 42 |
|
70 |
|
| 43 |
- |
|
|