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