[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jul 26 13:09:09 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv5164/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
fixed a nasty bug that was preventing the proper registration of collection output services

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2004/07/09 00:21:53	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2004/07/26 17:09:09	1.3
@@ -102,23 +102,23 @@
 sub insert_collection_input {
 	my ($self, %args) = @_;	
 	my $dbh = $self->dbh;
-	if ($self->sourcetype eq "MOBY::Adaptor::moby::queryapi::mysql"){
+#	if ($self->sourcetype eq "MOBY::Adaptor::moby::queryapi::mysql"){
 		# this should be dropped down into the mysql.pm module??  probably...
 		$self->dbh->do("insert into collection_input (service_instance_id, article_name) values (?,?)", undef, ($args{service_instance}, $args{article_name}));
 		my $id=$self->dbh->{mysql_insertid};
 		return $id;
-	}
+#	}
 }
 
 sub insert_collection_output {
 	my ($self, %args) = @_;	
 	my $dbh = $self->dbh;
-	if ($self->sourcetype eq "MOBY::Adaptor::moby::queryapi::mysql"){
+#	if ($self->sourcetype eq "MOBY::Adaptor::moby::queryapi::mysql"){
 		# this should be dropped down into the mysql.pm module??  probably...
 		$self->dbh->do("insert into collection_output (service_instance_id, article_name) values (?,?)", undef, ($args{service_instance}, $args{article_name}));
 		my $id=$self->dbh->{mysql_insertid};
 		return $id;
-	}
+#	}
 }
 
 sub insert_simple_input {