Changeset 15685
- Timestamp:
- 2008-05-23T15:33:58+12:00 (16 years ago)
- Location:
- gsdl/trunk/perllib
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/basebuildproc.pm
r14934 r15685 120 120 $self->{'store_text'} = 1; 121 121 122 # what level (section/document) the gdbmdatabase - indexer intersection is123 $self->{' gdbm_level'} = "section";122 # what level (section/document) the database - indexer intersection is 123 $self->{'db_level'} = "section"; 124 124 #used by browse interface 125 125 $self->{'doclist'} = []; … … 276 276 } 277 277 278 # the standard gdbmlevel is section, but you may want to change it to document279 sub set_ gdbm_level {278 # the standard database level is section, but you may want to change it to document 279 sub set_db_level { 280 280 my $self= shift (@_); 281 my ($ gdbm_level) = @_;282 283 $self->{' gdbm_level'} = $gdbm_level;281 my ($db_level) = @_; 282 283 $self->{'db_level'} = $db_level; 284 284 } 285 285 … … 491 491 492 492 493 if ($self->{' gdbm_level'} eq "document") {493 if ($self->{'db_level'} eq "document") { 494 494 # doc num is num_docs not num_sections 495 495 # output the matching document number … … 526 526 527 527 # output a database entry for the document number 528 if ($self->{' gdbm_level'} eq "document") {528 if ($self->{'db_level'} eq "document") { 529 529 print $handle "[$self->{'num_docs'}]\n"; 530 530 print $handle "<section>$doc_OID\n"; … … 544 544 $first = 0; 545 545 $section = $doc_obj->get_next_section($section); 546 last if ($self->{' gdbm_level'} eq "document"); # if no sections wanted, only gdbmthe docs546 last if ($self->{'db_level'} eq "document"); # if no sections wanted, only add the docs 547 547 } 548 548 -
gsdl/trunk/perllib/cfgread4gs3.pm
r15619 r15685 577 577 my $default_search_level = "Doc"; 578 578 my $default_retrieve_level = "Doc"; 579 my $default_ gdbm_level = "Doc";579 my $default_db_level = "Doc"; 580 580 $first = 1; 581 581 if ($buildtype eq "mgpp" || $buildtype eq "lucene") { … … 589 589 # let default search level follow the first level in the level list 590 590 $default_search_level = $val; 591 # retrieve/ GDBMlevels may get modified later if text level is defined591 # retrieve/database levels may get modified later if text level is defined 592 592 $default_retrieve_level = $val; 593 $default_ gdbm_level = $val;593 $default_db_level = $val; 594 594 $first = 0; 595 595 } … … 603 603 604 604 if (defined $buildcfg->{'textlevel'}) { 605 # let the retrieve/ gdbmlevels always follow the textlevel605 # let the retrieve/database levels always follow the textlevel 606 606 $default_retrieve_level = $buildcfg->{'textlevel'}; 607 $default_ gdbm_level = $buildcfg->{'textlevel'};607 $default_db_level = $buildcfg->{'textlevel'}; 608 608 609 609 } … … 623 623 } 624 624 if ($buildtype eq "lucene" || $buildtype eq "mgpp") { 625 # make the GDBM level 626 &write_line('COLCFG', ["<defaultDBLevel shortname=\"", $default_gdbm_level, "\" />"]); 625 &write_line('COLCFG', ["<defaultDBLevel shortname=\"", $default_db_level, "\" />"]); 627 626 } 628 627 # do searchTypeList -
gsdl/trunk/perllib/lucenebuilder.pm
r15003 r15685 159 159 # stored text is always Doc and Sec levels 160 160 my $levels = { 'document' => 1, 'section' => 1 }; 161 # always do gdbmat section level162 my $ gdbm_level = "section";161 # always do database at section level 162 my $db_level = "section"; 163 163 164 164 # set up the document processr … … 169 169 $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'}); 170 170 $self->{'buildproc'}->set_levels ($levels); 171 $self->{'buildproc'}->set_ gdbm_level ($gdbm_level);171 $self->{'buildproc'}->set_db_level ($db_level); 172 172 $self->{'buildproc'}->reset(); 173 173 &plugin::begin($self->{'pluginfo'}, $self->{'source_dir'}, … … 320 320 321 321 my $store_levels = $self->{'levels'}; 322 my $ gdbm_level = "section"; #always322 my $db_level = "section"; #always 323 323 my $dom_level = ""; 324 324 foreach my $key (keys %$store_levels) { … … 342 342 $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'}); 343 343 $self->{'buildproc'}->set_levels ($local_levels); 344 $self->{'buildproc'}->set_ gdbm_level($gdbm_level);344 $self->{'buildproc'}->set_db_level($db_level); 345 345 $self->{'buildproc'}->reset(); 346 346 &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, -
gsdl/trunk/perllib/lucenebuildproc.pm
r14934 r15685 92 92 if ($ldoc_level) 93 93 { 94 if ($self->{' gdbm_level'} eq 'document')94 if ($self->{'db_level'} eq 'document') 95 95 { 96 96 my $doc_sec_num = $self->{'num_docs'}; … … 386 386 $section = $doc_obj->get_next_section($section); 387 387 # if no sections wanted, only gdbm the docs 388 last if ($self->{' gdbm_level'} eq "document");388 last if ($self->{'db_level'} eq "document"); 389 389 } 390 390 print STDERR "\n*** incrementally add metadata from document at: " . $file . "\n"; -
gsdl/trunk/perllib/mgppbuilder.pm
r15003 r15685 241 241 } 242 242 243 my $ gdbm_level = "section";243 my $db_level = "section"; 244 244 245 245 $self->{'buildproc'}->set_output_handle ($handle); … … 249 249 $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'}); 250 250 $self->{'buildproc'}->set_levels ($self->{'levels'}); 251 $self->{'buildproc'}->set_ gdbm_level ($gdbm_level);251 $self->{'buildproc'}->set_db_level ($db_level); 252 252 $self->{'buildproc'}->reset(); 253 253 &plugin::begin($self->{'pluginfo'}, $self->{'source_dir'}, … … 497 497 } 498 498 499 # gdbm_level is always section500 my $ gdbm_level = "section";499 # db_level is always section 500 my $db_level = "section"; 501 501 502 502 # set up the document processr … … 508 508 $self->{'buildproc'}->set_indexfieldmap ($self->{'indexfieldmap'}); 509 509 $self->{'buildproc'}->set_levels ($self->{'levels'}); 510 $self->{'buildproc'}->set_ gdbm_level ($gdbm_level);510 $self->{'buildproc'}->set_db_level ($db_level); 511 511 512 512 $self->{'buildproc'}->reset();
Note:
See TracChangeset
for help on using the changeset viewer.