|
Lines 720-733
Return true if the patron (usually the logged in user) can see the patron's info
Link Here
|
| 720 |
|
720 |
|
| 721 |
sub can_see_patron_infos { |
721 |
sub can_see_patron_infos { |
| 722 |
my ( $self, $patron ) = @_; |
722 |
my ( $self, $patron ) = @_; |
|
|
723 |
return $self->can_see_patrons_from( $patron->library->branchcode ); |
| 724 |
} |
| 725 |
|
| 726 |
=head3 can_see_patrons_from |
| 727 |
|
| 728 |
my $can_see = $patron->can_see_patrons_from( $branchcode ); |
| 729 |
|
| 730 |
Return true if the patron (usually the logged in user) can see the patron's infos from a given library |
| 731 |
|
| 732 |
=cut |
| 733 |
|
| 734 |
sub can_see_patrons_from { |
| 735 |
my ( $self, $branchcode ) = @_; |
| 723 |
my $can = 0; |
736 |
my $can = 0; |
| 724 |
if ( $self->branchcode eq $patron->branchcode ) { |
737 |
if ( $self->branchcode eq $branchcode ) { |
| 725 |
$can = 1; |
738 |
$can = 1; |
| 726 |
} elsif ( $self->can( { borrowers => 'view_borrower_infos_from_any_libraries' } ) ) { |
739 |
} elsif ( $self->can( { borrowers => 'view_borrower_infos_from_any_libraries' } ) ) { |
| 727 |
$can = 1; |
740 |
$can = 1; |
| 728 |
} elsif ( my $library_groups = $self->library->library_groups ) { |
741 |
} elsif ( my $library_groups = $self->library->library_groups ) { |
| 729 |
while ( my $library_group = $library_groups->next ) { |
742 |
while ( my $library_group = $library_groups->next ) { |
| 730 |
if ( $library_group->parent->has_child( $patron->library->branchcode ) ) { |
743 |
if ( $library_group->parent->has_child( $branchcode ) ) { |
| 731 |
$can = 1; |
744 |
$can = 1; |
| 732 |
last; |
745 |
last; |
| 733 |
} |
746 |
} |
|
Lines 777-782
sub libraries_where_can_see_patrons {
Link Here
|
| 777 |
} |
790 |
} |
| 778 |
} |
791 |
} |
| 779 |
} |
792 |
} |
|
|
793 |
|
| 780 |
return sort(uniq(@restricted_branchcodes)); |
794 |
return sort(uniq(@restricted_branchcodes)); |
| 781 |
} |
795 |
} |
| 782 |
|
796 |
|
| 783 |
- |
|
|