[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Sep 26 20:01:24 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv19693/MOBY/Client

Modified Files:
	OntologyServer.pm 
Log Message:
fixing ontology server relationshipExists call

moby-live/Perl/MOBY/Client OntologyServer.pm,1.13,1.14
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm	2005/09/26 23:19:33	1.13
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm	2005/09/27 00:01:24	1.14
@@ -192,10 +192,11 @@
 sub relationshipExists {
 	my ( $self, %args ) = @_;
 	my $term = $args{'term'};
+	my $ontology = $args{'ontology'};
 	$term =~ s/^moby://;    # if the term is namespaced, then remove that
 	my $ua = $self->getUserAgent;
 	my $req = HTTP::Request->new( POST => $self->host );
-	$req->content( "relationshipExists=$term" );
+	$req->content( "relationshipExists=$term&ontology=$ontology" );
 	my $res = $ua->request( $req );
 	if ( $res->is_success ) {
 		return split "\n", $res->content;