perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Gavin Carr <ga...@openfusion.com.au>
Subject Re: Newbie issue
Date Fri, 10 Sep 2004 01:37:24 GMT
Hi Keven,

On Thu, Sep 09, 2004 at 07:16:45PM -0400, Keven Murphy wrote:
> I cannot figure out why the below html source page is hosed up. Why is
> embperl not putting the body (the frist part, the forms) between the
> <body> </body> lines. My code is below:

It's because you're printing - in general, you don't want to that with
Embperl. This:

> [-
> $req->{query} = $req->{dbh}->prepare($qry) or die "Cound not Execute:
> $DB::errstr";
> $req->{query}->execute();
> 
> 
> 
> print start_form;
> #print "<HR>";
> 
> print "<H1>Systems Check</H1>";
> print submit;
> 
> 
> 
> print "<TABLE WIDTH=\"50%\">";
> print "<TR>";
> print "<TH ALIGN=\"CENTER\">Select<\/TH>";
> print "<TH ALIGN=\"LEFT\">ID<\/TH>";
> print "<TH ALIGN=\"LEFT\">Report Name<\/TH>";
> print "<TH ALIGN=\"LEFT\">Loc<\/TH>";
> print "<TH ALIGN=\"LEFT\">Date and Time<\/TH>";
> 
> while ( @rows = $req->{query}->fetchrow) {
>     print "<TR>";
>     print "<TD ALIGN=\"CENTER\"><INPUT TYPE=\"radio\" NAME=\"repid\"
> VALUE=\"$rows[0]\"><\/TD>";
>     for ($num = 0; $num < 4; $num++) {
>        print "<TD ALIGN=\"LEFT\">$rows[$num]<\/TD>";
>     }
>     print "<\/TR>";
> }
> print "<\/TABLE>";
> 
> print end_form;
> -]

should be more like:

[-
$req->{query} = $req->{dbh}->prepare($qry) or die "Cound not Execute: $DB::errstr";
$req->{query}->execute();
-]
[+ start_form +]
<H1>Systems Check</H1>
[+ submit +]
<TABLE WIDTH="50%">
<TR>
<TH ALIGN="CENTER">Select</TH>
<TH ALIGN="LEFT">ID</TH>
<TH ALIGN="LEFT">Report Name</TH>
<TH ALIGN="LEFT">Loc</TH>
<TH ALIGN="LEFT">Date and Time</TH>
</TR>
[$ while ( @rows = $req->{query}->fetchrow) $]
<TR>
<TD ALIGN="CENTER"><INPUT TYPE="radio" NAME="repid"> VALUE="[+ $rows[0] +]"></TD>
[$   foreach ($num = 0; $num < 4; $num++) $]
<TD ALIGN="LEFT">[+ $rows[$num] +]</TD>
[$   endforeach $]
</TR>
[$ endwhile $]
</TABLE>
[+ end_form +]


or something like that. :-)

Cheers,
Gavin


---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message