[Bioperl-guts-l] [14815] bioperl-live/trunk/Bio/SeqIO/genbank.pm: add PROJECT support ( bug 2569)

[Christopher John Fields]

Revision: 14815
Author:   cjfields
Date:     2008-08-21 09:37:50 -0400 (Thu, 21 Aug 2008)

Log Message:
-----------
add PROJECT support (bug 2569)

Modified Paths:
--------------
    bioperl-live/trunk/Bio/SeqIO/genbank.pm

Modified: bioperl-live/trunk/Bio/SeqIO/genbank.pm
===================================================================
--- bioperl-live/trunk/Bio/SeqIO/genbank.pm	2008-08-20 23:02:12 UTC (rev 14814)
+++ bioperl-live/trunk/Bio/SeqIO/genbank.pm	2008-08-21 13:37:50 UTC (rev 14815)
@@ -423,6 +423,13 @@
 		}
 		next;
 	    }
+		# Project
+		elsif (/^PROJECT\s+(\S.*)/) {
+			if ($annotation) {
+				my $project = new Bio::Annotation::SimpleValue->new(-value => $1);
+				$annotation->add_Annotation('project',$project);
+			}
+		}
 	    # Comments
 	    elsif (/^COMMENT\s+(\S.*)/) {
 		if($annotation) {