From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Mon, 23 Jan 2012 21:27:03 +0000 (+0000)
Subject: fixed broken pcr_seq
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=11124cf196979068a095254bc7a258a124bb3bc1;p=biopieces.git

fixed broken pcr_seq

git-svn-id: http://biopieces.googlecode.com/svn/trunk@1733 74ccb610-7750-0410-82ae-013aeee3265d
---

diff --git a/bp_bin/pcr_seq b/bp_bin/pcr_seq
index dec3ea0..f545773 100755
--- a/bp_bin/pcr_seq
+++ b/bp_bin/pcr_seq
@@ -164,7 +164,11 @@ Biopieces.open(options[:stream_in], options[:stream_out]) do |input, output|
   Fasta.open(infile, mode="w") do |ios|
     input.each_record do |record|
       output.puts record
-      ios.puts record
+
+      if record.has_key? :SEQ
+        entry = Seq.new_bp(record)
+        ios.puts entry.to_fasta
+      end
     end
   end