Merge branch 'sellSlave-fix' into 'pregmod-master'

Fix costs being added to slave purchase record

Closes #560

See merge request pregmodfan/fc-pregmod!3854

src/uncategorized/sellSlave.tw

@@ -1896,7 +1896,7 @@ __Bids Received__
 <</if>>
 
 <br><br>
-<<link "Re-list $him" "Sell Slave">><<run cashX(-500, "slaveTransfer")>><</link>>
+<<link "Re-list $him" "Sell Slave">><<run cashX(-500, "personalBusiness")>><</link>>
 //This will cost <<print cashFormat(500)>>//
 
 <</if>>

src/uncategorized/slaveInteract.tw

@@ -1845,7 +1845,7 @@ __Financial__:
 	<<elseif $activeSlave.accent > 3>>
 		//$His lack of language and basic life skills is a red sign to most slave appraisers. $He must not act like a child to be sold without raising suspicion.// |
 	<<else>>
-		<<link "Sell $him" "Sell Slave">><<run cashX(-500, "slaveTransfer", $activeSlave)>><</link>> //Listing $him for sale will cost <<print cashFormat(500)>>// |
+		<<link "Sell $him" "Sell Slave">><<run cashX(-500, "personalBusiness", $activeSlave)>><</link>> //Listing $him for sale will cost <<print cashFormat(500)>>// |
 		<<if ($seeAge != 0) && ($activeSlave.indenture < 1)>>
 			<<link "Retire $him" "SE retirement">><<set $retiree = $activeSlave.ID, $retired = 1>><</link>> |
 		<</if>>

src/uncategorized/specialSlave.tw

@@ -97,7 +97,7 @@
 
 	<br><br>
 
-	[[Pay to access complete catalog of slaves|Complete Catalog][cashX(-1000, "slaveTransfer")]] //Costs <<print cashFormat(1000)>>.//
+	[[Pay to access complete catalog of slaves|Complete Catalog][cashX(-1000, "personalBusiness")]] //Costs <<print cashFormat(1000)>>.//
 
 	<br><br>