From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 11 Apr 2011 17:29:59 +0000 (+0000)
Subject: use _num suffix for numeric fields
X-Git-Url: http://git.rot13.org/?p=webpac2;a=commitdiff_plain;h=3eabb7ced8c6ee95b52bdfaf64cdc51e0b518eb6

use _num suffix for numeric fields

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1363 07558da8-63fa-0310-ba24-9fe276d99e06
---

diff --git a/lib/WebPAC/Output/Riak.pm b/lib/WebPAC/Output/Riak.pm
index 852d0b5..4dd47a2 100644
--- a/lib/WebPAC/Output/Riak.pm
+++ b/lib/WebPAC/Output/Riak.pm
@@ -65,9 +65,18 @@ sub add {
 #	$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;