Changeset 21643 for main/trunk/greenstone2
- Timestamp:
- 2010-01-26T17:17:32+13:00 (14 years ago)
- Location:
- main/trunk/greenstone2/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/IncrementalBuildUtils.pm
r21642 r21643 71 71 sub addDocument() 72 72 { 73 my ($collection, $ doc_obj, $section, $updateindex) = @_;73 my ($collection, $infodbtype, $doc_obj, $section, $updateindex) = @_; 74 74 75 75 $updateindex = 0 unless defined($updateindex); 76 76 77 print STDERR "IncrementalBuildUtils::addDocument('$collection',$ doc_obj,'$section')\n" unless !$debug;77 print STDERR "IncrementalBuildUtils::addDocument('$collection',$infodbtype,$doc_obj,'$section')\n" unless !$debug; 78 78 # Gonna need to know in several places whether this is the top section 79 79 # of the document or not … … 140 140 { 141 141 foreach my $subsection (@{$section_ptr->{'subsection_order'}}) { 142 &addDocument($collection, $ doc_obj, "$section.$subsection");142 &addDocument($collection, $infodbtype, $doc_obj, "$section.$subsection"); 143 143 push(@contains, "\".$subsection"); 144 144 } -
main/trunk/greenstone2/perllib/lucenebuildproc.pm
r20732 r21643 498 498 } 499 499 print STDERR "\n*** incrementally add metadata from document at: " . $file . "\n" if ($self->{'verbosity'} > 3); 500 &IncrementalBuildUtils::addDocument($self->{'collection'}, $ doc_obj, $doc_obj->get_top_section());500 &IncrementalBuildUtils::addDocument($self->{'collection'}, $self->{'infodbtype'}, $doc_obj, $doc_obj->get_top_section()); 501 501 } 502 502 else
Note:
See TracChangeset
for help on using the changeset viewer.