I have been following this tutorial for creating dynamic content with Template and trying to apply this to my own needs. But I've hit a problem in preparing the data for the template.

Template file 

[% SET menuframe = ' menuselect' %]

[% PROCESS admin_menu.tt %]

[% FOREACH frame IN frames %]
    <hr>
    <p><b>[% frame.name %]</b><br>
    [% frame.colour %]</p>
[% END %]

[download]
This does not generate any output for anything within the [% FOREACH ... %] block

Here is the code that extracts some data from the database and prepares it for passing to the Template display code 

#!/usr/bin/perl

use Site::Common;
use Site::HTML;

use strict;

my $site = Site::Common->new;
my $html = Site::HTML->new;
my $dbh  = $site->db;

if ($data{'command'} eq 'frames') {
    my $vars = {
        'frames' => \&list_frames,
    };
    warn "Displaying template";        # This gets called
    $html->display("admin_frames", $vars);
} else {
    $html->display("admin_pictures");
}


sub list_frames {
    warn "Building list of frames";        # This is not called
    my @frames;
    my $query = $dbh->prepare("SELECT idFrame, name, colour FROM Frame
+");
    $query->execute();
    while (my ($id, $name, $colour) = $query->fetchrow_array()) {
        my $frame = {
            'id'        => $id,
            'name'        => $name,
            'colour'    => $colour,
        };
        push @frames, $frame;
    }
    return \@frames;
}

[download]
There are a couple of warn statements in there so I can see something of what the code is doing.

Here is the relevant part of Site::HTML... 

package Site::HTML;

use Template;
use Site::Variables;
use strict;

my $template = Template->new(INCLUDE_PATH => $Site::Variables::templat
+e_path);

sub display {
    my $self = shift;
    my $file = shift;
    my %vars = @_;
    $template->process("$file.tt", \%vars);
}

1;

[download]

I'm not sure when list_frames is supposed to get called but I'm guessing at the time the hash reference $vars is generated.

In reply to Preparing data for Template by Bod

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.