|
Lines 103-115
sub new {
Link Here
|
| 103 |
: $param->{filters}; |
103 |
: $param->{filters}; |
| 104 |
my @filters = ( ); |
104 |
my @filters = ( ); |
| 105 |
|
105 |
|
| 106 |
foreach my $filter (@{ $req_filters }) { |
106 |
foreach my $filter_name (@{ $req_filters }) { |
| 107 |
next unless $filter; |
107 |
next unless $filter_name; |
| 108 |
my $filter_module = $filter =~ m/:/ ? $filter : "Koha::Filter::${schema}::${filter}"; |
108 |
# Fully qualify the module name. |
|
|
109 |
my $filter_module = $filter_name =~ m/:/ ? $filter_name : "Koha::Filter::${schema}::${filter_name}"; |
| 109 |
if (can_load( modules => { $filter_module => undef } )) { |
110 |
if (can_load( modules => { $filter_module => undef } )) { |
| 110 |
my $object = $filter_module->new(); |
111 |
my $filter = $filter_module->new(); |
| 111 |
$filter_module->initialize($param); |
112 |
$filter->initialize($param); |
| 112 |
push @filters, $object; |
113 |
push @filters, $filter; |
| 113 |
} |
114 |
} |
| 114 |
} |
115 |
} |
| 115 |
|
116 |
|
| 116 |
- |
|
|