Lines 601-618
sub header_cell_loop {
Link Here
|
601 |
return \@headers; |
601 |
return \@headers; |
602 |
} |
602 |
} |
603 |
|
603 |
|
604 |
# pass $sth, get back an array of names for the column headers |
|
|
605 |
sub header_cell_values { |
606 |
my $sth = shift or return (); |
607 |
return @{$sth->{NAME}}; |
608 |
} |
609 |
|
610 |
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers |
611 |
sub header_cell_loop { |
612 |
my @headers = map { +{ cell => $_ } } header_cell_values (shift); |
613 |
return \@headers; |
614 |
} |
615 |
|
616 |
foreach (1..6) { |
604 |
foreach (1..6) { |
617 |
$template->param('build' . $_) and $template->param(buildx => $_) and last; |
605 |
$template->param('build' . $_) and $template->param(buildx => $_) and last; |
618 |
} |
606 |
} |
619 |
- |
|
|