From c0bdeb5d4b21081f9458bcbcb20e1c5e616ac1a9 Mon Sep 17 00:00:00 2001
From: shawnlaffan <shawnlaffan@gmail.com>
Date: Mon, 23 Oct 2023 10:21:28 +1100
Subject: [PATCH] GUI: use specified sheet in spreadsheet imports

---
 lib/Biodiverse/GUI/BasedataImport.pm | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/lib/Biodiverse/GUI/BasedataImport.pm b/lib/Biodiverse/GUI/BasedataImport.pm
index e8bc87321..b934b657a 100644
--- a/lib/Biodiverse/GUI/BasedataImport.pm
+++ b/lib/Biodiverse/GUI/BasedataImport.pm
@@ -324,6 +324,9 @@ sub run {
     my $col_options = undef;
     my $use_matrix;
 
+    #  need to find which one they want
+    my $spreadsheet_sheet_id = 1;
+
     # (no pre-processing needed for raster)
 
     if ( $read_format eq 'raster' ) {
@@ -442,8 +445,6 @@ sub run {
             my @sheet_names =
               sort { $sheets->{$a} <=> $sheets->{$b} } keys %$sheets;
 
-            #  need to find which one they want
-            my $sheet_id = 1;
 
             my $param = bless {
                 type    => 'choice',
@@ -472,9 +473,9 @@ sub run {
 
             my $chosen_params = $parameters_table->extract($extractors);
             my %chosen_params = @$chosen_params;
-            $sheet_id = $sheets->{ $chosen_params{'sheet_id'} };
+            $spreadsheet_sheet_id = $sheets->{ $chosen_params{'sheet_id'} };
 
-            my @rows = Spreadsheet::Read::rows( $book->[$sheet_id] );
+            my @rows = Spreadsheet::Read::rows( $book->[$spreadsheet_sheet_id] );
 
             @header     = @{ $rows[0] };
             @line2_cols = @{ $rows[1] };
@@ -759,6 +760,12 @@ sub run {
                 }
             }
         }
+        elsif ($read_format eq 'spreadsheet') {
+            #  repetition is perhaps overkill but 
+            #  sometimes but any extras are ignored
+            $rest_of_options{sheet_ids} 
+              = [($spreadsheet_sheet_id) x @filenames];
+        }
 
         my $import_method = "import_data_$read_format";