From 7a1ee75b9a2ea6fc1e6a7414b3e07ee284602ce9 Mon Sep 17 00:00:00 2001
From: fcanon <fcanon@nowhere.na>
Date: Thu, 25 May 2017 15:02:46 -0400
Subject: [PATCH] fix NGP/BC giving all slaves prostates

---
 src/pregmod/widgets/pregmodWidgets.tw | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/pregmod/widgets/pregmodWidgets.tw b/src/pregmod/widgets/pregmodWidgets.tw
index 6369d6af51e..09ed517c59b 100644
--- a/src/pregmod/widgets/pregmodWidgets.tw
+++ b/src/pregmod/widgets/pregmodWidgets.tw
@@ -80,7 +80,10 @@
 	<<set $args[0].underArmHStyle = "waxed">>
 <</if>>
 <<if def $args[0].prostateImplant>>
-	<<set $args[0].prostate = 3>>
+	<<if ($args[0].prostateImplant == 1)>>
+		<<set $args[0].prostate = 3>>
+	<</if>>
+	<<unset $args[0].prostateImplant>>
 <</if>>
 <<if ndef $args[0].bodySwap>>
 	<<set $args[0].bodySwap = 0>>
-- 
GitLab