[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jul 14 20:07:26 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv2854/scripts/Services

Modified Files:
	LocalServices.pm 
Log Message:
removing verbose debugging output from LocalServices.pm sample services

moby-live/Perl/scripts/Services LocalServices.pm,1.22,1.23
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/07/15 00:06:18	1.22
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/07/15 00:07:26	1.23
@@ -122,24 +122,19 @@
 		my $input =  $_->[0];  # we only allow one input object per query
 		my ($kw) = getSimpleArticleIDs($VALID_NAMESPACE, [$input]);
 		($kw) = (($kw =~ /^\s*(.*)\s*$/) && ($1));
-		_LOG("searching for $kw");
 		my @terms = @{$GO_API->get_terms({search=>"$kw"})};
-		_LOG("searching for $kw found @terms");
 		next unless($terms[0]);
 		my @simples;
 		foreach my $term(@terms){
 			my $acc = $term->public_acc;
 			my $def = $term->definition;
 			my $name = $term->name;
-			_LOG("adding $name to list\n");
             push @simples, "<moby:GO_Term namespace='GO' id='$acc'>
                     <moby:String namespace='' id='' articleName='Term'>$term</moby:String>
                     <moby:String namespace='' id='' articleName='Definition'>$def</moby:String>
                 </moby:GO_Term>";
 		}
 		$response .= collectionResponse(\@simples);
-		_LOG("response is $response\n");
-
 	}
     $response =  responseHeader() . $response . responseFooter();
     my $SOAPResponse = SOAP::Data->type('base64' => $response);