[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Feb  9 20:17:04 EST 2004
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv2171/Services

Modified Files:
	LocalServices.pm 
Log Message:
added two GO traversal routines - get parents and get children

moby-live/Perl/scripts/Services LocalServices.pm,1.60,1.61
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -r1.60 -r1.61
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2004/02/10 01:10:45	1.60
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2004/02/10 01:17:04	1.61
@@ -320,7 +320,7 @@
 			$identifier =~ s/^GO://;
 			$identifier =~ s/^0+//;			
             (($MOBY_RESPONSE .= collectionResponse([], "", $qID)) && next) unless ($namespace eq $validNS);
-			my $GOs = getSHoundGODBGetChildrenOf($identifier);
+			my $GOs = SHoundGODBGetChildrenOf($identifier);
             (($MOBY_RESPONSE .= collectionResponse([], "", $qID)) && next) unless ($GOs);
 			my @GOs = split ",", $GOs;
 			my @simples;