hook(type => "filter", id => "otl", call => \&filter);
hook(type => "htmlize", id => "otl", call => \&htmlize);
} # }}}
hook(type => "filter", id => "otl", call => \&filter);
hook(type => "htmlize", id => "otl", call => \&htmlize);
} # }}}
sub filter (@) { #{{{
my %params=@_;
# Munge up check boxes to look a little bit better. This is a hack.
my $checked=htmllink($params{page}, $params{page},
sub filter (@) { #{{{
my %params=@_;
# Munge up check boxes to look a little bit better. This is a hack.
my $checked=htmllink($params{page}, $params{page},
$params{content}=~s/^(\s*)\[X\]\s/${1}$checked /mg;
$params{content}=~s/^(\s*)\[_\]\s/${1}$unchecked /mg;
$params{content}=~s/^(\s*)\[X\]\s/${1}$checked /mg;
$params{content}=~s/^(\s*)\[_\]\s/${1}$unchecked /mg;