From b90b0cca5a133e89f8af15f09e100504feebd28c Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 16 Dec 2010 18:44:21 +0100 Subject: [PATCH] extract dependent columns using evil regex --- lib/MojoFacets/Data.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm index d5b4cf5..cb1bff0 100644 --- a/lib/MojoFacets/Data.pm +++ b/lib/MojoFacets/Data.pm @@ -875,8 +875,14 @@ sub items { warn "# sorted_items ", $#$sorted_items + 1, " offset $offset limit $limit order $sort"; - my $code_depends = $self->param('code_depends')|| - join(',', sort grep { $test_changed->{$_} == 0 } keys %$test_changed ); +# my @changed_cols = join(',', sort grep { $test_changed->{$_} == 0 } keys %$test_changed ); + my $depends_on; + my $tmp = $code; $tmp =~ s/\$row->{(['"]?)(\w+)\1/$depends_on->{$2}++/gse; + warn "# depends_on ",dump $depends_on; + + my $code_depends = $self->param('code_depends') + || join(',', keys %$depends_on); + my $code_description = $self->param('code_description') || join(',', @added_columns); -- 2.20.1