[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul 28 18:18:05 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv6452/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
starting to update Cient libraries to make LSID avialble

moby-live/Perl/MOBY/Client Central.pm,1.102,1.103
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -r1.102 -r1.103
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/07/28 22:10:11	1.102
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/07/28 22:18:05	1.103
@@ -484,7 +484,8 @@
 =cut
 
 sub retrieveObjectDefinition {
-	my ( $self, $id, $reg ) = @_;
+	my ( $self, %a ) = @_;
+	my $id = $a{objectType};
 	return $self->errorRegXML(
 		"Function not allowed when querying multiple registries")
 	  if $self->multiple_registries;