From 4fde37c9ffd336ea4155bb1398da758d15091eb8 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 31 Mar 2011 19:40:18 +0200 Subject: [PATCH] fuzzy select lookup dataset name --- lib/MojoFacets/Data.pm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm index 83fce08..9f4d53e 100644 --- a/lib/MojoFacets/Data.pm +++ b/lib/MojoFacets/Data.pm @@ -651,6 +651,14 @@ sub lookup { warn "# lookup ",dump @_; my ( $vals, $on_path, $on_col, $code ) = @_; die "code is not sub{ ... } but ", dump $code unless ref $code eq 'CODE'; + + if ( ! exists $loaded->{$on_path} ) { + my @possible_paths = grep { /\Q$on_path\E/ } keys %$loaded; + die "more than one dataset available for '$on_path' ",dump @possible_paths if $#possible_paths > 0; + $on_path = shift @possible_paths; + warn "## fuzzy selected path $on_path"; + } + my $items = $loaded->{$on_path}->{data}->{items} || die "no items for $on_path"; if ( ! exists $lookup_path_col->{$on_path}->{$on_col} ) { -- 2.20.1