[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sun Nov 20 10:45:36 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv5810/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
added lsid retrieval to adaptor for getServiceNames call

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.74,1.75
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -r1.74 -r1.75
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/09/22 16:23:13	1.74
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/11/20 15:45:35	1.75
@@ -1260,7 +1260,7 @@
 sub get_service_names{		
 	my ($self, %args) = @_;	
 	my $dbh = $self->dbh;	
-	my $statement = "select authority_uri, servicename from authority as a, service_instance as s where s.authority_id = a.authority_id";	
+	my $statement = "select authority_uri, servicename, lsid from authority as a, service_instance as s where s.authority_id = a.authority_id";	
 	my @bindvalues = ();
 	
     my $result = do_query($dbh, $statement, @bindvalues);