web interface requires columns also under base table name

[APKPM.git] / lib / APKPM / CRM.pm

diff --git a/lib/APKPM/CRM.pm b/lib/APKPM/CRM.pm
index 1643c9b..1d18d04 100644 (file)
--- a/lib/APKPM/CRM.pm
+++ b/lib/APKPM/CRM.pm
@@ -11,6 +11,7 @@ with 'APKPM::Gearman';
 require RPC::XML;
 require RPC::XML::Client;
 use Encode;
+use Redis;
 
 #$RPC::XML::ENCODING = "utf-8"; # FIXME really used?
 
@@ -38,6 +39,14 @@ sub search : Job : Encode(e_json_encode) {
        my $cli = RPC::XML::Client->new($self->config('crmxml'));
        warn "RPC::XML $field $value";
        my $resp = $cli->send_request('search',RPC::XML::array->new( $field => $value ));
+
+       my $redis = Redis->new;
+       map {
+               my $key = 'CRM.' . $_->{USERNAME};
+               $redis->set( $key => $self->e_json($_) );
+               $redis->expire( $key => 15 * 60 );
+       } @{ $resp->value->[0] };
+
        return ref $resp ? $resp->value->[0] : { error => $resp };
 }