export additional hash lists

Updates #161
shawnlaffan · Aug 7, 2019 · 293e9ae · 293e9ae
1 parent 784f638
commit 293e9ae
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/lib/Biodiverse/Cluster.pm b/lib/Biodiverse/Cluster.pm
@@ -497,17 +497,16 @@ sub export_shapefile {
 
         my @data_for_gdal_layer;
         if ($list_name) {
-            my %list_data = $branch->get_list_values (
-                #element => $branch_name,
-                list    => $list_name,
-            );
+            my $list_data = $branch->get_list_ref (list => $list_name) // {};
 
             # write a separate shape for each label
-            foreach my $key (natsort keys %list_data) {
+            foreach my $key (natsort keys %$list_data) {
+                #  skip text vals for now
+                next if !looks_like_number ($list_data->{$key} // $nodata);
                 my %data = (
                     BRANCH  => $branch_name,
                     KEY     => $key,
-                    VALUE   => ($list_data{$key} // $nodata),
+                    VALUE   => ($list_data->{$key} // $nodata),
                 );
                 push @data_for_gdal_layer, \%data;
             }