[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jul 27 13:29:10 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv29930/MOBY

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

moby-live/Perl/MOBY Central.pm,1.187,1.188
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.187
retrieving revision 1.188
diff -u -r1.187 -r1.188
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/27 00:00:44	1.187
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/27 17:29:10	1.188
@@ -3406,7 +3406,7 @@
 		}
 		$output .= "\t</Output>\n";
 		$output .= "\t<secondaryArticles>\n";
-		$result = $adaptor->query_secondary_input(service_instance_lsid => $_);
+		$result = $adaptor->query_secondary_input(service_instance_lsid => $lsid);
 		foreach my $row (@$result)
 		{  my($default_value, $maximum_value, $minimum_value, $enum_value, $datatype, $article_name) = ("","","","","","");
 		    $default_value = $row->{default_value};