Commit f91f1fc6 authored by Andreas Kusalananda Kähäri's avatar Andreas Kusalananda Kähäri
Browse files

Back out last commit.

parent 60567b67
......@@ -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);
}
......
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