[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sun Sep 14 23:12:37 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv21846/Client

Modified Files:
	Central.pm 
Log Message:
removing debugging stuff 

moby-live/Perl/MOBY/Client Central.pm,1.53,1.54
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -r1.53 -r1.54
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/09/15 03:09:13	1.53
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/09/15 03:12:37	1.54
@@ -1376,15 +1376,12 @@
 	my ($self, $class1, $class2) = @_;
 	my $OS = MOBY::Client::OntologyServer->new;
 	my ($s, $d, $lsid1) = $OS->objectExists(term => $class1);
-	print "class1 is $lsid1\n";
 	return 0 unless $s;
 	my ($s2, $d2, $lsid2) = $OS->objectExists(term => $class2);
-	print "class2 is $lsid2\n";
 	return 0 unless $s2;
 	my $resp = $self->Relationships(objectType => $lsid1, expandRelationship => 1);
 	my $lsids = $resp->{'urn:lsid:biomoby.org:objectrelation:isa'};
 	foreach (@$lsids){
-		print "testing is $_ vs $lsid2\n";
 		return 1 if $_ eq $lsid2;
 	}
 	return 0;