Hi all,
I'm having a problem w/ filters. The overview is that the filter is being
called, but no args are passed to it. My configuration is below. This is w/
version 2.04. Any thoughts? I've used filters before w/o any problems.
my %opts = (
INCLUDE_PATH => $path,
PRE_CHOMP => 1,
TRIM => 1,
PRE_PROCESS => 'header.html',
POST_PROCESS => 'footer.html',
COMPILE_DIR => $path.'/cache',
COMPILE_EXT => '.ttc2',
FILTERS => { commify => \&commify, },
);
sub commify {
debug('',"Commify args '@_'");
my $text = shift;
debug('',"Commifying '$text'");
$text = reverse $text;
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
$text = scalar reverse $text;
debug('',"Commified text: '$text'");
return $text;
}
Here's the results when called from a template via [% disk | commify %]:
Pair::Admin::commify: Commify args ''
Pair::Admin::commify: Commifying ''
Pair::Admin::commify: Commified text: ''
Drew Taylor JA[P|m_p|SQL]H
http://www.drewtaylor.com/ Just Another Perl|mod_perl|SQL Hacker
mailto:[EMAIL PROTECTED] *** God bless America! ***
DSL Provider w/ a clue: http://www.speakeasy.net/refer/29655
