/[webpac2]/trunk/lib/WebPAC/Output/Riak.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Output/Riak.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1358 by dpavlin, Sat Nov 13 16:00:30 2010 UTC revision 1363 by dpavlin, Mon Apr 11 17:29:59 2011 UTC
# Line 65  sub add { Line 65  sub add {
65  #       $log->debug( 'ds = ', $id, sub { dump($ds) } );  #       $log->debug( 'ds = ', $id, sub { dump($ds) } );
66    
67          my $data;          my $data;
68          $data->{$_} = join(' ', @{ $ds->{$_}->{search} }) foreach          $data->{$_->[0]} = $_->[1] foreach
69                  map { m/^\d+$/ ? $_ = $_ . '_num' : $_ }                  map {
70                  # add _num suffix for riak search https://wiki.basho.com/display/RIAK/Riak+Search+-+Schema                          my $v = join(' ', @{ $ds->{$_}->{search} });
71                            my $k = $_;
72                            if ( $v =~ m/^\d+([-\d+]*\d)?$/ ) {
73                                    $v =~ s/-//g;
74                                    $v *= 1;
75                                    # _num suffix for riak search https://wiki.basho.com/display/RIAK/Riak+Search+-+Schema
76                                    $k .= '_num';
77                            }
78                            [ $k, $v ]
79                    }
80                  grep { exists $ds->{$_}->{search} }                  grep { exists $ds->{$_}->{search} }
81                  keys %$ds;                  keys %$ds;
82    
Legend:
Removed from v.1358  
changed lines
  Added in v.1363
  ViewVC Help
Powered by ViewVC 1.1.26