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

(-)a/Koha/RecordProcessor.pm (-5 / +9 lines)
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
- 

Return to bug 14646