Hi Chris, I don't think anyone has answered yet...
The purpose of a filter is simply to modify the template-text-blob,
before being compiled into its internal form, ie: the only thing passed
into your filter, is the template. Here is a simple/common filter:
my $filter = sub {
my $text_ref = shift;
my $match = qr/%([-\w\/\.+]+)%/;
$$text_ref =~ s/$match/<TMPL_VAR NAME="$1">/g;
};
This filter replaces %some_var% with <TMPL_VAR some_var>. Notice that
the sub is called with only a text-ref.
>From your example below, it looks like you are initialising the sub =>
... the result of the function call to initialize_template_header().
What does this function return? for this syntax to work, it will need to
return a sub-ref.
To answer your last question, you need to make use of "use vars ..." to
stash your H::T reference in, eg:
{
...
use vars qw($HT);
$HT = H::T->new(... filter => some_filter );
...
$HT->output();
}
sub some_filter {
my $textref = shift;
use vars qw($HT);
... access $HT ...
... modify $$textref or something...
}
But I'm not sure why you need to access H::T from within your filter. I
suspect that you are trying to something with filters, that it simply
wont do -> I might be able to suggest an alternative solution if I know
what the problem was.
cheers,
Mathew Robertson
Chris Faust wrote:
Folks,
I'm having (what I hope is) a syntax problem.
I'm trying to use the "filter" option to run a sub on a template at
create time, but I want the sub in another package and I need to some
other objects with it.
From reading the docs I thought that the HTML::Template object would
simply be the first incoming param, but its not.
For example, here is how I wanted to create my template object:
my $template_header = new HTML::Template(filename => 'CommonHeader.tmpl',
filter => { sub =>
scripts::MyPackage->initialize_template_header($r,$db,$site_settings,$user_session_data,\%form_data)
},
);
Then in "MyPackage.pm", I would have
sub initialize_template_header {
my
($self,$template,$r,$db,$site_settings,$user_session_data,$form_data)
= @_;
....
}
$self is correctly defined, but $template becomes the first object I
send in ($r in this case).
How do I get the HTML::Template object??
TIA!!
-Chris
------------------------------------------------------------------------
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
------------------------------------------------------------------------
_______________________________________________
Html-template-users mailing list
Html-template-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/html-template-users
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Html-template-users mailing list
Html-template-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/html-template-users
