Browse files

Update for new input field names

  • Loading branch information...
1 parent 784753d commit 57db08a81863cedf8fad8ae6ab497e6a35ce56e9 Ray Miller committed May 30, 2012
Showing with 4 additions and 4 deletions.
  1. +4 −4 lib/LIMS2/Task/YAMLDataLoader/LoadDesigns.pm
View
8 lib/LIMS2/Task/YAMLDataLoader/LoadDesigns.pm
@@ -23,20 +23,20 @@ override create => sub {
override record_key => sub {
my ( $self, $datum ) = @_;
- return $datum->{design_id} || '<undef>';
+ return $datum->{id} || '<undef>';
};
override wanted => sub {
my ( $self, $datum ) = @_;
unless ( defined $datum->{phase} ) {
- $self->log->warn( "Skipping design $datum->{design_id} - no phase" );
+ $self->log->warn( "Skipping design $datum->{id} - no phase" );
return 0;
}
for my $primer ( @{ $datum->{genotyping_primers} || [] } ) {
- unless ( defined $primer->{genotyping_primer_seq} ) {
- $self->log->warn( "Skipping design $datum->{design_id} - no seq for primer $primer->{genotyping_primer_type}" );
+ unless ( defined $primer->{seq} ) {
+ $self->log->warn( "Skipping design $datum->{id} - no seq for primer $primer->{type}" );
return 0;
}
}

0 comments on commit 57db08a

Please sign in to comment.