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

(-)a/C4/Scrubber.pm (-1 / +46 lines)
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
- 

Return to bug 42047