View | Details | Raw Unified | Return to bug 18403
Collapse All | Expand All

(-)a/Koha/Patron.pm (-1 / +33 lines)
Lines 709-714 sub account_locked { Link Here
709
          and $self->login_attempts >= $FailedLoginAttempts )? 1 : 0;
709
          and $self->login_attempts >= $FailedLoginAttempts )? 1 : 0;
710
}
710
}
711
711
712
=head3 can_see_patron_infos
713
714
my $can_see = $patron->can_see_patron_infos( $patron );
715
716
Return true if the patron (usually the logged in user) can see the patron's infos for a given patron
717
718
=cut
719
720
sub can_see_patron_infos {
721
    my ( $self, $patron ) = @_;
722
    my $can = 0;
723
    if ( $self->branchcode eq $patron->branchcode ) {
724
        $can = 1;
725
    } elsif ( $self->can( { borrowers => 'view_borrower_infos_from_any_libraries' } ) ) {
726
        $can = 1;
727
    } elsif ( my $library_groups = $self->library->library_groups ) {
728
        while ( my $library_group = $library_groups->next ) {
729
            if ( $library_group->parent->has_child( $patron->library->branchcode ) ) {
730
                $can = 1;
731
                last;
732
            }
733
        }
734
    }
735
    return $can;
736
}
737
738
sub can {
739
    my ( $self, $flagsrequired ) = @_;
740
    return unless $self->userid;
741
    # TODO code from haspermission needs to be moved here!
742
    return C4::Auth::haspermission( $self->userid, $flagsrequired );
743
}
744
712
=head3 type
745
=head3 type
713
746
714
=cut
747
=cut
715
- 

Return to bug 18403