[MOBY-guts] biomoby commit

Dennis Wang dwang at pub.open-bio.org
Mon Jul 18 16:54:29 UTC 2005


dwang
Mon Jul 18 12:54:29 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv16306/Perl/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
minor changes to comments and indentation

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.13,1.14
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/15 16:39:11	1.13
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/18 16:54:29	1.14
@@ -1087,8 +1087,7 @@
 }
 
 # custom query subroutine for Moby::Central.pm->_searchForCollection()
-sub getFromCollection
-{
+sub getFromCollection{
 	my ($self, @args) = @_;	
 	my $dbh = $self->dbh;	
 	my $inout = get_value('inout', @args);
@@ -1120,8 +1119,7 @@
 }
 
 # custom query subroutine for Moby::Central.pm->RetrieveServiceNames
-sub getServiceNames
-{		
+sub getServiceNames{		
 	my ($self, @args) = @_;	
 	my $dbh = $self->dbh;	
 	my $statement = "select authority_uri, servicename from authority as a, service_instance as s where s.authority_id = a.authority_id";	
@@ -1132,8 +1130,7 @@
 }
 
 # custom query for Moby::Central.pm->_flatten
-sub getParentTerms
-{
+sub getParentTerms{
 	my ($self, @args) = @_;	
 	my $dbh = $self->dbh;
 	




More information about the MOBY-guts mailing list