fix: Add a new sheet for categories to the import spreadsheet template (

#9925)

cgi/generate_sample_import_file.pl

@@ -35,6 +35,7 @@
 use ProductOpener::Producers qw/generate_import_export_columns_groups_for_select2/;
 use ProductOpener::Tags qw/%language_fields %tags_fields/;
 use ProductOpener::Food qw/default_unit_for_nid/;
+use ProductOpener::TaxonomySuggestions qw/:all/;
 
 use Apache2::RequestRec ();
 use Apache2::Const ();
@@ -54,6 +55,8 @@
 
 my $workbook = Excel::Writer::XLSX->new(\*STDOUT);
 my $worksheet = $workbook->add_worksheet();
+my $worksheet_categories = $workbook->add_worksheet(lang("categories"));
+
 my %formats = (
 	normal => $workbook->add_format(border => 1, bold => 1),
 	mandatory => $workbook->add_format(
@@ -249,4 +252,11 @@
 	}
 }
 
+my $tagtype = "categories";
+my @category_entries = ProductOpener::TaxonomySuggestions::generate_sorted_list_of_taxonomy_entries($tagtype, $lc, {});
+foreach my $i (0 .. $#category_entries) {
+	my $category_entry = display_taxonomy_tag($lc, $tagtype, $category_entries[$i]);
+	$worksheet_categories->write($i, 0, $category_entry);
+}
+
 exit(0);

lib/ProductOpener/TaxonomySuggestions.pm

@@ -38,6 +38,7 @@ BEGIN {
 	@EXPORT_OK = qw(
 		&get_taxonomy_suggestions_with_synonyms
 		&get_taxonomy_suggestions
+		&generate_sorted_list_of_taxonomy_entries
 	);    # symbols to export on request
 	%EXPORT_TAGS = (all => [@EXPORT_OK]);
 }