I've not had luck calling a while loop (or any loop, for that matter)
during the creation of a table - I did something like this - hope this
helps.
my $table_data = "";
while ( @columns = $cursor->fetchrow ) {
$table_data .= td([
'$columns[0]', '$columns[1]', '$columns[2]', '$columns[3]',
'$columns[4]', '$columns[5]', '$columns[6]', '$columns[7]',
'$columns[8]', '$columns[9]', '$columns[10]','$columns[11]',
'$columns[12]','$columns[13]','$columns[14]','$columns[15]',
'$columns[16]','$columns[17]','$columns[18]','$columns[19]',
'$columns[20]']);
}
print table({-border=>undef},
caption('Contacts'),
Tr({-align=>CENTER,-valign=>TOP},
[
th(['First Name','Last Name','Title','Company','Work Ph.','Home
Ph.',
'Fax Number','Other Ph.','Email Addr.','City','Prov.','Postal',
'Country','Custom 1','Custom 2','Custom 3','Custome 4','Notes',
'Category']),
$table_data,
]
)
);
====================
Brian Arnold
[EMAIL PROTECTED]
-----Original Message-----
From: Scott Taylor [mailto:[EMAIL PROTECTED]]
Sent: Thursday, October 18, 2001 12:52 PM
To: [EMAIL PROTECTED]
Subject: Elusive Syntax
Anyone know how I can do this? I can't seem to get past a syntax error
near the 'while'. (it worked up to the point I tried to put it into a
table, and the table works fine by itself)
use CGI qw/:standard *table start_ul/;
require DBI;
require HTTP::Date;
.....
print table({-border=>undef},
caption('Contacts'),
Tr({-align=>CENTER,-valign=>TOP},
[
th(['First Name','Last Name','Title','Company','Work Ph.','Home
Ph.',
'Fax Number','Other Ph.','Email Addr.','City','Prov.','Postal',
'Country','Custom 1','Custom 2','Custom 3','Custome 4','Notes',
'Category']),
while ( @columns = $cursor->fetchrow ) {
td([
'$columns[0]', '$columns[1]', '$columns[2]', '$columns[3]',
'$columns[4]', '$columns[5]', '$columns[6]', '$columns[7]',
'$columns[8]', '$columns[9]', '$columns[10]','$columns[11]',
'$columns[12]','$columns[13]','$columns[14]','$columns[15]',
'$columns[16]','$columns[17]','$columns[18]','$columns[19]',
'$columns[20]'])
}
]
)
);
--
Scott Taylor
Systems Administrator
DCT Chambers Trucking Ltd.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
