[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 17 13:43:58 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv23197/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.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm	2004/06/16 01:15:30	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm	2004/08/17 17:43:58	1.3
@@ -156,7 +156,7 @@
                 default     => [undef,          'read/write'      ],
                 max         => [undef,          'read/write'      ],
                 min         => [undef,          'read/write'      ],
-                enum        => [[],          'read/write'      ],
+                enum        => [undef,          'read/write'      ],
                 value       => [undef,      'read/write'],
                 
 				);
@@ -185,6 +185,7 @@
 
     sub addEnum {
         my ($self, $enum) = @_;
+        $self->{enum} = [] unless $self->{enum};
         return $self->{enum} unless defined($enum);
         push @{$self->{enum}}, $enum;
         return $self->{enum};