|
Lines 57-64
clone it I<prior> to passing it off to the RecordProcessor.
Link Here
|
| 57 |
|
57 |
|
| 58 |
=cut |
58 |
=cut |
| 59 |
|
59 |
|
| 60 |
use strict; |
60 |
use Modern::Perl; |
| 61 |
use warnings; |
61 |
|
| 62 |
use Module::Load::Conditional qw(can_load); |
62 |
use Module::Load::Conditional qw(can_load); |
| 63 |
use Module::Pluggable::Object; |
63 |
use Module::Pluggable::Object; |
| 64 |
|
64 |
|
|
Lines 90-104
Koha::Filter::${schema} namespace, as only the filter name, and
Link Here
|
| 90 |
|
90 |
|
| 91 |
=cut |
91 |
=cut |
| 92 |
sub new { |
92 |
sub new { |
|
|
93 |
|
| 93 |
my $class = shift; |
94 |
my $class = shift; |
| 94 |
my $param = shift; |
95 |
my $param = shift; |
| 95 |
|
96 |
|
| 96 |
|
97 |
|
| 97 |
my $schema = $param->{schema} || 'MARC'; |
98 |
my $schema = $param->{schema} || 'MARC'; |
| 98 |
my $options = $param->{options} || ''; |
99 |
my $options = $param->{options} || ''; |
|
|
100 |
|
| 101 |
my $req_filters = ( ref($param->{filters}) ne 'ARRAY' ) |
| 102 |
? [ $param->{filters} ] |
| 103 |
: $param->{filters}; |
| 99 |
my @filters = ( ); |
104 |
my @filters = ( ); |
| 100 |
|
105 |
|
| 101 |
foreach my $filter ($param->{filters}) { |
106 |
foreach my $filter (@{ $req_filters }) { |
| 102 |
next unless $filter; |
107 |
next unless $filter; |
| 103 |
my $filter_module = $filter =~ m/:/ ? $filter : "Koha::Filter::${schema}::${filter}"; |
108 |
my $filter_module = $filter =~ m/:/ ? $filter : "Koha::Filter::${schema}::${filter}"; |
| 104 |
if (can_load( modules => { $filter_module => undef } )) { |
109 |
if (can_load( modules => { $filter_module => undef } )) { |
| 105 |
- |
|
|