[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Dec 26 17:01:31 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv26442/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
duh!  If you pass identical objects to the ISA routine, CLEARLY it should return TRUE!!

moby-live/Perl/MOBY/Client Central.pm,1.64,1.65
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -r1.64 -r1.65
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/12/02 00:57:15	1.64
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/12/26 22:01:31	1.65
@@ -1383,6 +1383,7 @@
 
 sub ISA {
 	my ($self, $class1, $class2) = @_;
+	return 1 if (($class1 eq $class2) || ("moby:$class1" eq $class2) || ($class1 eq "moby:$class2"));
 	my $OS = MOBY::Client::OntologyServer->new;
 	my ($s, $d, $lsid1) = $OS->objectExists(term => $class1);
 	return 0 unless $s;