git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1363
07558da8-63fa-0310-ba24-
9fe276d99e06
# $log->debug( 'ds = ', $id, sub { dump($ds) } );
my $data;
# $log->debug( 'ds = ', $id, sub { dump($ds) } );
my $data;
- $data->{$_} = join(' ', @{ $ds->{$_}->{search} }) foreach
- map { m/^\d+$/ ? $_ = $_ . '_num' : $_ }
- # add _num suffix for riak search https://wiki.basho.com/display/RIAK/Riak+Search+-+Schema
+ $data->{$_->[0]} = $_->[1] foreach
+ map {
+ my $v = join(' ', @{ $ds->{$_}->{search} });
+ my $k = $_;
+ if ( $v =~ m/^\d+([-\d+]*\d)?$/ ) {
+ $v =~ s/-//g;
+ $v *= 1;
+ # _num suffix for riak search https://wiki.basho.com/display/RIAK/Riak+Search+-+Schema
+ $k .= '_num';
+ }
+ [ $k, $v ]
+ }
grep { exists $ds->{$_}->{search} }
keys %$ds;
grep { exists $ds->{$_}->{search} }
keys %$ds;