[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 17 13:48:10 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv23269/MOBY/Client

Modified Files:
	SecondaryArticle.pm 
Log Message:
aha.  My enum list was a class variable rather than an instance variable.  Should be fixed now.

moby-live/Perl/MOBY/Client SecondaryArticle.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm	2004/08/17 17:43:58	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm	2004/08/17 17:48:10	1.4
@@ -182,7 +182,6 @@
 	keys %_attr_data;
     }
 
-
     sub addEnum {
         my ($self, $enum) = @_;
         $self->{enum} = [] unless $self->{enum};
@@ -211,7 +210,8 @@
     else {
 		$self->{$attrname} = $self->_default_for($attrname) }
     }
-
+    $self->{enum} = [] unless $self->enum;
+    
     if ($self->XML && ref($self->XML)){
         return 0;
     } elsif ($self->XML_DOM && !(ref($self->XML_DOM) =~ /dom/i)){