RE: need help with start_table

[Moon, John]

One way would be :

my $table ='';

while(my @row=$sth->fetchrow_array){
        print $cgi->Tr({-align => 'left', -valign => 'middle'},
                        [$cgi->td({}, [@row]) ] );
  }
print $cgi->table({-border => '1'}, $table);


-----Original Message-----
From: Tina Messmann [mailto:[EMAIL PROTECTED]]
Sent: July 18, 2001 12:52
To: [EMAIL PROTECTED]
Subject: need help with start_table


Hi All,
probably only a silly fault from a beginner, but i am stuck.
i am trying to get the following snippet to work:

$cgi->start_table({-border => '1'});
  while(my @row=$sth->fetchrow_array){
        print $cgi->Tr({-align => 'left', -valign => 'middle'},
         [$cgi->td({}, [@row]) ] );
  }
  print $cgi->end_table;

The generated page doesn't display the  table itself, the content of the 
table is displayd in a awful way.
Here is the generated HTML-Code:

<TR VALIGN="middle" ALIGN="left"><TD>1</TD> <TD>3</TD> <TD>dummy1</TD></TR>
<TR VALIGN="middle" ALIGN="left"><TD>2</TD> <TD>5</TD> <TD>dummy2</TD></TR>
<TR VALIGN="middle" ALIGN="left"><TD>3</TD> <TD>7</TD> <TD>dummy3</TD></TR>
<TR VALIGN="middle" ALIGN="left"><TD>4</TD> <TD>8</TD> <TD>dummy4</TD></TR>
<TR VALIGN="middle" ALIGN="left"><TD>5</TD> <TD>8</TD> <TD>dummy5</TD></TR>
</TABLE></tr>

I am missing the initial <TABLE> Tag, where is it? Why is it not 
generated? What am i doing wrong?

Thanks in advance
Tina


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]