From da0108335ac5235eae48f67c823e6474043c34f4 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 5 May 2010 19:26:32 +0000
Subject: [PATCH]  * add missing map

---
 genotypeizer | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/genotypeizer b/genotypeizer
index a4f2e41..8c441cd 100755
--- a/genotypeizer
+++ b/genotypeizer
@@ -223,7 +223,7 @@ if ($options{output_format} eq 'pedmap') {
 	    join("\t",
 		 @{$extra_info{$individual_id}}{qw(family_id individual_id),
 						    qw(paternal_id maternal_id sex phenotype)},
-		 keys %valid_snps ? @{$samples{$individual_id}}[@valid_snps{@snp_ordering}] : @{$samples{$individual_id}}
+		 keys %valid_snps ? @{$samples{$individual_id}}[map {($_*2,$_*2+1)} @valid_snps{@snp_ordering}] : @{$samples{$individual_id}}
 		)."\n";
     }
 }
-- 
2.39.5