# HG changeset patch
# User elixir-it
# Date 1613467590 0
# Node ID 2a5485758ae707414d9ab72f7a63786171037ffe
# Parent  3f6d4e4340e89d6af57a9cb4393c7dbf1e7eb6d5
Uploaded

diff -r 3f6d4e4340e8 -r 2a5485758ae7 multifasta/align.pl
--- a/multifasta/align.pl	Fri Oct 30 13:32:35 2020 +0000
+++ b/multifasta/align.pl	Tue Feb 16 09:26:30 2021 +0000
@@ -167,6 +167,11 @@
 			my $id=$1;
 			$id=(split(/\s+/,$id))[0];
 			$id=~s/\-//g;
+			if ($id=~/\|/)
+                        {
+                                $id=(split(/\|/,$id))[1];
+                        }
+                        $id=~s/\//\_/g;
 			open(OUT,">$tgdir/$id.fasta");
 			print OUT ">$id\n";
 			push(@list_files,"$tgdir/$id.fasta");