[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul 29 20:40:09 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv21862/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
deprecating the deregisterService routine... kinda... it still works, but only if the service was registered without a signatureURL

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2004/07/30 00:07:18	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2004/07/30 00:40:09	1.5
@@ -169,7 +169,7 @@
 	my ($self, %args) = @_;	
 	my $dbh = $self->dbh;
 
-    my ($serviceid, $category, $name, $typeURI, $authURI,$url,$email,$authoritative,$desc) = $dbh->selectrow_array( # does this service already exist?
+    my ($serviceid, $category, $name, $typeURI, $authURI,$url,$email,$authoritative,$desc, $signatureURL) = $dbh->selectrow_array( # does this service already exist?
         q{select
           service_instance_id,
           category,
@@ -179,7 +179,8 @@
           url,
           service_instance.contact_email,
           authoritative,
-          description 
+          description,
+		  signatureURL 
           from service_instance, authority
 		  where
 		      service_instance.authority_id = authority.authority_id