[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	ServiceInstanceRDF.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/RDF ServiceInstanceRDF.pm,1.9,1.10
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/ServiceInstanceRDF.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/ServiceInstanceRDF.pm	2004/08/17 23:24:32	1.9
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/ServiceInstanceRDF.pm	2004/08/18 23:06:03	1.10
@@ -96,24 +96,24 @@
     _addClassLiteral($model, DC, $subject, 'identifier',  $service->URL); # dublin core identifier (this is a stretch!)
     _addResource($model, MP, 'performs_task', $subject, SRV, $service->type); # dublin core title
 
-    my $inputs = $service->input;
-    push @$inputs, @{$service->secondary};
+    my @inputs = @{$service->input};
+    push @inputs, @{$service->secondary};
     
-    my $outputs = $service->output;
+    my @outputs = @{$service->output};
 
 
     my $InputArticles = MOBY::RDF::InOutArticlesRDF->new(
                                                          model => $model,
                                                          type => 'consumes',
                                                          subject => $subject,
-                                                         articles => $inputs,
+                                                         articles => \@inputs,
                                                         );
 
     my $OutputArticles = MOBY::RDF::InOutArticlesRDF->new(
                                                          model => $model,
                                                          type => 'produces',
                                                          subject => $subject,
-                                                         articles => $outputs,
+                                                         articles => \@outputs,
                                                         );
 
 }