From 50b4e9861ded58f59d9dc7f6f7c557db4089679d Mon Sep 17 00:00:00 2001 From: Kevin F Date: Thu, 8 Dec 2022 11:03:24 +0100 Subject: [PATCH] Fix issue with duplicate columns and non term columns :bug: --- src/Client/OfficeInterop/OfficeInterop.fs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Client/OfficeInterop/OfficeInterop.fs b/src/Client/OfficeInterop/OfficeInterop.fs index 7a8c6d0d..16d9e1cf 100644 --- a/src/Client/OfficeInterop/OfficeInterop.fs +++ b/src/Client/OfficeInterop/OfficeInterop.fs @@ -516,7 +516,8 @@ let private checkIfBuildingBlockExisting (newBB:InsertBuildingBlock) (existingBu let mainColumnPrints = existingBuildingBlocks |> Array.choose (fun x -> - if x.MainColumn.Header.isMainColumn then + // reference columns are now allowed in duplicates (0.6.4) + if x.MainColumn.Header.isMainColumn && not x.MainColumn.Header.isTermColumn then x.MainColumn.Header.toBuildingBlockNamePrePrint else None @@ -691,6 +692,7 @@ let addAnnotationBlockHandler (newBB:InsertBuildingBlock) = //checkIfBuildingBlockExisting newBB existingBuildingBlocks checkHasExistingInput newBB existingBuildingBlocks + checkIfBuildingBlockExisting newBB existingBuildingBlocks // if newBB is output column and output column already exists in table this returns (Some outputcolumn-building-block), else None. let outputColOpt = checkHasExistingOutput newBB existingBuildingBlocks