[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	LocalServices.pm 
Log Message:
fixed errors in the collectionouput creation in the CommonSubs library

moby-live/Perl/scripts/Services LocalServices.pm,1.21,1.22
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/07/14 23:32:39	1.21
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/07/15 00:06:18	1.22
@@ -122,19 +122,24 @@
 		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);
@@ -443,7 +448,7 @@
     
     
 sub _LOG {
-	open OUT, ">/tmp/LocalServices.log";
+	open OUT, ">>/tmp/LocalServices.log";
 	print OUT @_;
 	close OUT;
 }