[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Thu Jul 10 20:43:09 UTC 2003


mwilkinson
Thu Jul 10 16:43:09 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv6261/MOBY/Client

Modified Files:
	OntologyServer.pm 
Log Message:
All sorts of changes to make the LSID vs. common name flexibility bulletproof (so long as you are working within a moby: namespace).

moby-live/Perl/MOBY/Client OntologyServer.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm	2003/07/10 20:07:09	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm	2003/07/10 20:43:09	1.3
@@ -134,6 +134,7 @@
     my ($self, %args) = @_;
     
     my $term = $args{'term'};    
+    $term =~ s/^moby://;   # if the term is namespaced, then remove that
     my $ua = LWP::UserAgent->new;
     my $req = HTTP::Request->new(POST => $self->host);
     $req->content("objectExists=$term");
@@ -155,6 +156,7 @@
     my ($self, %args) = @_;
     
     my $term = $args{'term'};    
+    $term =~ s/^moby://;   # if the term is namespaced, then remove that
     my $ua = LWP::UserAgent->new;
     my $req = HTTP::Request->new(POST => $self->host);
     $req->content("serviceExists=$term");
@@ -175,6 +177,7 @@
     my ($self, %args) = @_;
     
     my $term = $args{'term'};    
+    $term =~ s/^moby://;   # if the term is namespaced, then remove that
     my $ua = LWP::UserAgent->new;
     my $req = HTTP::Request->new(POST => $self->host);
     $req->content("namespaceExists=$term");
@@ -194,7 +197,8 @@
 sub relationshipsExists{
     my ($self, %args) = @_;
     
-    my $term = $args{'term'};    
+    my $term = $args{'term'};
+    $term =~ s/^moby://;   # if the term is namespaced, then remove that
     my $ua = LWP::UserAgent->new;
     my $req = HTTP::Request->new(POST => $self->host);
     $req->content("relationshipExists=$term");




More information about the MOBY-guts mailing list