Lines 29-35
use C4::Context;
Link Here
|
29 |
my %scrubbertypes = ( |
29 |
my %scrubbertypes = ( |
30 |
default => {}, # place holder, default settings are below as fallbacks in call to constructor |
30 |
default => {}, # place holder, default settings are below as fallbacks in call to constructor |
31 |
comment => { allow => [qw( br b i em big small strong )], }, |
31 |
comment => { allow => [qw( br b i em big small strong )], }, |
32 |
note => { allow => [qw[ br b i em big small strong u hr span div p ]] }, |
32 |
note => { allow => [qw[ br b i em big small strong u hr span div p ol ul li ]] }, |
33 |
); |
33 |
); |
34 |
|
34 |
|
35 |
sub new { |
35 |
sub new { |
Lines 44-50
sub new {
Link Here
|
44 |
rules => exists $settings->{rules} ? $settings->{rules} : [], |
44 |
rules => exists $settings->{rules} ? $settings->{rules} : [], |
45 |
default => exists $settings->{default} ? $settings->{default} : [ 0 => { '*' => 0 } ], |
45 |
default => exists $settings->{default} ? $settings->{default} : [ 0 => { '*' => 0 } ], |
46 |
comment => exists $settings->{comment} ? $settings->{comment} : 0, |
46 |
comment => exists $settings->{comment} ? $settings->{comment} : 0, |
47 |
note => exists $settings->{note} ? $settings->{note} : 0, |
|
|
48 |
process => 0, |
47 |
process => 0, |
49 |
); |
48 |
); |
50 |
return $scrubber; |
49 |
return $scrubber; |
51 |
- |
|
|