|
Lines 26-31
use CGI qw(-oldstyle_urls -utf8);
Link Here
|
| 26 |
use C4::Auth qw( get_template_and_user ); |
26 |
use C4::Auth qw( get_template_and_user ); |
| 27 |
use Text::CSV_XS; |
27 |
use Text::CSV_XS; |
| 28 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
28 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
|
|
29 |
use Koha::Patron::Attribute::Types; |
| 29 |
use DateTime; |
30 |
use DateTime; |
| 30 |
use DateTime::Format::MySQL; |
31 |
use DateTime::Format::MySQL; |
| 31 |
|
32 |
|
|
Lines 117-129
my $have_pattr_filter_data = keys(%cgi_attrcode_to_attrvalues) > 0;
Link Here
|
| 117 |
|
118 |
|
| 118 |
my @patron_attr_filter_loop; # array of [ domid cgivalue ismany isclone ordinal code description repeatable authorised_value_category ] |
119 |
my @patron_attr_filter_loop; # array of [ domid cgivalue ismany isclone ordinal code description repeatable authorised_value_category ] |
| 119 |
|
120 |
|
| 120 |
my $sth = $dbh->prepare('SELECT code,description,repeatable,authorised_value_category |
121 |
my $patron_attrs = Koha::Patron::Attribute::Types->search_with_library_limits( |
| 121 |
FROM borrower_attribute_types |
122 |
{ |
| 122 |
WHERE staff_searchable <> 0 |
123 |
staff_searchable => 1, |
| 123 |
ORDER BY description'); |
124 |
}, |
| 124 |
$sth->execute(); |
125 |
{}, |
|
|
126 |
C4::Context->userenv->{'branch'} |
| 127 |
); |
| 128 |
|
| 125 |
my $ordinal = 0; |
129 |
my $ordinal = 0; |
| 126 |
while (my $row = $sth->fetchrow_hashref) { |
130 |
while (my $attr = $patron_attrs->next ) { |
|
|
131 |
warn $attr->code; |
| 132 |
my $row = { |
| 133 |
code => $attr->code, |
| 134 |
description => $attr->description, |
| 135 |
repeatable => $attr->repeatable, |
| 136 |
authorised_value_category => $attr->authorised_value_category, |
| 137 |
}; |
| 127 |
$row->{ordinal} = $ordinal; |
138 |
$row->{ordinal} = $ordinal; |
| 128 |
my $code = $row->{code}; |
139 |
my $code = $row->{code}; |
| 129 |
my $cgivalues = $cgi_attrcode_to_attrvalues{$code} || [ '' ]; |
140 |
my $cgivalues = $cgi_attrcode_to_attrvalues{$code} || [ '' ]; |
| 130 |
- |
|
|