[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	LocalServices.pm 
Log Message:
missed one

moby-live/Perl/scripts/Services LocalServices.pm,1.43,1.44
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -r1.43 -r1.44
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/10 22:40:56	1.43
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/10 22:45:11	1.44
@@ -256,7 +256,7 @@
 			if ($ns eq $validNS{'NCBI_gi'}){  # gi numbers are used natively by SeqHound
 				my $gb = SHoundGetGenBankff($identifier);
 	            (($MOBY_RESPONSE .= simpleResponse("", "No_genbank_record_found", $qID)) && next) unless $gb;
-				$MOBY_RESPONSE .= "<genbank-flatfile namespace='NCBI_gi' id='$identifier'><![CDATA[$gb]]></genbank-flatfile>";
+				$MOBY_RESPONSE .= simpleResponse("<genbank-flatfile namespace='NCBI_gi' id='$identifier'><![CDATA[$gb]]></genbank-flatfile>", "", $qID);
 			} elsif ($ns eq $validNS{'NCBI_Acc'}){  # THIS ONE DOESN'T WORK YET????
 				my $gi = SHoundFindAcc($identifier);
 				(($MOBY_RESPONSE .= simpleResponse("", "No_gi_found_for_accession", $qID)) && next) unless $gi;