Fixed bug:Writes new pub_ids instead of legacy pub_ids.

kimrutherford · Apr 15, 2011 · 62e172a · 62e172a
1 parent 9bb9c41
commit 62e172a
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lib/Modware/Export/Command/dictygaf.pm b/lib/Modware/Export/Command/dictygaf.pm
@@ -143,8 +143,7 @@ sub get_provenance {
     my ( $self, $row ) = @_;
     my $pub = $row->pub->uniquename;
     if ( $pub =~ /^PUB/ ) {
-        $pub =~ s/^PUB//;
-        return 'dictyBase_REF:' . $pub;
+        return 'dictyBase_REF:' . $row->pub_id;
     }
     return $self->pubmed_namespace . ':' . $pub;
 }