[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	LocalServices.pm 
Log Message:
Doh.  Use the output format you dummy

moby-live/Perl/scripts/Services LocalServices.pm,1.42,1.43
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -r1.42 -r1.43
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/10 22:34:36	1.42
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/10 22:40:56	1.43
@@ -262,21 +262,23 @@
 				(($MOBY_RESPONSE .= simpleResponse("", "No_gi_found_for_accession", $qID)) && next) unless $gi;
 				my $gb = SHoundGetGenBankff($gi);
 	            (($MOBY_RESPONSE .= simpleResponse("", "No_genbank_record_found", $qID)) && next) unless $gb;
-				$MOBY_RESPONSE .= "<genbank-flatfile namespace='NCBI_gi' id='$gi'>
+				$MOBY_RESPONSE .= simpleResponse("<genbank-flatfile namespace='NCBI_gi' id='$gi'>
 					<CrossReferences>
 						<Object namespace='$ns' id='$identifier'/>
 					</CrossReferences>
-					<![CDATA[$gb]]></genbank-flatfile>";
+					<![CDATA[$gb]]></genbank-flatfile>",
+					"", $qID);
 			} else {
 				my $gi = SHoundFindName($identifier);
 				(($MOBY_RESPONSE .= simpleResponse("", "No_gi_found_for_accession", $qID)) && next) unless $gi;
 				my $gb = SHoundGetGenBankff($gi);
 	            (($MOBY_RESPONSE .= simpleResponse("", "No_genbank_record_found", $qID)) && next) unless $gb;
-				$MOBY_RESPONSE .= "<genbank-flatfile namespace='NCBI_gi' id='$gi'>
+				$MOBY_RESPONSE .= simpleResponse("<genbank-flatfile namespace='NCBI_gi' id='$gi'>
 					<CrossReferences>
 						<Object namespace='$ns' id='$identifier'/>
 					</CrossReferences>
-					<![CDATA[$gb]]></genbank-flatfile>";
+					<![CDATA[$gb]]></genbank-flatfile>",
+					"", $qID);
 			}
 		}
     }