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

(-)a/Koha/Patron.pm (-24 lines)
1590	return $can;	1590	return $can;
1591	}	1591	}
1592		1592
1593	=head3 libraries_where_can_see_patrons
1594
1595	my $libraries = $patron-libraries_where_can_see_patrons;
1596
1597	Return the list of branchcodes(!) of libraries the patron is allowed to see other patron's infos.
1598	The branchcodes are arbitrarily returned sorted.
1599	We are supposing here that the object is related to the logged in patron (use of C4::Context::only_my_library)
1600
1601	An empty array means no restriction, the patron can see patron's infos from any libraries.
1602
1603	=cut
1604
1605	sub libraries_where_can_see_patrons {
1606	my ($self) = @_;
1607
1608	return $self->libraries_where_can_see_things(
1609	{
1610	permission => 'borrowers',
1611	subpermission => 'view_borrower_infos_from_any_libraries',
1612	group_feature => 'ft_hide_patron_info',
1613	}
1614	);
1615	}
1616
1617	=head3 libraries_where_can_see_things	1593	=head3 libraries_where_can_see_things
1618		1594
1619	my $libraries = $thing-libraries_where_can_see_things;	1595	my $libraries = $thing-libraries_where_can_see_things;