|
Lines 33-39
use HTML::Entities;
Link Here
|
| 33 |
use CGI qw ( -utf8 ); |
33 |
use CGI qw ( -utf8 ); |
| 34 |
use DateTime; |
34 |
use DateTime; |
| 35 |
use C4::Auth; |
35 |
use C4::Auth; |
| 36 |
use C4::Members::Attributes qw(GetBorrowerAttributes); |
|
|
| 37 |
use Koha::DateUtils; |
36 |
use Koha::DateUtils; |
| 38 |
|
37 |
|
| 39 |
use Koha::Biblios; |
38 |
use Koha::Biblios; |
|
Lines 505-511
sub GetPatronInfo {
Link Here
|
| 505 |
|
504 |
|
| 506 |
my $show_attributes = $cgi->param('show_attributes'); |
505 |
my $show_attributes = $cgi->param('show_attributes'); |
| 507 |
if ( $show_attributes && $show_attributes eq "1" ) { |
506 |
if ( $show_attributes && $show_attributes eq "1" ) { |
| 508 |
my $attrs = GetBorrowerAttributes( $borrowernumber, 1 ); |
507 |
# FIXME Regression expected here, we do not retrieve the same field as previously |
|
|
508 |
# Waiting for answer on bug 14257 comment 15 |
| 509 |
my $attrs = $patron->get_extended_attributes->search({ opac_display => 1 })->unblessed; |
| 509 |
$borrower->{'attributes'} = $attrs; |
510 |
$borrower->{'attributes'} = $attrs; |
| 510 |
} |
511 |
} |
| 511 |
|
512 |
|
| 512 |
- |
|
|