Lines 30-36
my %scrubbertypes = (
Link Here
|
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 |
tag => {}, # uses defaults |
31 |
tag => {}, # uses defaults |
32 |
comment => { allow => [qw( br b i em big small strong )], }, |
32 |
comment => { allow => [qw( br b i em big small strong )], }, |
33 |
note => { allow => [qw[ br b i em big small strong u hr span div p ]] }, |
33 |
note => { allow => [qw[ br b i em big small strong u hr span div p ul li ]] }, |
34 |
staff => { |
34 |
staff => { |
35 |
default => [ 1 => { '*' => 1 } ], |
35 |
default => [ 1 => { '*' => 1 } ], |
36 |
comment => 1, |
36 |
comment => 1, |
Lines 49-55
sub new {
Link Here
|
49 |
rules => exists $settings->{rules} ? $settings->{rules} : [], |
49 |
rules => exists $settings->{rules} ? $settings->{rules} : [], |
50 |
default => exists $settings->{default} ? $settings->{default} : [ 0 => { '*' => 0 } ], |
50 |
default => exists $settings->{default} ? $settings->{default} : [ 0 => { '*' => 0 } ], |
51 |
comment => exists $settings->{comment} ? $settings->{comment} : 0, |
51 |
comment => exists $settings->{comment} ? $settings->{comment} : 0, |
52 |
note => exists $settings->{note} ? $settings->{note} : 0, |
|
|
53 |
process => 0, |
52 |
process => 0, |
54 |
); |
53 |
); |
55 |
return $scrubber; |
54 |
return $scrubber; |
56 |
- |
|
|