Enable check for metadata sheetname and is meta data sheet

nfdi4plants · Oct 18, 2024 · 100fc34 · 100fc34
1 parent b2b6e8b
commit 100fc34
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Spreadsheet/Template.fs b/src/Spreadsheet/Template.fs
@@ -239,6 +239,12 @@ module Template =
             (ResizeArray tags)  
             lastUpdated
 
+    let isMetadataSheetName (name : string) =
+        name = metaDataSheetName || name = obsoletemetaDataSheetName
+
+    let isMetadataSheet (sheet : FsWorksheet) =
+        isMetadataSheetName sheet.Name
+
     let toMetadataSheet (template : Template) : FsWorksheet =        
         let sheet = FsWorksheet(metaDataSheetName)
         Template.toRows template