[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Dec 30 15:03:54 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv16239/Perl/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
changing the case of the LSID's buggered up the Relationships call of the OntologyServer.  I noticed this when the Gbrowse MOBY browser stopped working.

moby-live/Perl/MOBY OntologyServer.pm,1.31,1.32
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/12/28 20:41:59	1.31
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/12/30 20:03:54	1.32
@@ -801,13 +801,13 @@
         $term = $self->getObjectURI($term);
     }
     my %results;
-    while (($term ne 'urn:lsid:biomoby.org:objectclass:object') && ($term ne 'urn:lsid:biomoby.org:servicetype:service')){
+    while (($term ne 'urn:lsid:biomoby.org:objectclass:Object') && ($term ne 'urn:lsid:biomoby.org:servicetype:Service')){
         my $defs = $self->_doRelationshipsQuery($ontology, $term, $relationship, $direction);
         my $lsid; my $rel;
         foreach (@{$defs}){
             $lsid = $_->[0];
             $rel = $_->[1];
-        $debug && _LOG("\t\tADDING RELATIONSHIP $_    :    $lsid to $rel\n");
+            $debug && _LOG("\t\tADDING RELATIONSHIP $_    :    $lsid to $rel\n");
             push @{$results{$rel}}, $lsid;
         }
         last unless ($expand);