[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Sep 27 12:21:04 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv26315/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
added two new methods to MOBY Client Central to extract the additional details from namespace and service retrieval

moby-live/Perl/MOBY/Client Central.pm,1.125,1.126
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.125
retrieving revision 1.126
diff -u -r1.125 -r1.126
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/09/27 16:19:21	1.125
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/09/27 16:21:04	1.126
@@ -1471,7 +1471,7 @@
 		for
 		  my $elem ( $types->get_node($x)->getElementsByTagName('contactEmail') )
 		{
-			$emai = $elem->firstChild->toString;
+			$email = $elem->firstChild->toString;
 			if ( $email =~ /<!\[CDATA\[((?>[^\]]+))\]\]>/ ) {
 				$email = $1;
 			}
@@ -1593,7 +1593,7 @@
 
 =cut
 
-sub retrieveNamespaces {
+sub retrieveNamespacesFull {
 	my ($self, %args) = shift;
 	my $reg = $args{registry};
 	$reg = $reg ? $reg : $self->default_MOBY_servername;