[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	mysql.pm 
Log Message:
the adaptor now writes to a new field in the database - signatureURL - which is where Nina's agent expects to find the RDF corresponding to the service.  This can be null, if you want to temporarily register a service.

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2004/07/26 17:09:09	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2004/07/30 00:07:18	1.4
@@ -204,7 +204,7 @@
 	my ($self, %args) = @_;	
 	my $dbh = $self->dbh;
 
-	$dbh->do(q{insert into service_instance (category, servicename, service_type_uri, authority_id, url, contact_email, authoritative, description) values (?,?,?,?,?,?,?,?)},
+	$dbh->do(q{insert into service_instance (category, servicename, service_type_uri, authority_id, url, contact_email, authoritative, description, signatureURL) values (?,?,?,?,?,?,?,?,?)},
 				 undef,
 				 $args{'category'},
 				 $args{'servicename'},
@@ -213,7 +213,8 @@
 				 $args{'url'},
 				 $args{'contact_email'},
 				 $args{'authoritative'},
-				 $args{'description'});
+				 $args{'description'},
+				 $args{'signatureURL'});
 	
 	my $id = $dbh->{mysql_insertid};
 	return $id;