Commit da503522 authored by Ian Longden's avatar Ian Longden
Browse files

strand now used properly

parent 1d8b2da9
......@@ -203,7 +203,6 @@ sub fetch_by_region {
my @bind_vals;
my $key;
print STDERR "slcie frtach by region $seq_region_name\n";
my $test = $seq_region_name;
$test =~ s/\d+//g;
if(length($test) == 0 and $seq_region_name > 1000){
......@@ -456,7 +455,7 @@ sub fetch_by_seq_region_id {
-SEQ_REGION_LENGTH => $length,
-START => $start || 1,
-END => $end || $length,
-STRAND => 1 || $strand,
-STRAND => $strand || 1,
-ADAPTOR => $self);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment