Skip to content
Browse files

The SEP wells we are interested in are in the intersection of first a…

…llele descendants and second allele descendants
  • Loading branch information...
1 parent b34a0f2 commit d89513d2101eb87f53b4f23f1484d7fb0dcaf8fc Ray Miller committed Jul 30, 2012
Showing with 9 additions and 1 deletion.
  1. +9 −1 lib/LIMS2/AlleleRequest/DoubleTargeted.pm
View
10 lib/LIMS2/AlleleRequest/DoubleTargeted.pm
@@ -75,7 +75,15 @@ sub _build_first_electroporation_wells {
sub _build_second_electroporation_wells {
my $self = shift;
- return [ $self->electroporation_wells( $self->second_allele_vector_wells, 'SEP' ) ];
+
+ # The SEP wells we are interested in are in the intersection of
+ # first allele descendants and second allele descendants
+
+ my %is_first = map { $_->id => 1 } $self->electroporation_wells( $self->first_allele_vector_wells, 'SEP' );
+
+ my @intersection = grep { $is_first{ $_->id } } $self->electroporation_wells( $self->second_allele_vector_wells, 'SEP' );
+
+ return \@intersection;
}
__PACKAGE__->meta->make_immutable;

0 comments on commit d89513d

Please sign in to comment.
Something went wrong with that request. Please try again.