[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jul 18 18:32:20 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv17143/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
fixing brackets and semicolons

moby-live/Perl/MOBY OntologyServer.pm,1.51,1.52
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -r1.51 -r1.52
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/07/15 16:40:45	1.51
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/07/18 22:32:20	1.52
@@ -684,9 +684,9 @@
 
 	my $insertid = $adaptor->insert_service({service_type => $args{'node'}},
 						{service_lsid => $LSID},
-						{description => $args{'description'},
-						{authority => $args{'authority'},
-						{contact_email => $args{'contact_email'});
+						{description => $args{'description'}},
+						{authority => $args{'authority'}},
+						{contact_email => $args{'contact_email'}});
 
 	unless ( $insertid ) {
 		return ( 0, "Service creation failed for unknown reasons", '' );
@@ -1070,7 +1070,7 @@
 	
 	return $term if $term =~ /urn\:lsid/;
 
-	my $result = $adaptor->query_relationship({relationship_type => $term}, 'and' {ontology => $ontology});
+	my $result = $adaptor->query_relationship({relationship_type => $term}, 'and', {ontology => $ontology});
 	my $row = shift(@$result);
 	my $id = $row->{relationship_lsid};