Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 5611 INIT block causes failure with mod perl

Browse source 
Per module INIT Blocks are not run in mod_perl so their
variables are not visible. A lexical var is adequate
for this purpose

Signed-off-by: Colin Campbell <colin.campbell@ptfs-europe.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Bryce Sanchez 2011-01-12 16:53:21 +00:00 committed by Chris Cormack
parent 0d5029ec5b
commit e0d76bd88d
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
C4/Scrubber.pm
View file

@ -30,19 +30,18 @@ BEGIN {
# @ISA = qw(HTML::Scrubber);
}
INIT {
%scrubbertypes = (
default => {}, # place holder, default settings are below as fallbacks in call to constructor
tag => {}, # uses defaults
comment => {
allow => [qw( br b i em big small strong )],
},
staff => {
default => [ 1 =>{'*'=>1} ],
comment => 1,
},
);
}
my %scrubbertypes = (
default => {}, # place holder, default settings are below as fallbacks in call to constructor
tag => {}, # uses defaults
comment => {
allow => [qw( br b i em big small strong )],
},
staff => {
default => [ 1 =>{'*'=>1} ],
comment => 1,
},
);
sub new {