[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Aug 18 19:06:03 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv29714/MOBY/Client

Modified Files:
	ServiceInstance.pm 
Log Message:
RDF is still not quite right.  Seems to sometimes generate an extra empty input.  This might fix it.  Also updated test suite so that all tests pass with new tighter rules on ontology registrations

moby-live/Perl/MOBY/Client ServiceInstance.pm,1.11,1.12
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2004/04/14 19:56:59	1.11
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2004/08/18 23:06:03	1.12
@@ -184,9 +184,9 @@
                       authority     => [undef,      'read/write'],
                       name          => [undef,      'read/write'],
                       type          => [undef,      'read/write'],
-					  input			=> [[], 		'read/write'], # listref of Simple and Collection articles
-                      output        => [[],			'read/write'], # listref of Simple and Collection articles
-                      secondary     => [[],			'read/write'], # listref of SecondaryArticles
+					  input			=> [undef, 		'read/write'], # listref of Simple and Collection articles
+                      output        => [undef,			'read/write'], # listref of Simple and Collection articles
+                      secondary     => [undef,			'read/write'], # listref of SecondaryArticles
                       category      => [undef,      'read/write'],
                       description   => [undef,      'read/write'],
 					  registry		=> ['MOBY_Central', 		'read/write'],
@@ -228,7 +228,7 @@
 	my $proxy;
 	
     my $self = bless {}, $class;
-    	
+    
     foreach my $attrname ( $self->_standard_keys ) {
     	if (exists $args{$attrname}) {
 		$self->{$attrname} = $args{$attrname} }
@@ -238,6 +238,10 @@
 		$self->{$attrname} = $self->_default_for($attrname) }
     }
 
+    $self->input([]) unless $self->input;
+    $self->output([]) unless $self->output;
+    $self->secondary([]) unless $self->secondary;
+    
     return $self;
 
 }