[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Aug 16 13:25:03 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv6694/scripts/Services

Modified Files:
	LocalServices.pm 
Log Message:
error in sql

moby-live/Perl/scripts/Services LocalServices.pm,1.30,1.31
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/08/16 17:21:35	1.30
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/08/16 17:25:02	1.31
@@ -126,7 +126,7 @@
 		from
 			gene_product as gp,
 			term as t,
-			term_definition,
+			term_definition as d,
 			association as a,
 			dbxref as xr
 		where
@@ -135,7 +135,7 @@
 		and xr.id = gp.dbxref_id
 		and t.acc=?
 		and a.is_not = 0
-		and term.id = term_definition.term_id 
+		and t.id = d.term_id 
 		order by species_id");
 							
     foreach my $acc(@accessions){