Changeset 17564 for gsdl/trunk/perllib/mgppbuilder.pm

Timestamp:

2008-10-20T15:33:25+13:00 (16 years ago)

Author:

kjdon

Message:

fixed up some stuff to do with indexfieldmap. still working on it, but want to commit what I've done

File:

• gsdl/trunk/perllib/mgppbuilder.pm (modified) (6 diffs)

gsdl/trunk/perllib/mgppbuilder.pm

@@ -63 +63 @@
                'wa'=>1);
 
-# change this so a user can add their own ones in via a file or cfg
-#add AND, OR, NOT NEAR to this list - these cannot be used as field names
-#also add the level names (Doc, Sec, Para)
-our %static_indexfield_map = ('Title'=>'TI',
-              'TI'=>1,
-              'Subject'=>'SU',
-              'SU'=>1,
-              'Creator'=>'CR',
-              'CR'=>1,
-              'Organization'=>'ORG',
-              'ORG'=>1,
-              'Source'=>'SO',
-              'SO'=>1,
-              'Howto'=>'HT',
-              'HT'=>1,
-              'ItemTitle'=>'IT',
-              'IT'=>1,
-              'ProgNumber'=>'PN',
-              'PN'=>1,
-              'People'=>'PE',
-              'PE'=>1,
-              'Coverage'=>'CO',
-              'CO'=>1,
-              'allfields'=>'ZZ',
-              'ZZ'=>1,
-              'text'=>'TX',
-              'TX'=>1,
-              'AND'=>1,
-              'OR'=>1,
-              'NOT'=>1,
-              'NEAR'=>1,
-              'Doc'=>1,
-              'Sec'=>1,
-              'Para'=>1);
 
 my $maxdocsize = $basebuilder::maxdocsize;
@@ -106 +72 @@
     $self = bless $self, $class;
 
-    $self->{'indexfieldmap'} = \%static_indexfield_map;
+    #$self->{'indexfieldmap'} = \%static_indexfield_map;
 
     # get the levels (Section, Paragraph) for indexing and compression
@@ -248 +214 @@
     $self->{'buildproc'}->set_index ($textindex);
     $self->{'buildproc'}->set_indexing_text (0);
-    $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'});
+    #$self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'});
     $self->{'buildproc'}->set_levels ($self->{'levels'});                      
     $self->{'buildproc'}->set_db_level ($db_level);                       
@@ -506 +472 @@
     $self->{'buildproc'}->set_index_languages ($language_metadata, $langarr) if (defined $language);
     $self->{'buildproc'}->set_indexing_text (1);
-    $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'});
+    #$self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'});
     $self->{'buildproc'}->set_levels ($self->{'levels'}); 
     $self->{'buildproc'}->set_db_level ($db_level);   
@@ -797 +763 @@
     my @indexmap = ();
 
+    print STDERR "in final field list\n";
     if (scalar(keys %{$self->{'buildproc'}->{'indexfieldmap'}}) == 0) {
     # set the default mapping
-    $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'});
+    #$self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'});
     }
     # we read the stuff in from the build.cfg file - if its there
@@ -822 +789 @@
 
     if (defined $buildcfg->{'indexfieldmap'}) {
+    print STDERR "found index field map\n";
     foreach $field (@{$buildcfg->{'indexfieldmap'}}) {
         push (@indexfieldmap, "$field");