[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 30 13:18:52 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv23660/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
doh.  The Relationships call doesn't return LSIDs as the text node anymore, and this was expected

moby-live/Perl/MOBY/Client Central.pm,1.121,1.122
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -r1.121 -r1.122
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 16:56:19	1.121
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 17:18:52	1.122
@@ -1746,7 +1746,7 @@
 			Relationships      => ['isa']
 		);
 		my $lsids = $resp->{'isa'};
-		@lsids = @$lsids;
+		map {push @lsids, $self->ObjLSID($_)} @$lsids;  # convert to LSID
 		$self->ISA_CACHE( $lsid1,  [@lsids] );
 		$self->ISA_CACHE( $class1, [@lsids] );
 		my @hold = @lsids;