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' => [EMAIL PROTECTED], 'ROWS' => [EMAIL PROTECTED]);
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: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Behalf Of
> Chris
> Sent: Monday, November 17, 2003 1:28 PM
> To: Kenneth Gonsalves; [EMAIL PROTECTED]
> 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 => [EMAIL PROTECTED], INNERROWS => [EMAIL PROTECTED]);
>
> 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: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED] Behalf Of
> > Kenneth Gonsalves
> > Sent: Sunday, November 16, 2003 2:38 AM
> > To: Chris; [EMAIL PROTECTED]
> > 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
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/html-template-users
>
smime.p7s
Description: S/MIME cryptographic signature
