From 11124cf196979068a095254bc7a258a124bb3bc1 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Mon, 23 Jan 2012 21:27:03 +0000
Subject: [PATCH] fixed broken pcr_seq

git-svn-id: http://biopieces.googlecode.com/svn/trunk@1733 74ccb610-7750-0410-82ae-013aeee3265d
---
 bp_bin/pcr_seq | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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
 
-- 
2.39.2