RE: [htmltmpl] MySQL -> HTML::Template - WITH source

[Chris <chr...@co...>]

Hey,

Here is a "working" example of what im trying to do:

Perl Code:

#!/usr/bin/perl
use DBI;
use CGI;
use HTML::Template;

my $dbsource = "DBI:mysql:dbname=msearch;host=localhost";
my $dbuser = "chrisp";
my $dbpasswd = "cockfuck";

my $template = HTML::Template->new(filename  => 'index.tmpl');

my $bychar = "c";

my $dbh = DBI->connect($dbsource, $dbuser, $dbpasswd);
my $query = "SELECT DISTINCT model_name as model_name, model_thumb FROM
models WHERE model_firstchar='$bychar' GROUP BY model_name";
my $sth = $dbh->prepare($query);
$sth->execute() || die &error($DBI::errstr);

my $dbh2 = DBI->connect($dbsource, $dbuser, $dbpasswd);
my $query2 = "SELECT model_url FROM models where model_name =
'Christine'";
my $sth2 = $dbh2->prepare($query2);

while (my $data = $sth->fetchrow_hashref())
{
        push (@loopdata, $data);

        $sth2->execute() || die &error($DBI::errstr);

        while (my $data2 = $sth2->fetchrow_hashref())
        {
                push(@loopdata2, $data2);
        }
}


$template->param('URLLOOP' => \@loopdata2, 'ROWS' => \@loopdata);

print $template->output;


My HTML Template - WORKING BUT UNWANTED RESULTS:
<TMPL_LOOP ROWS>
<TMPL_VAR NAME=MODEL_NAME>
<TMPL_VAR NAME=MODEL_THUMB>
Can be seen at:
</TMPL_LOOP>
<TMPL_LOOP URLLOOP>
<TMPL_VAR NAME=MODEL_URL>
</TMPL_LOOP>

My HTML Template - THAT I WANT TO WORK:
<TMPL_LOOP ROWS>
<TMPL_VAR NAME=MODEL_NAME>
<TMPL_VAR NAME=MODEL_THUMB>
Can be seen at:
<TMPL_LOOP URLLOOP>
<TMPL_VAR NAME=MODEL_URL>
</TMPL_LOOP>
</TMPL_LOOP>
<br>


It seems once i put the loop within the loop, I get the following error:

HTML::Template : Attempt to set nonexistent parameter 'urlloop' - this
parameter name doesn't match any declarations in the template file :
(die_on_bad_params => 1) at test.pl line 36

Im really not sure what to do here

Thanks!


> -----Original Message-----
> From: htm...@li...
> [mailto:htm...@li...]On Behalf Of
> Chris
> Sent: Monday, November 17, 2003 1:28 PM
> To: Kenneth Gonsalves; htm...@li...
> Subject: RE: [htmltmpl] MySQL -> HTML::Template
>
>
> Thanks for the link, it helped me very much!
>
> Now once again im stuck...
>
> How do I do nested loops??
>
> Using the perlmonks example:
>
> <TMPL_LOOP ROWS>
>     <tr bgcolor="#<TMPL_IF ODD>666666<TMPL_ELSE>EEEEEE</TMPL_IF>">
>         <td><TMPL_VAR NAME=ID></td>
>         <td><TMPL_VAR NAME=NAME></td>
>         <td><TMPL_VAR NAME=PRICE></td>
>     </tr>
> </TMPL_LOOP>
>
> If I wanted to do say:
>
> <TMPL_LOOP ROWS>
>     <tr bgcolor="#<TMPL_IF ODD>666666<TMPL_ELSE>EEEEEE</TMPL_IF>">
>         <td><TMPL_VAR NAME=ID></td>
> 			<TMPL_LOOP INNERROWS>
> 				<TMPL_VAR NAME=SUBID>
> 			</TMPL_LOOP>
>         <td><TMPL_VAR NAME=NAME></td>
>         <td><TMPL_VAR NAME=PRICE></td>
>     </tr>
> </TMPL_LOOP>
>
>
> For the life of me, I can't figure out how to do it...
>
> I have repeatedly destroyed my own code, so I will use the perlmonks
> code..
>
> This is what I have been trying, is it even *close* to right???
>
> while ($sth->fetch) {
>     my $real_price = $price < $saleprice ? $price : $saleprice;
>     $name =~ s/\b(\w)(\w+)\b/\U$1\L$2/g;
>     push @rows, { ID => lc($id), PRICE => $real_price, NAME => $name,
> +ODD => $i++ %2 };
>     $sum += $real_price;
> 		while ($sth2->fetch) {
> 			push @innerrows, { SUBID => $sub_id };
> 		}
> }
>
> $sth->finish;
> $sth2->finish;
>
> my $t = HTML::Template->new(filename => 'db2.tmpl', @tmpl_opts);
> $t->param(ROWS => \@rows, INNERROWS => \@innerrows);
>
> I know this isn't my code, but like I said, iv destroyed mine over and
> over.. But this gives you the idea of what iv been trying, each time
with
> failure.
>
> Any help is very much appreciated as I am very frustrated :)
>
> Thx!
> -c
>
>
> > -----Original Message-----
> > From: htm...@li...
> > [mailto:htm...@li...]On Behalf Of
> > Kenneth Gonsalves
> > Sent: Sunday, November 16, 2003 2:38 AM
> > To: Chris; htm...@li...
> > Subject: Re: [htmltmpl] MySQL -> HTML::Template
> >
> >
> > On Sunday 16 November 2003 12:17, Chris wrote:
> > > Hey all,
> > >
> > > 	Im new to HTML:Template, and it looks pretty nice, but I
> > have not seen
> > > anything related to using MySQL output. Basically all I really
> > want to do
> > > is be able to give my web designers tags like: %%SEARCH_RESULTS%%
> which
> > > when the page is parsed by my cgi using HTML:Template will
> > recieve my sql
> > > results. Is anybody doing this?
> > >
> > > Any pointers very much appreciated:)
> > > -c
> > there is a very nice tutorial on this in perlmonks.org
> > --
> > regards
> > kg
> >
> > http://www.ootygolfclub.org
> >
> >
> > -------------------------------------------------------
> > This SF. Net email is sponsored by: GoToMyPC
> > GoToMyPC is the fast, easy and secure way to access your computer from
> > any Web browser or wireless device. Click here to Try it Free!
> >
https://www.gotomypc.com/tr/OSDN/AW/Q4_2003/t/g22lp?Target=mm/g22lp.tmpl
> > _______________________________________________
> > Html-template-users mailing list
> > Htm...@li...
> > https://lists.sourceforge.net/lists/listinfo/html-template-users
>