[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jan  2 15:39:23 EST 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv26289/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
Client was not passing auth nor email correctly for service type registration.  

moby-live/Perl/MOBY/Client Central.pm,1.68,1.69
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -r1.68 -r1.69
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/12/27 20:11:48	1.68
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/01/02 20:39:23	1.69
@@ -496,8 +496,8 @@
 		<registerServiceType>
 			<serviceType>$type</serviceType>
 			<Description><![CDATA[$desc]]></Description>
-			<contactEmail>email</contactEmail>
-			<authURI>auth</authURI>\n";
+			<contactEmail>$email</contactEmail>
+			<authURI>$auth</authURI>\n";
 	while (my ($type, $servlistref) = each %Relationships){
 		$message .="<Relationship relationshipType='$type'>\n";
 		foreach my $servicetype(@{$servlistref}){