Skip to content
Snippets Groups Projects
Commit f91f1fc6 authored by Andreas Kusalananda Kähäri's avatar Andreas Kusalananda Kähäri
Browse files

Back out last commit.

parent 60567b67
No related branches found
No related tags found
No related merge requests found
......@@ -733,34 +733,28 @@ sub create_summary_email {
print $fh "\n";
# EG genes_lost.txt file may not exist if species is new
if ( $self->file_exists( 'genes_lost.txt', 'debug' ) ) {
#
# clicklist of first 10 deleted genes
#
print $fh qq(\nFirst 10 deleted known genes:\n);
print $fh qq(=============================\n\n);
my $in_fh = $self->get_filehandle( 'genes_lost.txt', 'debug', '<' );
my $prefix = $self->conf->param('urlprefix');
my $i;
while (<$in_fh>) {
last if ( ++$i > 10 );
#
# clicklist of first 10 deleted genes
#
print $fh qq(\nFirst 10 deleted known genes:\n);
print $fh qq(=============================\n\n);
chomp;
my ( $stable_id, $type ) = split(/\s+/);
my $in_fh = $self->get_filehandle( 'genes_lost.txt', 'debug', '<' );
my $prefix = $self->conf->param('urlprefix');
my $i;
next unless ( $type eq 'known' );
while (<$in_fh>) {
last if ( ++$i > 10 );
print $fh sprintf( $fmt2, $stable_id, "${prefix}$stable_id" );
}
chomp;
my ( $stable_id, $type ) = split(/\s+/);
close($in_fh);
next unless ( $type eq 'known' );
} ## end if ( $self->file_exists...)
print $fh sprintf( $fmt2, $stable_id, "${prefix}$stable_id" );
}
close($in_fh);
close($fh);
}
......
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