[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
oops.  backing out that change to Client::Central as it isn't ready for prime time yet

moby-live/Perl/MOBY/Client Central.pm,1.70,1.71
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -r1.70 -r1.71
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/01/08 18:55:55	1.70
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/01/08 18:59:48	1.71
@@ -1396,13 +1396,6 @@
 		@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;