[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jan  8 13:55:55 EST 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv23672/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
removing dead module from MANIFEST

moby-live/Perl/MOBY/Client Central.pm,1.69,1.70
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -r1.69 -r1.70
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/01/02 20:39:23	1.69
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/01/08 18:55:55	1.70
@@ -1396,6 +1396,13 @@
 		@lsids = @$lsids;
 		$self->ISA_CACHE($lsid1, [@lsids]);
 		$self->ISA_CACHE($class1, [@lsids]);
+		my @hold = @lsids;
+		while (shift @hold){
+			$self->ISA_CACHE($_, [@hold]);
+			if ($_ =~ /^urn:lsid:biomoby.org.\w+\.(\S+)/){
+				$self->ISA_CACHE($1, [@lsids]);
+			}	
+		}
 	}
 	foreach (@lsids){
 		return 1 if $_ eq $lsid2;