r1509@llin: dpavlin | 2007-11-04 12:47:56 +0100

 Warn that there are no field names for search

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

diff --git a/lib/WebPAC/Output/Webpacus.pm b/lib/WebPAC/Output/Webpacus.pm
index 7c8bcc3..bdf5b1b 100644 (file)
--- a/lib/WebPAC/Output/Webpacus.pm
+++ b/lib/WebPAC/Output/Webpacus.pm
@@ -114,11 +114,18 @@ sub finish {
 
        my $log = $self->_get_logger();
 
-       $log->info("syncing search fields");
-
        my $fields = $self->{fields} || confess "no fields?";
        my $path = $self->path || confess "no path?";
 
+       my @field_names = %$fields;
+
+       if ( ! @field_names ) {
+               $log->warn("normalization rules don't produce any data for search!");
+               return;
+       }
+
+       $log->info("syncing search fields: ", join(", ", @field_names));
+
        $log->debug("fields = ", sub { dump $fields });
 
        my $webpac_dir = getcwd();
@@ -132,7 +139,7 @@ sub finish {
 
        my ( $count, $new, $updated ) = ( 0, 0, 0 );
 
-       foreach my $field ( keys %$fields ) {
+       foreach my $field ( @field_names ) {
                my $items = $fields->{$field} || confess "no field?";
 
                my ( $id, $msg ) = $o->load_by_cols( name => $field );