mason/breeders_toolbox/genotyping_trials/layout_as_table.mas

   1
   2 <%args>
   3 $design
   4 </%args>
   5
   6 % use Data::Dumper;
   7 % ##print Dumper($design);
   8 <table border='1'>
   9 <tr>
  10 <td>&nbsp;</td>
  11 % foreach my $col (1..12) {
  12   <td><% $col %></td>
  13 % }
  14 </tr>
  15 % foreach my $row ("A".."H") {
  16   <tr><td><% $row %></td>
  17 %   foreach my $col (1..12) {
  18 %      $col = sprintf "%02d", $col;
  19     <td>
  20       <% $design->{$row.$col}->{accession_name} %>
  21     </td>
  22 %   }
  23    </td>
  24 % }
  25 </table>