in reply to An Idea for a New Template Toolkit Improvement(?)

I wasn't 100% clear on what you needed to do. This is my guess at what you were asking for. If this isn't it let me know. An example would be most helpful if this wasn't what you needed.

perl code 
sub ContextString
{
   my $context = shift();
   
   if($context eq "foo")
   {
      return "String 1";
   }
   elsif($context eq "bar")
   {
      return "String 2";
   }
}

my $t_vars = {
               context_sub => \&ContextString,
               other => "mmm donuts",
             };

# config opts are whatever you need them to be
my $template = Template->new($config_opts);

$template->process("template_file.tt",$t_vars) ||
   die $template->error();

[download]
now for the template code 
.
.
.
[% context = "bar" %]
[% IF context %]
  Message: [% context_sub(context) %]
[% END %]
.
.
.

[download]
in this case the template would be 
Message: String 2

[download]

Replies are listed 'Best First'.
Re: Re: An Idea for a New Template Toolkit Improvement(?)
by monsieur_champs (Curate) on Mar 30, 2004 at 20:42 UTC

    Thank you very much for the example code. I'm so annoyed that I just can't figure out a full example

    Where almost there. The only thing wrong is that I want the Template file to pass in the code, not the Perl file.

    Is that possible? How can I start implement it? Maybe mr. Wardley would appreciate a little patch... (:

    Any suggestions?

    "In few words, translating PerlMonks documentation and best articles to other languages is like building a bridge to join other Perl communities into PerlMonks family. This makes the family bigger, the knowledge greater, the parties better and the life easier." -- monsieur_champs
[reply]

      You could turn on perl evaluation inside of the template. This would let you inline small chunks of perl code within the template. I generally try to write around doing things like that (for personal style issues mostly) but there's nothing really wrong with it.

      You could also have the perl function eval the argument that is passed to it. Generate the string of perl foo and pass that to a function similar to ContextString in my above example and have it get eval'ed

[reply]

        That does pose some dangers. The most significant is that it makes it easier to succumb to the temptation of pushing logic into the presentation layer. If this seems unavoidable, a cleaner solution would be to build a plugin to handle logic issues.

        Cheers,
        Ovid

        New address of my CGI Course.

[reply]
      You should try the tt mailing list:
      http://www.template-toolkit.org/info.html#lists
      --
      Clayton
[reply]
        Just for easier access: tt mailing list.

        FYI, this link is done by writing [http://www.template-toolkit.org/info.html#lists|tt mailing list].

        -- Hofmator

[reply]
[d/l]

In Section Seekers of Perl Wisdom