114 |
|
|
115 |
my $log = $self->_get_logger(); |
my $log = $self->_get_logger(); |
116 |
|
|
|
$log->info("syncing search fields"); |
|
|
|
|
117 |
my $fields = $self->{fields} || confess "no fields?"; |
my $fields = $self->{fields} || confess "no fields?"; |
118 |
my $path = $self->path || confess "no path?"; |
my $path = $self->path || confess "no path?"; |
119 |
|
|
120 |
|
my @field_names = %$fields; |
121 |
|
|
122 |
|
if ( ! @field_names ) { |
123 |
|
$log->warn("normalization rules don't produce any data for search!"); |
124 |
|
return; |
125 |
|
} |
126 |
|
|
127 |
|
$log->info("syncing search fields: ", join(", ", @field_names)); |
128 |
|
|
129 |
$log->debug("fields = ", sub { dump $fields }); |
$log->debug("fields = ", sub { dump $fields }); |
130 |
|
|
131 |
my $webpac_dir = getcwd(); |
my $webpac_dir = getcwd(); |
139 |
|
|
140 |
my ( $count, $new, $updated ) = ( 0, 0, 0 ); |
my ( $count, $new, $updated ) = ( 0, 0, 0 ); |
141 |
|
|
142 |
foreach my $field ( keys %$fields ) { |
foreach my $field ( @field_names ) { |
143 |
my $items = $fields->{$field} || confess "no field?"; |
my $items = $fields->{$field} || confess "no field?"; |
144 |
|
|
145 |
my ( $id, $msg ) = $o->load_by_cols( name => $field ); |
my ( $id, $msg ) = $o->load_by_cols( name => $field ); |