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

(-)a/Koha/Patron.pm (-24 lines)
Lines 1590-1619 sub can_log_into { Link Here
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;
(-)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