[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Fri May 9 14:54:05 UTC 2003


mwilkinson
Fri May  9 10:54:05 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv8609/Perl/MOBY

Modified Files:
	Central.pm OntologyServer.pm 
Log Message:
retrieve relationship types
moby-live/Perl/MOBY Central.pm,1.67,1.68 OntologyServer.pm,1.8,1.9
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -r1.67 -r1.68
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:45:30	1.67
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:54:05	1.68
@@ -2650,13 +2650,11 @@
 
 sub retrieveRelationshipTypes {
 	my ($pkg, $payload) = @_;
-	print "payload $payload\n";
+
 	my $Parser = new XML::DOM::Parser;
 	my $doc = $Parser->parse($payload);
-	my $DOM = $doc->getDocumentElement();
-	my $ontology =  &_nodeTextContent($DOM, "Ontology");
+	my $ontology =  &_nodeTextContent($doc, "Ontology");
 	my $OS = MOBY::OntologyServer->new(ontology => 'relationship');
-	print "getting relationshps for the $ontology ontology\n";
 	my %types = %{$OS->getRelationshipTypes(ontology => $ontology)};
 	my $types = "<relationshipTypes>\n";
 	while (my ($name, $authdesc) = each %types){

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/05/09 14:39:31	1.8
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/05/09 14:54:05	1.9
@@ -456,7 +456,6 @@
     my $defs = $self->dbh->selectall_arrayref(q{select relationship_type, authority, description from relationship where ontology = ?}, undef, $ontology);
     my %result;
     foreach (@{$defs}){
-        print "found one @{$_}\n";
         $result{$_->[0]} = [$_->[1], $_->[2]];    
     }
     return \%result;




More information about the MOBY-guts mailing list