[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Sep 26 19:26:00 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv19500/MOBY

Modified Files:
	Central.pm 
Log Message:
retrieveNamespaces should now retrieve everything about a namespace, no longer a 'sink' as Martin so aptly phrased it

moby-live/Perl/MOBY Central.pm,1.216,1.217
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.216
retrieving revision 1.217
diff -u -r1.216 -r1.217
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/09/20 21:16:11	1.216
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/09/26 23:26:00	1.217
@@ -2803,8 +2803,8 @@
 		if ( $desc =~ /<!\[CDATA\[((?>[^\]]+))\]\]>/ ) {
 			$desc = $1;
 		}
-		$ns .= "<Namespace name='$namespace' lsid='$lsid'>\n<Description><![CDATA[$desc]]></Description>\n</Namespace>\n"; #COMMENT/REMOVE
-#		$ns .= "<Namespace name='$namespace' lsid='$lsid'>\n<Description><![CDATA[$desc]]></Description>\n<contactEmail>$contact</contactEmail>\n<authURI>$auth</authURI>\n</Namespace>\n";#UNCOMMENT
+#		$ns .= "<Namespace name='$namespace' lsid='$lsid'>\n<Description><![CDATA[$desc]]></Description>\n</Namespace>\n"; #COMMENT/REMOVE
+		$ns .= "<Namespace name='$namespace' lsid='$lsid'>\n<Description><![CDATA[$desc]]></Description>\n<contactEmail>$contact</contactEmail>\n<authURI>$auth</authURI>\n</Namespace>\n";#UNCOMMENT
 	}
 	$ns .= "</Namespaces>";
 	return $ns;