[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Feb 18 17:23:55 EST 2004
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv12758/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
fixing Dave Waddell's bug report.  It was a hangover from the case-sensitive LSID days.

moby-live/Perl/MOBY OntologyServer.pm,1.32,1.33
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -r1.32 -r1.33
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/12/30 20:03:54	1.32
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2004/02/18 22:23:55	1.33
@@ -179,7 +179,7 @@
     }
 
     if ($term =~ /^urn\:lsid/){
-        $sth = $self->dbh->prepare("select object_lsid, object_type, description, authority, contact_email from object where INSTR(object_lsid, ?)");
+        $sth = $self->dbh->prepare("select object_lsid, object_type, description, authority, contact_email from object where object_lsid = ?");
     } else {
         $sth = $self->dbh->prepare("select object_lsid, object_type, description, authority, contact_email from object where object_type = ?");
     }
@@ -326,7 +326,7 @@
     return (0, "requires both term and ontology arguments\n",'') unless (defined($term) && defined($ont));
     my $sth;    
     if ($term =~ /^urn\:lsid/){
-        $sth = $self->dbh->prepare("select relationship_lsid, relationship_type, description, authority, contact_email from relationship where INSTR(relationship_lsid,?) and ontology=?");
+        $sth = $self->dbh->prepare("select relationship_lsid, relationship_type, description, authority, contact_email from relationship where relationship_lsid = ? and ontology=?");
     } else {
         $sth = $self->dbh->prepare("select relationship_lsid, relationship_type, description, authority, contact_email from relationship where relationship_type = ? and ontology=?");
     }
@@ -433,7 +433,7 @@
 
     my $sth;
     if ($term =~ /^urn\:lsid/){
-        $sth = $self->dbh->prepare("select service_id, service_type, service_lsid, description, authority, contact_email from service where INSTR(service_lsid,  ?)");
+        $sth = $self->dbh->prepare("select service_id, service_type, service_lsid, description, authority, contact_email from service where service_lsid =  ?");
     } else {
         $sth = $self->dbh->prepare("select service_id, service_type, service_lsid, description, authority, contact_email from service where service_type = ?");
     }
@@ -545,7 +545,7 @@
     }
         
     if ($term =~ /^urn:lsid:biomoby.org:namespacetype/){
-        $sth = $self->dbh->prepare("select namespace_id, namespace_type, namespace_lsid,description, authority, contact_email from namespace where INSTR(namespace_lsid, ?)");
+        $sth = $self->dbh->prepare("select namespace_id, namespace_type, namespace_lsid,description, authority, contact_email from namespace where namespace_lsid = ?");
     } else {
         $sth = $self->dbh->prepare("select namespace_id, namespace_type, namespace_lsid,description, authority, contact_email from namespace where namespace_type = ?");
     }