sub get_variant_measurements {

  my $resultset = shift;

  my $variant_id = @_;

  my $variant_measurements
    = $resultset->search_related(
      'variant_measurements',
        {
        },
        {
          'order_by'      => ['variant_id','measurement_id']
        },
    );

  return $variant_measurements;
}

##</code><code>##

[% WHILE ( type_measurement = type_measurements.next ) %]
<tr>
[% WHILE (variant_measurement = variant_measurements.next) %]
  [% IF variant_measurement.measurement_id == type_measurement.measurement_id %]
    <td>
      <input type="text"
             size="3"
             name="measure-[% variant_measurement.variant_id %]-[% type_measurement.measurement.measurement %]"
             value="[% variant_measurement.value %]" />
    </td>
    [% END %]
[% END %]
</tr>
[% END %]