[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Tue Aug 30 16:35:31 UTC 2005


mwilkinson
Tue Aug 30 12:35:31 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv23212/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
changing from lsid to isa did break something else - the ISA_CACHE is expecting everything to be LSID rather than term :-)

moby-live/Perl/MOBY/Client Central.pm,1.116,1.117
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.116
retrieving revision 1.117
diff -u -r1.116 -r1.117
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 15:49:12	1.116
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 16:35:31	1.117
@@ -1966,9 +1966,14 @@
 	my $term = $desiredterm;
 	return (undef) if $isas && !( ref($isas) =~ /ARRAY/ );
 	if ( $term && $isas ) {
-		$self->{ISA_CACHE}->{$desiredterm} = [@$isas];
-		while ( my $term = shift(@$isas) ) {
-			$self->{ISA_CACHE}->{$term} = [@$isas];
+		my @isalsids;
+		foreach (@$isas){
+		    $lsid = $self->ObjLSID($_);
+		    push @isalsids, $lsid if $lsid;
+		}
+		$self->{ISA_CACHE}->{$desiredterm} = \@isalsids;
+		while ( my $term = shift(@isalsids) ) {
+			$self->{ISA_CACHE}->{$term} = \@isalsids;
 		}
 		return @{ $self->{ISA_CACHE}->{$desiredterm} };
 	}




More information about the MOBY-guts mailing list