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