html template loops (hash of a hash)

I'm a bit new to html templates, so I apologize in advance if I ask some 
obvious questions.

I'm working on an HTML::Template loop issue that I can't quite seem to get 
working just right.  Instead of an array of hashes, I'm using a hash of 
hashes.

When I try and run it, it gives me this error:
-----------------------
Not an ARRAY reference at ./index2.cgi line 85.
-----------------------
Don't think this is a Perl error, so I'm thinking it's an HTML::Template 
error, maybe.

Here's an example of the data set I'm using:

The Perl I'm using to pack the hash of hash into something I thing HTML 
template will understand is below.

If anyone can think of what would cause this, let me know.  I think I may be 
trying to push the limits of HTML::Template farther than it supposed to.


---------------- 
Jake Covert
(313) 322-6717 (desk)
(313) 845-4154 (fax)
----------------


perl index2.cgi
=====================================================
 80 my @loop;  # the loop data will be put in here
 81
 82 # fill in the loop, sorted by fruit name
 83 foreach my $vendor (sort keys %vendor_hoh) {
 84         # get the files from the data hash
 85         my ($rif, $rif_out, $graph, $raw, $percent1, $percent2, $percent3) 
= @{$vendor_hoh{$vendor}};
 86
 87         # make a new row for this vendor - the keys are <TMPL_VAR> names
 88         # and the values are the values to fill in the template.
 89         my %row = (
 90                        rif      => $rif,
 91                        rif_out  => $rif_out,
 92                        graph    => $graph,
 93                        raw      => $raw,
 94                        percent1 => $percent1,
 95                        percent2 => $percent2,
 96                        percent3 => $percent3
 97                       );
 98
 99         # put this row into the loop by reference
100         push(@loop, \%row);
101
102 }
103
104 # call param to fill in the loop with the loop data by reference.
105 $tmpl->param(TMPL_LOOP => \@loop);
106 #=====================================================
107 #print @{$vendor_hoh{amls}};
108
109 # my @loop_data;
110 # push(@loop_data, \%vendor_hoh);
111 #
112 # # Pass the listref to param()
113 # $tmpl -> param( TMPL_LOOP => \@loop_data );
114 #
115 #
116 # This is HTML::Template part that actually outputs things...
117 #
118 print "Content-type: text/html\n\n",
119        $tmpl->output;
120 print Dumper(%vendor_hoh);
=====================================================





Template(s)
======================================
I have two templates.  The first is called index.tmpl.template.  It's a
template for the real template.  I couldn't figure out how to replace the top 
layer of hashes, so I'm using the perl script to auto-create the real 
index.tmpl from index.tmpl.template based on the first layer.  Perl that does 
this is here:
=======================================
if ( /TMPL_LOOP_PLACE_HOLDER/ ) {

  foreach $rif_file (sort @files) {
    my @rif_fields = split(/\./,$rif_file);
    $APP = (@rif_fields)[0];
    $MONTH = (@rif_fields)[1];
    $vendor_hoh{$APP}->{'rif'}      = "${APP}.${MONTH}.rif";
    $vendor_hoh{$APP}->{'rif_out'}  = "${APP}.${MONTH}.rif.out";
    $vendor_hoh{$APP}->{'graph'}    = "${APP}.${MONTH}.graph_toc.htm";
    $vendor_hoh{$APP}->{'raw'}      = "${APP}.${MONTH}.raw.gz";
    $vendor_hoh{$APP}->{'percent1'} = 
"${APP}.${MONTH}.country_percentages.txt";
    $vendor_hoh{$APP}->{'percent2'} = "${APP}Software_Usage${MONTH}.txt";
    $vendor_hoh{$APP}->{'percent3'} = 
"${APP}Software_percent_Usage${MONTH}.txt";

    print OF "\n<TMPL_LOOP NAME=\"$APP\">\n";
            print OF "<TMPL_IF NAME=\"rif\"><TMPL_VAR rif></TMPL_IF>\n";
            print OF "<TMPL_IF NAME=\"raw\"><TMPL_VAR raw></TMPL_IF>\n";
    print OF "</TMPL_LOOP>\n\n";
  }
}
=======================================

Example of what the template "template" looks like:
=-=-=-=-=-=-=-=-=-=-=-=
<TMPL_LOOP NAME="TMPL_LOOP">

<!- TMPL_LOOP_PLACE_HOLDER ->

</TMPL_LOOP>
=-=-=-=-=-=-=-=-=-=-=-=

When my index.cgi script runs, it reads this index.tmpl.template and replaces
<!- TMPL_LOOP_PLACE_HOLDER -> with the real data of:

<TMPL_LOOP NAME="$APP">
<TMPL_IF NAME="rif"><TMPL_VAR rif></TMPL_IF>
<TMPL_IF NAME="raw"><TMPL_VAR raw></TMPL_IF>
</TMPL_LOOP>

Where $APP is the main key of my hash of hash.

Example of the finished index.tmpl is below:

=-=-=-=-=-=-=-=-=-=-=-=
<TMPL_LOOP NAME="TMPL_LOOP">

<TMPL_LOOP NAME="application_1">
<TMPL_IF NAME="rif"><TMPL_VAR rif></TMPL_IF>
<TMPL_IF NAME="raw"><TMPL_VAR raw></TMPL_IF>
</TMPL_LOOP>


<TMPL_LOOP NAME="application_2">
<TMPL_IF NAME="rif"><TMPL_VAR rif></TMPL_IF>
<TMPL_IF NAME="raw"><TMPL_VAR raw></TMPL_IF>
</TMPL_LOOP>


<TMPL_LOOP NAME="application_3">
<TMPL_IF NAME="rif"><TMPL_VAR rif></TMPL_IF>
<TMPL_IF NAME="raw"><TMPL_VAR raw></TMPL_IF>
</TMPL_LOOP>


<TMPL_LOOP NAME="application_4">
<TMPL_IF NAME="rif"><TMPL_VAR rif></TMPL_IF>
<TMPL_IF NAME="raw"><TMPL_VAR raw></TMPL_IF>
</TMPL_LOOP>

<!- TMPL_LOOP_PLACE_HOLDER ->

</TMPL_LOOP>
=-=-=-=-=-=-=-=-=-=-=-=

-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642

_______________________________________________
Html-template-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/html-template-users