Add minor fixes

nfdi4plants · Mar 8, 2021 · d75743c · d75743c
1 parent e44cd6e
commit d75743c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/Client/CustomComponents/AutocompleteSearch.fs b/src/Client/CustomComponents/AutocompleteSearch.fs
@@ -261,6 +261,7 @@ let autocompleteTermSearchComponent
     Control.div [Control.IsExpanded] [
         AdvancedSearch.advancedSearchModal model autocompleteParams.ModalId autocompleteParams.InputId dispatch autocompleteParams.OnAdvancedSearch
         Input.input [
+            Input.Props [Style [BorderColor ExcelColors.Colorfull.gray40]]
             Input.Disabled isDisabled
             Input.Placeholder inputPlaceholderText
             Input.ValueOrDefault autocompleteParams.StateBinding

diff --git a/src/Client/OfficeInterop/OfficeInterop.fs b/src/Client/OfficeInterop/OfficeInterop.fs
@@ -607,7 +607,7 @@ let addAnnotationBlocksAsProtocol (buildingBlockInfoList:MinimalBuildingBlock li
                         currentProtocolGroup.Value.Protocols
                         |> List.tryFind ( fun existingProtocol ->
                             if buildingBlockInfoList |> List.exists (fun x -> x.IsAlreadyExisting = true) then
-                                existingProtocol.Id = protocol.Id
+                                existingProtocol.Id = protocol.Id && existingProtocol.ProtocolVersion = protocol.ProtocolVersion
                             else
                                 false
                         )