Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 18403: Add new method Koha::Patron->can_see_patrons_from

Browse source 
Technical note:
Sometimes we do not have the patron object, for instance for the patron modifications
we will need to know if the logged in user can modify patron's from a given library.
This new subroutine 'can_see_patrons_from' will then be useful

Signed-off-by: Signed-off-by: Jon McGowan <jon.mcgowan@ptfs-europe.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2017-04-07 14:00:34 -03:00
parent 55544f0187
commit 38ae35332a
1 changed files with 16 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
Koha/Patron.pm
View file

@ -720,14 +720,27 @@ Return true if the patron (usually the logged in user) can see the patron's info
sub can_see_patron_infos {
my ( $self, $patron ) = @_;
return $self->can_see_patrons_from( $patron->library->branchcode );
}
=head3 can_see_patrons_from
my $can_see = $patron->can_see_patrons_from( $branchcode );
Return true if the patron (usually the logged in user) can see the patron's infos from a given library
=cut
sub can_see_patrons_from {
my ( $self, $branchcode ) = @_;
my $can = 0;
if ( $self->branchcode eq $patron->branchcode ) {
if ( $self->branchcode eq $branchcode ) {
$can = 1;
} elsif ( $self->can( { borrowers => 'view_borrower_infos_from_any_libraries' } ) ) {
$can = 1;
} elsif ( my $library_groups = $self->library->library_groups ) {
while ( my $library_group = $library_groups->next ) {
if ( $library_group->parent->has_child( $patron->library->branchcode ) ) {
if ( $library_group->parent->has_child( $branchcode ) ) {
$can = 1;
last;
}
@ -777,6 +790,7 @@ sub libraries_where_can_see_patrons {
}
}
}
return sort(uniq(@restricted_branchcodes));
}