[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Mar  8 19:56:15 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv1321

Modified Files:
	mysql.pm 
Log Message:
I think I have finally squashed that pesky bug that prevents Simples from being displayed as part of Collections in the findService output.  It also requires a hand-modification of the database, unfortunately.  If you need this, drop me a line and I'll tell you what to do

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.8,1.9
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/01/11 22:17:11	1.8
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/03/09 00:56:15	1.9
@@ -124,7 +124,7 @@
 sub insert_simple_input {
 	my ($self, %args) = @_;	
 	my $dbh = $self->dbh;
-	my $si = $args{collection_input_id}?'':$args{service_instance_id};
+	my $si = $args{collection_input_id}?undef:$args{service_instance_id};
 		
 	$dbh->do("insert into simple_input
 				 (object_type_uri,
@@ -148,7 +148,7 @@
 sub insert_simple_output {
 	my ($self, %args) = @_;	
 	my $dbh = $self->dbh;
-	my $si = $args{collection_output_id}?'':$args{service_instance_id};
+	my $si = $args{collection_output_id}?undef:$args{service_instance_id};
 
 	$dbh->do("insert into simple_output
 				 (object_type_uri,