[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon May 30 19:33:43 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv2936/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
Added more lsid stuff. Last time, i promise.
Eddie

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.9,1.10
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/03/09 00:56:15	1.9
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/05/30 23:33:43	1.10
@@ -173,7 +173,7 @@
 	my ($self, %args) = @_;	
 	my $dbh = $self->dbh;
 
-    my ($serviceid, $category, $name, $typeURI, $authURI,$url,$email,$authoritative,$desc, $signatureURL) = $dbh->selectrow_array( # does this service already exist?
+    my ($serviceid, $category, $name, $typeURI, $authURI,$url,$email,$authoritative,$desc, $signatureURL, $lsid) = $dbh->selectrow_array( # does this service already exist?
         q{select
           service_instance_id,
           category,
@@ -184,7 +184,8 @@
           service_instance.contact_email,
           authoritative,
           description,
-		  signatureURL 
+		  signatureURL,
+		  lsid 
           from service_instance, authority
 		  where
 		      service_instance.authority_id = authority.authority_id
@@ -202,6 +203,7 @@
 			email => $email,
 			authoritative => $authoritative,
 			desc => $desc,
+			lsid => $lsid
 		   };
 }
 
@@ -210,7 +212,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, signatureURL) values (?,?,?,?,?,?,?,?,?)},
+	$dbh->do(q{insert into service_instance (category, servicename, service_type_uri, authority_id, url, contact_email, authoritative, description, signatureURL, lsid) values (?,?,?,?,?,?,?,?,?,?)},
 				 undef,
 				 $args{'category'},
 				 $args{'servicename'},
@@ -220,7 +222,8 @@
 				 $args{'contact_email'},
 				 $args{'authoritative'},
 				 $args{'description'},
-				 $args{'signatureURL'});
+				 $args{'signatureURL'},
+				 $args{'lsid'});
 	
 	my $id = $dbh->{mysql_insertid};
 	return $id;