|
Lines 23-30
use strict;
Link Here
|
| 23 |
use warnings; |
23 |
use warnings; |
| 24 |
use Carp qw( croak ); |
24 |
use Carp qw( croak ); |
| 25 |
use HTML::Scrubber; |
25 |
use HTML::Scrubber; |
|
|
26 |
use File::Basename qw( fileparse ); |
| 27 |
use YAML::XS; |
| 26 |
|
28 |
|
| 27 |
use C4::Context; |
29 |
use C4::Context; |
|
|
30 |
use Koha::Config; |
| 28 |
|
31 |
|
| 29 |
my %scrubbertypes = ( |
32 |
my %scrubbertypes = ( |
| 30 |
default => {}, # place holder, default settings are below as fallbacks in call to constructor |
33 |
default => {}, # place holder, default settings are below as fallbacks in call to constructor |
|
Lines 166-171
my %scrubbertypes = (
Link Here
|
| 166 |
}, |
169 |
}, |
| 167 |
); |
170 |
); |
| 168 |
|
171 |
|
|
|
172 |
override_default_settings( |
| 173 |
{ |
| 174 |
settings => \%scrubbertypes, |
| 175 |
} |
| 176 |
); |
| 177 |
|
| 178 |
=head1 NAME |
| 179 |
|
| 180 |
C4::Scrubber |
| 181 |
|
| 182 |
=head1 API |
| 183 |
|
| 184 |
=head2 Functions |
| 185 |
|
| 186 |
=cut |
| 187 |
|
| 188 |
=head3 override_default_settings |
| 189 |
|
| 190 |
|
| 191 |
=cut |
| 192 |
|
| 193 |
sub override_default_settings { |
| 194 |
my ($args) = @_; |
| 195 |
my $settings = $args->{settings}; |
| 196 |
if ($settings) { |
| 197 |
my ( $koha_conf_filename, $config_dir ) = fileparse( Koha::Config->guess_koha_conf ); |
| 198 |
my $filename = sprintf( "%s/html_scrubber.yaml", $config_dir ); |
| 199 |
if ( $filename && -f $filename ) { |
| 200 |
my $override_settings = YAML::XS::LoadFile($filename); |
| 201 |
if ( $override_settings && ref $override_settings && ref $override_settings eq 'HASH' ) { |
| 202 |
foreach my $type ( keys %$override_settings ) { |
| 203 |
$settings->{$type} = $override_settings->{$type}; |
| 204 |
} |
| 205 |
} |
| 206 |
} |
| 207 |
} |
| 208 |
return $settings; |
| 209 |
} |
| 210 |
|
| 211 |
=head3 new |
| 212 |
|
| 213 |
=cut |
| 214 |
|
| 169 |
sub new { |
215 |
sub new { |
| 170 |
shift; # ignore our class we are wrapper |
216 |
shift; # ignore our class we are wrapper |
| 171 |
my $type = (@_) ? shift : 'default'; |
217 |
my $type = (@_) ? shift : 'default'; |
| 172 |
- |
|
|