<?xml version="1.0" encoding="windows-1252"?>
<node id="946511" title="jms53's scratchpad" created="2012-01-05 19:48:12" updated="2012-01-05 19:48:12">
<type id="182711">
scratchpad</type>
<author id="946510">
jms53</author>
<data>
<field name="doctext">
HTML::Template:&lt;br/&gt;
&lt;code&gt;
  &lt;h1&gt;TRANSACTIONS&lt;/h1&gt;
    &lt;TMPL_LOOP NAME="TRANSACTIONS"&gt;
     &lt;TABLE BORDER="1"&gt;
     &lt;TR&gt;&lt;TD&gt;TRansaction&lt;/TD&gt;&lt;TD&gt;DATE&lt;/TD&gt;&lt;TD&gt;Type&lt;/TD&gt;&lt;TD&gt;Amount&lt;/TD&gt;&lt;TD&gt;Ending Balance&lt;/TD&gt;&lt;/TR&gt;
     &lt;TR&gt;&lt;TD&gt;Transaction:&lt;/TD&gt;
     	&lt;TD&gt;&lt;TMPL_VAR NAME="Date"&gt;&lt;/TD&gt;
     	&lt;TD&gt;&lt;TMPL_VAR NAME="Type"&gt;&lt;/TD&gt;
     	&lt;TD&gt;&lt;TMPL_VAR NAME="Amount"&gt;&lt;/TD&gt;
     	&lt;TD&gt;&lt;TMPL_VAR NAME="Ending_Balance"&gt;&lt;/TD&gt;&lt;/TR&gt;
    &lt;/TABLE&gt;
   &lt;/TMPL_LOOP&gt;
&lt;/code&gt;
How I'm obtaining the data to fill the table:&lt;br/&gt;
&lt;code&gt;
my @LINES = MyDB-&gt;get_transactions; #This was tested, it returns the correct information
my %split;

for (@LINES)
{
	my @row = split;
	$split{$_} = @row;

}
$template-&gt;param(TRANSACTIONS =&gt; \%split);
&lt;/code&gt;

</field>
</data>
</node>
