Re^5: CGI table problems

I see no problem for the same argument to apply (replace the td-content with a table of rows of one td each):

$data .= $cgi->td({-valign=>'top'},
                  $cgi->table( map{ $cgi->Tr($cgi->td($_) ) } @{render
+PartReadView($cgi, $lca_dbm, $am)} );
[download]

Comment on Re^5: CGI table problems Download Code

Replies are listed 'Best First'.

Re^6: CGI table problems
by rashley (Scribe) on Nov 12, 2006 at 16:26 UTC

#massage multi-values for formatting                             
if ( ref $encodedvalue eq 'ARRAY' )                              
{                                                                
                                                                
    my $listtable .= $cgi->start_table({-border=>0});           
                                                                
    for ( my $i=0; $i<scalar( @$encodedvalue) ; $i++ )          
    {                                                           
        $listtable .= $cgi->Tr({},                             
                    $cgi->th(@$encodedvalue[$i])            
                    );                                      
                                                               
    }                                                           
                                                                
    $listtable .= $cgi->end_table();                            
                                                                
    $data .= Tr({},                                             
                $cgi->td({-class=>'label'},                      
                         $attrHash->{ATTRNAME}),                 
                $cgi->td({-class=>'value'},                      
                         ($listtable || $cgi->p('&nbsp;'))));    
                                                                
}                                                                
                                                                
                                                                 
else {                                                           
    $data .= Tr({},                                              
                $cgi->td({-class=>'label'},                      
                         $attrHash->{ATTRNAME}),                 
                $cgi->td({-class=>'value'},                      
                         ($encodedvalue || $cgi->p('&nbsp;')))); 
                                                                 
}}
[download]

[reply]
[d/l]


XP is just a number
	PerlMonks