diff --git a/instat/dlgImportDataset.vb b/instat/dlgImportDataset.vb
index 7aef17acda3..8851b8888e9 100644
--- a/instat/dlgImportDataset.vb
+++ b/instat/dlgImportDataset.vb
@@ -616,9 +616,7 @@ Public Class dlgImportDataset
'get the name of the file (without extension), with any special characters removed
strFileName = GetCleanFileName(strFilePath)
strCurrentDirectory = Path.GetDirectoryName(strFilePath)
- If Not bFromLibrary Then
- strFileExtension = Path.GetExtension(strFilePath).ToLower()
- End If
+ strFileExtension = Path.GetExtension(strFilePath).ToLower()
ElseIf Directory.Exists(strFilePath) AndAlso strNewFileExt <> "" Then
strCurrentDirectory = strFilePath
strFileExtension = strNewFileExt
@@ -660,7 +658,7 @@ Public Class dlgImportDataset
End If
ucrBase.clsRsyntax.SetBaseRFunction(clsImportMultipleFiles)
Else
- 'enable multiple files import for the following files only
+ 'don't enable multiple files import for the following files only; .rds, .xlsx, .xls
ucrChkMultipleFiles.SetVisible(Not (strFileExtension = ".rds" OrElse strFileExtension = ".xlsx" OrElse strFileExtension = ".xls"))
'TODO This needs to be different when RDS is a data frame
diff --git a/instat/frmMain.Designer.vb b/instat/frmMain.Designer.vb
index 44e4ad98169..2b34a7ae071 100644
--- a/instat/frmMain.Designer.vb
+++ b/instat/frmMain.Designer.vb
@@ -207,6 +207,7 @@ Partial Class frmMain
Me.mnuClimaticTidyandExamineMerge = New System.Windows.Forms.ToolStripMenuItem()
Me.mnuClimaticTidyandExamineAppend = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator69 = New System.Windows.Forms.ToolStripSeparator()
+ Me.mnuSetupForDataEntry = New System.Windows.Forms.ToolStripMenuItem()
Me.mnuTidyandExamineClimaticDataEntry = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator50 = New System.Windows.Forms.ToolStripSeparator()
Me.mnuClimaticTidyandExamineOneVariableSummarize = New System.Windows.Forms.ToolStripMenuItem()
@@ -1545,7 +1546,7 @@ Partial Class frmMain
'
'mnuClimaticTidyandExamine
'
- Me.mnuClimaticTidyandExamine.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticTidyandExamineVisualiseData, Me.mnuClimaticTidyandExamineTidyDailyData, Me.mnuClimaticTidyandExamineNonNumericCases, Me.mnuClimaticTidyandExamineReplaceValues, Me.mnuClimaticTidyandExamineDuplicates, Me.ToolStripSeparator54, Me.mnuClimaticTidyandExamineStack, Me.mnuClimaticTidyandExamineUnstack, Me.mnuClimaticTidyandExamineMerge, Me.mnuClimaticTidyandExamineAppend, Me.ToolStripSeparator69, Me.mnuTidyandExamineClimaticDataEntry, Me.ToolStripSeparator50, Me.mnuClimaticTidyandExamineOneVariableSummarize, Me.mnuClimaticTidyandExamineOneVariableGraph, Me.mnuClimaticTidyandExamineOneVariableFrequencies})
+ Me.mnuClimaticTidyandExamine.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticTidyandExamineVisualiseData, Me.mnuClimaticTidyandExamineTidyDailyData, Me.mnuClimaticTidyandExamineNonNumericCases, Me.mnuClimaticTidyandExamineReplaceValues, Me.mnuClimaticTidyandExamineDuplicates, Me.ToolStripSeparator54, Me.mnuClimaticTidyandExamineStack, Me.mnuClimaticTidyandExamineUnstack, Me.mnuClimaticTidyandExamineMerge, Me.mnuClimaticTidyandExamineAppend, Me.ToolStripSeparator69, Me.mnuSetupForDataEntry, Me.mnuTidyandExamineClimaticDataEntry, Me.ToolStripSeparator50, Me.mnuClimaticTidyandExamineOneVariableSummarize, Me.mnuClimaticTidyandExamineOneVariableGraph, Me.mnuClimaticTidyandExamineOneVariableFrequencies})
Me.mnuClimaticTidyandExamine.Name = "mnuClimaticTidyandExamine"
resources.ApplyResources(Me.mnuClimaticTidyandExamine, "mnuClimaticTidyandExamine")
'
@@ -1604,6 +1605,11 @@ Partial Class frmMain
Me.ToolStripSeparator69.Name = "ToolStripSeparator69"
resources.ApplyResources(Me.ToolStripSeparator69, "ToolStripSeparator69")
'
+ 'mnuSetupForDataEntry
+ '
+ Me.mnuSetupForDataEntry.Name = "mnuSetupForDataEntry"
+ resources.ApplyResources(Me.mnuSetupForDataEntry, "mnuSetupForDataEntry")
+ '
'mnuTidyandExamineClimaticDataEntry
'
Me.mnuTidyandExamineClimaticDataEntry.Name = "mnuTidyandExamineClimaticDataEntry"
@@ -4824,4 +4830,5 @@ Partial Class frmMain
Friend WithEvents ToolStripSeparator70 As ToolStripSeparator
Friend WithEvents mnuClimaticCheckDataCheckStationLocations As ToolStripMenuItem
Friend WithEvents mnuClimaticFileImportfromClimateDataStore As ToolStripMenuItem
+ Friend WithEvents mnuSetupForDataEntry As ToolStripMenuItem
End Class
diff --git a/instat/frmMain.resx b/instat/frmMain.resx
index 52cf944df81..8f3df258a4e 100644
--- a/instat/frmMain.resx
+++ b/instat/frmMain.resx
@@ -1151,6 +1151,15 @@
212, 6
+
+ 215, 22
+
+
+ Setup for Data Entry...
+
+
+ False
+
215, 22
@@ -7446,6 +7455,12 @@
System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+ mnuSetupForDataEntry
+
+
+ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
mnuTidyandExamineClimaticDataEntry
diff --git a/instat/frmMain.vb b/instat/frmMain.vb
index 6fd1c537d1f..7e4e8940136 100644
--- a/instat/frmMain.vb
+++ b/instat/frmMain.vb
@@ -2360,4 +2360,8 @@ Public Class frmMain
Private Sub mnuClimaticFileImportfromClimateDataStore_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileImportfromClimateDataStore.Click
dlgImportERA5Data.ShowDialog()
End Sub
+
+ Private Sub mnuSetupForDataEntry_Click(sender As Object, e As EventArgs) Handles mnuSetupForDataEntry.Click
+ dlgSetupForDataEntry.ShowDialog()
+ End Sub
End Class