[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
changing from lsid to isa did break something :-)

moby-live/Perl/MOBY/Client Central.pm,1.115,1.116
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -r1.115 -r1.116
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 15:22:04	1.115
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 15:49:12	1.116
@@ -1743,9 +1743,9 @@
 		my $resp = $self->Relationships(
 			objectType         => $lsid1,
 			expandRelationship => 1,
-			Relationships      => ['ISA']
+			Relationships      => ['isa']
 		);
-		my $lsids = $resp->{'urn:lsid:biomoby.org:objectrelation:isa'};
+		my $lsids = $resp->{'isa'};
 		@lsids = @$lsids;
 		$self->ISA_CACHE( $lsid1,  [@lsids] );
 		$self->ISA_CACHE( $class1, [@lsids] );
@@ -1758,7 +1758,7 @@
 		}
 	}
 	foreach (@lsids) {
-		return 1 if $_ eq $lsid2;
+	    return 1 if $_ eq $lsid2;
 	}
 	return 0;
 }