On Fri, 2009-07-10 at 15:19 -0600, Scott wrote:
> Hello,
> I almost have this but cannot figure out why its not showing the data,
> right now it knows how many entries im putting in because it spits out
> that number of rows.
>
> I am getting my data from dbd::mysql, it works because i have tested in
> in a normal test.pl and it prints out the data but not using an array or
> hash.
> I tried to follow this example:
> http://search.cpan.org/~samtregar/HTML-Template-2.9/Template.pm#TMPL_LOOP
> I think its the second loop example on there.
>
> Here is my code on the perl side:
>
> my @wall_data = ();
> while(my $wallref = $wallpostquery->fetchrow_hashref())
> {
> my %walldata;
>
> $walldata{WALL_SUBJECT} = $wallref{'SUBJECT'};
> $walldata{WALL_DATE} = $wallref{'DATE'};
> $walldata{WALL_POSTID} = $wallref{'POSTID'};
> $walldata{WALL_MESSAGE} = $wallref{'MESSAGE'};
>
> push (@wall_data, \%walldata);
# The above pushes the address of hash on the array, over and over
again.
push @wall_data, { %walldata };
# This code pushes an anonymous hash containing the data on to the
array.
> }
> $template->param(WALL_LOOP => \...@wall_data);
>
> Web side:
>
> <TMPL_LOOP NAME="WALL_LOOP">
> <h3><a href="#"><TMPL_VAR NAME='WALL_SUBJECT'> - Posted by
> <TMPL_VAR
> NAME="WALL_POSTID"> on <TMPL_VAR NAME="WALL_DATE"></a></h3>
> <div id="wallmessage">
> <p><TMPL_VAR NAME="WALL_MESSAGE"></p>
> </div>
> </TMPL_LOOP>
>
> thanks for those that help, sometimes handling data types is hard for me.
>
> -Scott
>
>
--
Just my 0.00000002 million dollars worth,
Shawn
Programming is as much about organization and communication
as it is about coding.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
