[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Nov  1 08:41:46 EST 2003
Update of /home/repository/moby/moby-live/Perl/lsid/authority
In directory pub.open-bio.org:/tmp/cvs-serv29678

Modified Files:
	RelationshipResolver.pm 
Log Message:
bad SQL

moby-live/Perl/lsid/authority RelationshipResolver.pm,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/lsid/authority/RelationshipResolver.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/lsid/authority/RelationshipResolver.pm	2003/11/01 13:28:32	1.1
+++ /home/repository/moby/moby-live/Perl/lsid/authority/RelationshipResolver.pm	2003/11/01 13:41:46	1.2
@@ -30,7 +30,7 @@
 	my $mdata;
     my $dbh = dbConnect($class_db_params);
     # e.g. urn:lsid:biomoby.org:objectrelation:isa
-    my $sth = $dbh->prepare("select relationship_type, description, authority, contact_email, ontology from object where object_lsid = ?");
+    my $sth = $dbh->prepare("select relationship_type, description, authority, contact_email, ontology from relationship where relationship_lsid = ?");
     $sth->execute($lsid);
     my ($relationship_type, $description, $authURI, $contact_email, $ontology) = $sth->fetchrow_array;
     unless ($relationship_type){