(svn r21993) -Fix (r19720): When building a lock on dry land costs for clearing water were deducted rather than for building canals

src/water_cmd.cpp

@@ -219,7 +219,7 @@ static CommandCost DoBuildLock(TileIndex tile, DiagDirection dir, DoCommandFlag
 		ret = DoCommand(tile - delta, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
 		if (ret.Failed()) return ret;
 		cost.AddCost(ret);
-		cost.AddCost(_price[PR_CLEAR_WATER]);
+		cost.AddCost(_price[PR_BUILD_CANAL]);
 	}
 	if (GetTileSlope(tile - delta, NULL) != SLOPE_FLAT) {
 		return_cmd_error(STR_ERROR_LAND_SLOPED_IN_WRONG_DIRECTION);
@@ -232,7 +232,7 @@ static CommandCost DoBuildLock(TileIndex tile, DiagDirection dir, DoCommandFlag
 		ret = DoCommand(tile + delta, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
 		if (ret.Failed()) return ret;
 		cost.AddCost(ret);
-		cost.AddCost(_price[PR_CLEAR_WATER]);
+		cost.AddCost(_price[PR_BUILD_CANAL]);
 	}
 	if (GetTileSlope(tile + delta, NULL) != SLOPE_FLAT) {
 		return_cmd_error(STR_ERROR_LAND_SLOPED_IN_WRONG_DIRECTION);