if ( $code && ( $test || $commit ) ) {
# XXX find columns used in code snippet and show them to user
foreach my $column ( $code =~ m/\$row->{(.+?)}/g ) {
if ( $code && ( $test || $commit ) ) {
# XXX find columns used in code snippet and show them to user
foreach my $column ( $code =~ m/\$row->{(.+?)}/g ) {
}
next if grep { /$column/ } @columns;
unshift @columns, $column;
}
next if grep { /$column/ } @columns;
unshift @columns, $column;
if ( $commit ) {
$self->session('columns', [ @columns ]);
$loaded->{$path}->{columns} = [ @columns ];
if ( $commit ) {
$self->session('columns', [ @columns ]);
$loaded->{$path}->{columns} = [ @columns ];
numeric => { map { $_, $self->_is_numeric($_) } @columns },
filters => $self->_current_filters,
code => $code,
numeric => { map { $_, $self->_is_numeric($_) } @columns },
filters => $self->_current_filters,
code => $code,