Changeset 14374

Show
Ignore:
Timestamp:
15.08.2007 13:02:53 (12 years ago)
Author:
mdewsnip
Message:

Fix to problem where the "indexmap" line would be lost from the build.cfg file when running buildcol.pl with "-mode infodb".

Location:
gsdl/trunk/perllib
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/basebuilder.pm

    r14245 r14374  
    440440    } 
    441441    } 
    442     $build_cfg->{'indexmap'} = \@indexmap; 
     442    $build_cfg->{'indexmap'} = \@indexmap if scalar (@indexmap); 
    443443 
    444444    my @subcollectionmap = (); 
  • gsdl/trunk/perllib/mgppbuilder.pm

    r13813 r14374  
    789789    my @indexfieldmap = (); 
    790790    my @indexfields = (); 
    791      
     791    my @indexmap = (); 
     792 
    792793    if (scalar(keys %{$self->{'buildproc'}->{'indexfieldmap'}}) == 0) { 
    793794    # set the default mapping 
     
    822823    }        
    823824 
     825    if (defined $buildcfg->{'indexmap'}) { 
     826    foreach $field (@{$buildcfg->{'indexmap'}}) { 
     827        push (@indexmap, "$field"); 
     828    } 
     829    }        
     830 
    824831    $self->{'build_cfg'}->{'indexfieldmap'} = \@indexfieldmap; 
    825832    $self->{'build_cfg'}->{'indexfields'} = \@indexfields; 
     833    $self->{'build_cfg'}->{'indexmap'} = \@indexmap; 
    826834} 
    827835