[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri May  9 09:26:15 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv7339/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
wrapped findService in the Client::Central wrapper
moby-live/Perl/MOBY Central.pm,1.51,1.52
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -r1.51 -r1.52
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 13:06:23	1.51
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 13:26:15	1.52
@@ -1604,12 +1604,12 @@
 
  <inputObjects>
    <Input>
-      <!-- one or more Simple or Complex Primary articles -->
+      <!-- one or more Simple or Collection Primary articles -->
    </Input>
  </inputObjects>
  <outputObjects>
     <Output>
-       <!-- one or more Simple or Complex Primary articles -->
+       <!-- one or more Simple or Collection Primary articles -->
     </Output>
  </outputObjects>
  <authoritative>1</authoritative>
@@ -1715,7 +1715,8 @@
 			$searchstring .= " OR description like '$kw' ";
 		}
 		$searchstring =~ s/OR//;  # just the first one
-		my $ids = $dbh->selectall_arrayref(q{select service_instance_id from service_instance where $searchstring});
+		my $search = $dbh->quote($searchstring);
+		my $ids = $dbh->selectall_arrayref("select service_instance_id from service_instance where $search");
 		unless (scalar @{$ids}){
 			return &_serviceListResponse($dbh, undef);
 		}