[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Sep 14 12:26:50 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv22520/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
proper naming of columns
moby-live/Perl/MOBY OntologyServer.pm,1.103,1.104
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -r1.103 -r1.104
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2007/09/14 14:55:30	1.103
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2007/09/14 16:26:50	1.104
@@ -1006,7 +1006,7 @@
 
 	my %response;
 	foreach (@$types) {
-		$response{ $_->{'s1.service_type'} } = [$_->{'s1.description'}, $_->{'s1.service_lsid'}, $_->{'s1.contact_email'}, $_->{'s1.authority'}, $_->{'s2.service_type'}, $_->{'s2.service_lsid'}]; #UNCOMMENT
+		$response{ $_->{'service_type'} } = [$_->{'description'}, $_->{'service_lsid'}, $_->{'contact_email'}, $_->{'authority'}, $_->{'parent_type'}, $_->{'parent_lsid'}]; #UNCOMMENT
 	}
 	return \%response;
 }