Changeset 17565 for gsdl/trunk/perllib
- Timestamp:
- 2008-10-22T13:24:14+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/mgppbuilder.pm
r17564 r17565 613 613 # eg <TI>Title 614 614 # <SU>Subject 615 # these now come from collection meta. if that is not defined, us ses the metadata name615 # these now come from collection meta. if that is not defined, uses the metadata name 616 616 my $collmeta = ""; 617 617 foreach my $longfield (@{$self->{'build_cfg'}->{'indexfields'}}){ … … 763 763 my @indexmap = (); 764 764 765 print STDERR "in final field list\n"; 766 if (scalar(keys %{$self->{'buildproc'}->{'indexfieldmap'}}) == 0) { 765 #if (scalar(keys %{$self->{'buildproc'}->{'indexfieldmap'}}) == 0) { 767 766 # set the default mapping 768 767 #$self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'}); 769 }768 #} 770 769 # we read the stuff in from the build.cfg file - if its there 771 770 my $buildconfigfile = &util::filename_cat($self->{'build_dir'}, "build.cfg"); … … 789 788 790 789 if (defined $buildcfg->{'indexfieldmap'}) { 791 print STDERR "found index field map\n";792 790 foreach $field (@{$buildcfg->{'indexfieldmap'}}) { 793 791 push (@indexfieldmap, "$field");
Note:
See TracChangeset
for help on using the changeset viewer.