[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm OntologyServer.pm 
Log Message:
retrieve relationship types
moby-live/Perl/MOBY Central.pm,1.64,1.65 OntologyServer.pm,1.7,1.8
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -r1.64 -r1.65
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:36:40	1.64
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:39:31	1.65
@@ -2665,6 +2665,7 @@
     }
 
 	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.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/05/09 13:47:33	1.7
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/05/09 14:39:31	1.8
@@ -456,6 +456,7 @@
     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;