mason/breeders_toolbox/display_crosses.mas

   1
   2 <%args>
   3 @crosses => ()
   4 </%args>
   5
   6 <& /util/import_javascript.mas, classes => [ ] &>
   7
   8 <script>
   9
  10
  11 </script>
  12
  13 <table>
  14 <%perl>
  15
  16   if (!@crosses) {
  17     print "<tr><td>No crosses available for your account.</td></tr>";
  18   }
  19
  20 foreach my $cross (@crosses) {
  21   print "<tr><td>".$cross->[0]."</td></tr>";
  22 }
  23 </%perl>
  24   </table>