[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 22 17:56:35 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1963/MOBY

Modified Files:
	Central.pm 
Log Message:
all original tests now pass.  findService was returning service descriptions with extra whitespace.  Fixed that

moby-live/Perl/MOBY Central.pm,1.174,1.175
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.174
retrieving revision 1.175
diff -u -r1.174 -r1.175
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/22 20:47:10	1.174
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/22 21:56:35	1.175
@@ -3397,7 +3397,7 @@
 		$output .= "\t<serviceType>$service_type</serviceType>\n";
 		$output .= "\t<authoritative>$authoritative</authoritative>\n";
 		$output .= "\t<Category>$category</Category>\n";
-		$output .= "\t<Description>\n$desc\n\t</Description>\n";
+		$output .= "\t<Description><![CDATA[$desc]]></Description>\n";
 		$output .= "\t<contactEmail>$email</contactEmail>\n";
 		$output .= "\t<signatureURL>$signatureURL</signatureURL>\n";
 		$output .= "\t<URL>$url</URL>\n";