Attachment #143549 for bug #20256

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




   return $can;
}

=head3 libraries_where_can_see_patrons

my $libraries = $patron-libraries_where_can_see_patrons;

Return the list of branchcodes(!) of libraries the patron is allowed to see other patron's infos.
The branchcodes are arbitrarily returned sorted.
We are supposing here that the object is related to the logged in patron (use of C4::Context::only_my_library)

An empty array means no restriction, the patron can see patron's infos from any libraries.

=cut

sub libraries_where_can_see_patrons {
    my ($self) = @_;

    return $self->libraries_where_can_see_things(
        {
            permission    => 'borrowers',
            subpermission => 'view_borrower_infos_from_any_libraries',
            group_feature => 'ft_hide_patron_info',
        }
    );
}

=head3 libraries_where_can_see_things

my $libraries = $thing-libraries_where_can_see_things;

Lines 19-25 Link Here

(-)a/t/db_dependent/Koha/Patrons.t (-2 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Test::More tests => 44;	22	use Test::More tests => 45;
23	use Test::Warn;	23	use Test::Warn;
24	use Test::Exception;	24	use Test::Exception;
25	use Test::MockModule;	25	use Test::MockModule;
26	-

Return to bug 20256

Lines 1653-1682 sub can_log_into { Link Here

(-)a/Koha/Patron.pm (-24 lines)
1653	return $can;	1653	return $can;
1654	}	1654	}
1655		1655
1656	=head3 libraries_where_can_see_patrons
1657
1658	my $libraries = $patron-libraries_where_can_see_patrons;
1659
1660	Return the list of branchcodes(!) of libraries the patron is allowed to see other patron's infos.
1661	The branchcodes are arbitrarily returned sorted.
1662	We are supposing here that the object is related to the logged in patron (use of C4::Context::only_my_library)
1663
1664	An empty array means no restriction, the patron can see patron's infos from any libraries.
1665
1666	=cut
1667
1668	sub libraries_where_can_see_patrons {
1669	my ($self) = @_;
1670
1671	return $self->libraries_where_can_see_things(
1672	{
1673	permission => 'borrowers',
1674	subpermission => 'view_borrower_infos_from_any_libraries',
1675	group_feature => 'ft_hide_patron_info',
1676	}
1677	);
1678	}
1679
1680	=head3 libraries_where_can_see_things	1656	=head3 libraries_where_can_see_things
1681		1657
1682	my $libraries = $thing-libraries_where_can_see_things;	1658	my $libraries = $thing-libraries_where_can_see_things;