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

(-)a/Koha/Patron.pm (-24 lines)
Lines 1619-1648 sub can_log_into { Link Here
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;
(-)a/t/db_dependent/Koha/Patrons.t (-2 / +1 lines)
Lines 19-25 Link Here
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