From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 5 May 2010 19:26:32 +0000 (+0000)
Subject:  * add missing map
X-Git-Url: https://git.donarmstrong.com/?p=bin.git;a=commitdiff_plain;h=da0108335ac5235eae48f67c823e6474043c34f4

 * add missing map
---

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";
     }
 }