[Bioperl-guts-l] bioperl commit

[Hilmar Lapp]

lapp
Sun May  2 20:27:37 EDT 2004
Update of /home/repository/bioperl/bioperl-live/Bio/Annotation
In directory pub.open-bio.org:/tmp/cvs-serv9331/Bio/Annotation

Modified Files:
	DBLink.pm 
Log Message:
Included version and possibly optional ID into the as_text() method.

bioperl-live/Bio/Annotation DBLink.pm,1.14,1.15
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Annotation/DBLink.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- /home/repository/bioperl/bioperl-live/Bio/Annotation/DBLink.pm	2003/12/22 08:50:00	1.14
+++ /home/repository/bioperl/bioperl-live/Bio/Annotation/DBLink.pm	2004/05/03 00:27:37	1.15
@@ -111,7 +111,10 @@
 sub as_text{
    my ($self) = @_;
 
-   return "Direct database link to ".$self->primary_id." in database ".$self->database;
+   return "Direct database link to ".$self->primary_id
+       .($self->version ? ".".$self->version : "")
+       .($self->optional_id ? " (".$self->optional_id.")" : "")
+       ." in database ".$self->database;
 }
 
 =head2 hash_tree