Fix worksheet naming bug in CommonAPI (Issue #34).

src/ISADotnet/JsonIO/AssayCommonAPI.fs

@@ -93,7 +93,14 @@ module AssayCommonAPI =
 
         static member fromAssay (assay : Assay) = 
             assay.ProcessSequence |> Option.defaultValue []
-            |> List.groupBy (fun x -> x.Name.Value.Split '_' |> Array.item 0)
+            |> List.groupBy (fun x -> 
+                // Data Stewards use '_' as seperator to distinguish between protocol template types.
+                // Exmp. 1SPL01_plants, in these cases we need to find the last '_' char and remove from that index.
+                let lastUnderScoreIndex = x.Name.Value.LastIndexOf '_'
+                x.Name.Value.Remove lastUnderScoreIndex
+                // Could also be done with `x.ExecutesProtocol.Value.Name.Value`. But i am unsure if this will create further problems.
+
+            )
             |> List.map (fun (name,processes) -> RowWiseSheet.fromProcesses name processes)
             |> RowWiseAssay.create (*(assay.FileName |> Option.defaultValue "")*)
 
@@ -109,8 +116,6 @@ module AssayCommonAPI =
             File.ReadAllText path 
             |> RowWiseAssay.fromString
 
-
-
     type ParameterColumn = 
         {
             [<JsonPropertyName(@"category")>]