[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Dec 10 17:34:36 EST 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv32719/Perl/scripts/Services

Modified Files:
	LocalServices.pm 
Log Message:
small changes to service output

moby-live/Perl/scripts/Services LocalServices.pm,1.41,1.42
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -r1.41 -r1.42
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/10 22:22:03	1.41
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/10 22:34:36	1.42
@@ -70,7 +70,7 @@
         }
     }
     
-    return SOAP::Data->type('base64' => responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter);    
+    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub getGoTermAssociations {
@@ -135,7 +135,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples,"Known_GO_Term_Associations",$ID); # after all images have been collected, create the collection
         }
     }
-    return SOAP::Data->type('base64' => responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter);    
+    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
     
 }
 
@@ -187,7 +187,7 @@
 			$MOBY_RESPONSE .= collectionResponse(\@simples, "GO_terms_from_keywords", $ID);
 		}
     }
-    return SOAP::Data->type('base64' => responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter);    
+    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
 }
 
 
@@ -223,7 +223,7 @@
 			# do your thing here!
         }
     }
-    return SOAP::Data->type('base64' => responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter);    
+    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub MOBYSHoundGetGenBankff {
@@ -281,8 +281,8 @@
 		}
     }
 	$aa = SHoundFini();
-	print STDERR responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter;
-    return SOAP::Data->type('base64' => responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter);    
+	#print STDERR responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter;
+    return SOAP::Data->type('base64' => (responseHeader("illuminae.com") . $MOBY_RESPONSE . responseFooter));    
 }
 
 sub GenbankAccVirtualSequenceRetrieve {