[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
set client to default to isa

moby-live/Perl/MOBY/Client Central.pm,1.113,1.114
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.113
retrieving revision 1.114
diff -u -r1.113 -r1.114
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/17 17:58:13	1.113
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 15:18:12	1.114
@@ -1645,6 +1645,7 @@
 	@relationships = @{ $args{'Relationships'} }
 	  if ( $args{'Relationships'}
 		&& ( ref( $args{'Relationships'} ) =~ /array/i ) );
+	push @relationships, 'isa' unless $relationships->[0];  # need to have at least one relationship
 	my $reg = $args{'Registry'};
 	my $m;
 	my $payload;