[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jun 10 19:01:26 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1891/Perl/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
discovered some errors in teh bootstrapping values for the database - I was writing LSID's as uri:... rather than urn:...  oops.  This is fixed, along with similar errors in the OntologyServer.

moby-live/Perl/MOBY OntologyServer.pm,1.14,1.15
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/06/10 22:30:11	1.14
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/06/10 23:01:26	1.15
@@ -301,7 +301,7 @@
     my $ont = $args{ontology};
     return (0, "requires both term and ontology arguments\n",'') unless (defined($term) && defined($ont));
     
-    unless ($term =~ /uri\:lsid/i){$term = "urn:lsid:biomoby.org:${ont}relation:$term"}
+    unless ($term =~ /urn\:lsid/i){$term = "urn:lsid:biomoby.org:${ont}relation:$term"}
     my $sth = $self->dbh->prepare("select relationship_lsid, relationship_type, description, authority, contact_email from relationship where relationship_lsid = ? and ontology=?");
     $sth->execute($term, $ont);
     my ($lsid, $type, $desc, $auth, $email) = $sth->fetchrow_array;