Changeset 14666

Show
Ignore:
Timestamp:
11.10.2007 12:28:28 (12 years ago)
Author:
anna
Message:

Undoing commit of r14657.

Files:
1 modified

Legend:

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

    r14657 r14666  
    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