[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 23 19:37:53 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv23812/MOBY

Modified Files:
	Central.pm 
Log Message:
oops.  put a 'return' in my map function instead of just taking the return value

moby-live/Perl/MOBY Central.pm,1.205,1.206
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.205
retrieving revision 1.206
diff -u -r1.205 -r1.206
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/23 23:16:05	1.205
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/23 23:37:53	1.206
@@ -10,7 +10,7 @@
 use strict;
 use Carp;
 use vars qw($AUTOLOAD $WSDL_TEMPLATE);
-use XML::LibXML;
+#use XML::LibXML;
 use MOBY::OntologyServer;
 use MOBY::service_type;
 use MOBY::authority;
@@ -22,7 +22,7 @@
 use MOBY::secondary_input;
 use MOBY::central_db_connection;
 use MOBY::Config;
-use MOBY::CommonSubs;
+#use MOBY::CommonSubs;
 
 #use MOBY::RDF::ServiceInstanceRDF;
 #use RDF::Core;
@@ -465,7 +465,7 @@
 	my $x = 0; # set flag down
 	# convert everything to an LSID first
 	
-	my @primitive_lsids = map{my ($s, $d, $l) = $OS->objectExists(term => $_); return $l} @primitives;
+	my @primitive_lsids = map{my ($s, $d, $l) = $OS->objectExists(term => $_); $l} @primitives;
 	
 	map {($x=1) if ($inputlsid eq $_)} @primitive_lsids; # test primitives against this one