Here is where I gather the values and insert the array reference:
my $noteshandler = $dbh->prepare($notessql); $noteshandler->execute($id, $version); while ( my @note = $noteshandler->fetchrow_arrayref() ) { push ( @noteslist, $note[0]); } $attrHashListRef->[$index]->{VALUE} = \@noteslist;
Here is where I put my tables together:
###begin OUTER Table containing part list and selected part info $data .= $cgi->start_table({}); ###begin row in OUTER table. $data .= $cgi->start_Tr({}); ###Left most cell in OUTER table. Contains PartList. $data .= $cgi->td({-valign=>'top'}, renderPartListView($cgi)); ###begin Right cell in OUTER table. Contains Header and selected ###part info. $data .= $cgi->start_td({-valign=>'top' }); ###begin INNER table containing header and view $data .= $cgi->start_table({}); ###Top ROW on INNER table. Containing header $data .= $cgi->Tr({}, $cgi->td({}, pageHeader($cgi, $lca_dbm, $am))); ###begin bottom ROW on INNER table. Containing selected part $data .= $cgi->start_Tr({-width => 20, -style => 'white-space:wrap +'}); $data .= $cgi->td({-valign=>'top'}, renderPartReadView($cgi, $lca_dbm, $am) ###end bottom ROW on INNER table. Containing selected part $data .= $cgi->end_Tr({}); ###end INNER table containing header and view $data .= $cgi->end_table(); ###end Right cell in OUTER table. $data .= $cgi->end_td({}); ###end row in OUTER table. $data .= $cgi->end_Tr(); ###end OUTER Table containing part list and selected part info $data .= $cgi->end_table(); $logger->info("Exiting renderView"); return $data;
Like I said, not pretty.
In reply to Re^2: CGI table problems
by rashley
in thread CGI table problems
by rashley
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |