Attachment #139156 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 1619-1648 sub can_log_into { Link Here

(-)a/Koha/Patron.pm (-24 lines)
1619	return $can;	1619	return $can;
1620	}	1620	}
1621		1621
1622	=head3 libraries_where_can_see_patrons
1623
1624	my $libraries = $patron-libraries_where_can_see_patrons;
1625
1626	Return the list of branchcodes(!) of libraries the patron is allowed to see other patron's infos.
1627	The branchcodes are arbitrarily returned sorted.
1628	We are supposing here that the object is related to the logged in patron (use of C4::Context::only_my_library)
1629
1630	An empty array means no restriction, the patron can see patron's infos from any libraries.
1631
1632	=cut
1633
1634	sub libraries_where_can_see_patrons {
1635	my ($self) = @_;
1636
1637	return $self->libraries_where_can_see_things(
1638	{
1639	permission => 'borrowers',
1640	subpermission => 'view_borrower_infos_from_any_libraries',
1641	group_feature => 'ft_hide_patron_info',
1642	}
1643	);
1644	}
1645
1646	=head3 libraries_where_can_see_things	1622	=head3 libraries_where_can_see_things
1647		1623
1648	my $libraries = $thing-libraries_where_can_see_things;	1624	my $libraries = $thing-libraries_where_can_see_things;