From 1231aeb26b913eec44d0f6cde23b629dae2eda3c Mon Sep 17 00:00:00 2001
From: Ian Longden <ianl@sanger.ac.uk>
Date: Wed, 13 Jul 2011 08:38:27 +0000
Subject: [PATCH] For unigene use the same acc and label to make sure only one
copy per gene, previously the acc was the uniprot accession
---
.../XrefParser/UniProtAltParser.pm | 26 +++++++++++++++++++
1 file changed, 26 insertions(+)
create mode 100644 misc-scripts/xref_mapping/XrefParser/UniProtAltParser.pm
diff --git a/misc-scripts/xref_mapping/XrefParser/UniProtAltParser.pm b/misc-scripts/xref_mapping/XrefParser/UniProtAltParser.pm
new file mode 100644
index 0000000000..ea3f34b17e
--- /dev/null
+++ b/misc-scripts/xref_mapping/XrefParser/UniProtAltParser.pm
@@ -0,0 +1,26 @@
+# See UniProtParser.pm for docs.
+
+package XrefParser::UniProtAltParser;
+
+use strict;
+use POSIX qw(strftime);
+use File::Basename;
+
+use base qw( XrefParser::BaseParser );
+use base qw( XrefParser::UniProtParser );
+use vars qw(@ISA);
+@ISA = qw(XrefParser::UniProtParser);
+my $verbose;
+
+
+
+sub get_name {
+ my $self = shift;
+ my $acc = shift;
+ my $label = shift;
+
+ return $label;
+}
+
+
+1;
--
GitLab