[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	mysql.pm 
Log Message:
misspelled where

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.49,1.50
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -r1.49 -r1.50
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/27 14:39:02	1.49
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/27 14:58:58	1.50
@@ -172,7 +172,7 @@
 sub _getSIIDFromLSID {
     my ($self, $lsid) = @_;
     my $dbh = $self->dbh;
-    my $sth = $dbh->prepare("select service_instance_id from service_instance were lsid=?");
+    my $sth = $dbh->prepare("select service_instance_id from service_instance where lsid = ?");
     $sth->execute($lsid);
     my ($siid)  = $sth->fetchrow_array();
     return $siid;
@@ -657,7 +657,7 @@
 			description, 
 			signatureURL,
 			lsid 
-			from service_instance left join authority on authority.authority_id where ";
+			from service_instance left join authority on authority.authority_id ";
         my @bindvalues;
  	($statement, @bindvalues) =_add_condition($statement, @args);
  	my $final = do_query($dbh, $statement, @bindvalues);