[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jul 27 13:32:20 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv30053/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
secondaries was also receiving id instead of lsid

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.53,1.54
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -r1.53 -r1.54
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/27 16:03:29	1.53
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/27 17:32:20	1.54
@@ -318,7 +318,7 @@
     my ($siid) = $self->_getSIIDFromLSID($args{service_instance_lsid});
     my ($collid) = $args{collection_input_id};
     my $statement1; my $statement2;
-    $siid && ($statement1 = "delete from simple_input where service_instance_lsid = ?");
+    $siid && ($statement1 = "delete from simple_input where service_instance_id = ?");
     $collid && ($statement2 = "delete from simple_input where collection_input_id = ?");
     
     $siid && ($dbh->do( $statement1, undef,($siid)));
@@ -337,7 +337,7 @@
     my ($siid) = $self->_getSIIDFromLSID($args{service_instance_lsid});
     my $result_ids = $self->query_collection_input(service_instance_lsid => $self->lsid);
 
-    my $statement = "delete from simple_input where service_instance_lsid = ?";
+    my $statement = "delete from simple_input where service_instance_id = ?";
 
     $dbh->do( $statement, undef,($siid));
     if ($dbh->err){
@@ -412,7 +412,7 @@
     my ($siid) = $self->_getSIIDFromLSID($args{service_instance_lsid});
     my ($collid) = $args{collection_output_id};
     my $statement1; my $statement2;
-    $siid && ($statement1 = "delete from simple_output where service_instance_lsid = ?");
+    $siid && ($statement1 = "delete from simple_output where service_instance_id = ?");
     $collid && ($statement2 = "delete from simple_output where collection_input_id = ?");
     
     $siid && ($dbh->do( $statement1, undef,($siid)));
@@ -465,7 +465,7 @@
     my ($self, %args) = @_;
     my ($siid) = $self->_getSIIDFromLSID($args{service_instance_lsid});
     my $dbh = $self->dbh;
-    my $statement = "delete from secondary_input where service_instance_lsid=?";
+    my $statement = "delete from secondary_input where service_instance_id=?";
 
     $dbh->do( $statement, undef, ($siid));    
     if ($dbh->err){