[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Mon Jun 23 16:47:00 UTC 2003


mwilkinson
Mon Jun 23 12:47:00 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv4311/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
oops.  didn't mean to commit that in a broken state.

moby-live/Perl/MOBY OntologyServer.pm,1.18,1.19
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/06/23 16:05:16	1.18
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/06/23 16:47:00	1.19
@@ -885,52 +885,52 @@
 =head2 traverseDAG
 
 =cut
-
-sub traverseDAG {
-    my ($self, $term) = @_;
-    my $ontology = $self->ontology;
-    return {} unless $ontology;
-    return {} unless $term;
-    if ($ontology eq 'service'){
-        $term = $self->getServiceURI($term);
-    } elsif ($ontology eq 'object'){
-        $term = $self->getObjectURI($term);
-    }
-    return {} unless $term =~ /^urn\:lsid/;  # now its a URI
-    
-    my $relhash = $self->getRelationshipTypes(ontology => $ontology);
-    return {} unless $relhash;
-    my @rels = keys %{$relhash};
-    my %IDS;
-    foreach my $relationship (@rels){
-        my $reluri = $self->getRelationshipURI($ontology, $relationship);
-        $IDS{$term} = "untested";
-    	while (grep /untested/, (values %IDS)){  			# now, while there are untested services in our list...
-    		foreach my $service(keys %IDS){ 			# start parsing through the list
-    			next if ($IDS{$service} eq "tested");  			# if it has been tested already then move on
-                my $lsids = $self->Relationships(term => $term, relationship => $relationship);
-                $IDS{$service} = "tested";
-                #${$lsids}{relationshiptype}=[lsid, lsid, lsid];
-                
-    		}
-    	}
-    }
-}
-
-
-	$ServiceIDs{$root_id} = "untested";  # mark the one in-hand as untested
-	while (grep /untested/, (values %ServiceIDs)){  			# now, while there are untested services in our list...
-		foreach my $service(keys %ServiceIDs){ 			# start parsing through the list
-			next if ($ServiceIDs{$service} eq "tested");  			# if it has been tested already then move on
-			my $sth = $dbh->prepare($sth{get_service_hierarchy_list});
-			$sth->execute($service);  				# execute the query for child nodes
-			$ServiceIDs{$service} = "tested";  				# mark it as tested
-			while (my $new = $sth->fetchrow_array){	# now get each of the child nodes
-				next if (defined $ServiceIDs{$new});  	# if we have already heard about it then move on
-				$ServiceIDs{$new} = "untested";  				#otherwise mark it as untested, and start all over again
-			}
-		}
-	}
+#
+#sub traverseDAG {
+#    my ($self, $term) = @_;
+#    my $ontology = $self->ontology;
+#    return {} unless $ontology;
+#    return {} unless $term;
+#    if ($ontology eq 'service'){
+#        $term = $self->getServiceURI($term);
+#    } elsif ($ontology eq 'object'){
+#        $term = $self->getObjectURI($term);
+#    }
+#    return {} unless $term =~ /^urn\:lsid/;  # now its a URI
+#    
+#    my $relhash = $self->getRelationshipTypes(ontology => $ontology);
+#    return {} unless $relhash;
+#    my @rels = keys %{$relhash};
+#    my %IDS;
+#    foreach my $relationship (@rels){
+#        my $reluri = $self->getRelationshipURI($ontology, $relationship);
+#        $IDS{$term} = "untested";
+#    	while (grep /untested/, (values %IDS)){  			# now, while there are untested services in our list...
+#    		foreach my $service(keys %IDS){ 			# start parsing through the list
+#    			next if ($IDS{$service} eq "tested");  			# if it has been tested already then move on
+#                my $lsids = $self->Relationships(term => $term, relationship => $relationship);
+#                $IDS{$service} = "tested";
+#                #${$lsids}{relationshiptype}=[lsid, lsid, lsid];
+#                
+#    		}
+#    	}
+#    }
+#}
+#
+#
+#	$ServiceIDs{$root_id} = "untested";  # mark the one in-hand as untested
+#	while (grep /untested/, (values %ServiceIDs)){  			# now, while there are untested services in our list...
+#		foreach my $service(keys %ServiceIDs){ 			# start parsing through the list
+#			next if ($ServiceIDs{$service} eq "tested");  			# if it has been tested already then move on
+#			my $sth = $dbh->prepare($sth{get_service_hierarchy_list});
+#			$sth->execute($service);  				# execute the query for child nodes
+#			$ServiceIDs{$service} = "tested";  				# mark it as tested
+#			while (my $new = $sth->fetchrow_array){	# now get each of the child nodes
+#				next if (defined $ServiceIDs{$new});  	# if we have already heard about it then move on
+#				$ServiceIDs{$new} = "untested";  				#otherwise mark it as untested, and start all over again
+#			}
+#		}
+#	}
 
 sub DESTROY {}
 




More information about the MOBY-guts mailing list