From 5393a615af38be11c9227a66dbaeb19b903bb97f Mon Sep 17 00:00:00 2001
From: Ian Longden <ianl@sanger.ac.uk>
Date: Mon, 22 Mar 2010 14:37:07 +0000
Subject: [PATCH] Do not allow the same transcript names to be used.
---
.../xref_mapping/XrefMapper/BasicMapper.pm | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm b/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
index ea00d26756..e3d9c21a55 100644
--- a/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
+++ b/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
@@ -1130,12 +1130,15 @@ FSQL
my $tran_name_ext = 201;
foreach my $tran (sort keys %no_vega){
my $id = $new_clone_name."-".$tran_name_ext;
- if(!defined($xref_added{$id.":".$clone_based_ensembl_tran_id})){
- $max_xref_id++;
- $ins_xref_sth->execute($max_xref_id, $clone_based_ensembl_tran_id, $id, $id, "via clonename");
- $xref_added{$id.":".$clone_based_ensembl_tran_id} = $max_xref_id;
- }
-
+ while(defined($xref_added{$id.":".$clone_based_ensembl_tran_id})){
+ $tran_name_ext++;
+ $id = $new_clone_name."-".$tran_name_ext;
+ }
+
+ $max_xref_id++;
+ $ins_xref_sth->execute($max_xref_id, $clone_based_ensembl_tran_id, $id, $id, "via clonename");
+ $xref_added{$id.":".$clone_based_ensembl_tran_id} = $max_xref_id;
+
$max_object_xref_id++;
$ins_object_xref_sth->execute($max_object_xref_id, $no_vega{$tran}, 'Transcript', $xref_added{$id.":".$clone_based_ensembl_tran_id}, undef);
$ins_dep_ix_sth->execute($max_object_xref_id, 100, 100);
--
GitLab