Changeset 12974
- Timestamp:
- 2006-10-03T12:01:31+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/lucenebuilder.pm
r12910 r12974 54 54 sub new { 55 55 my $class = shift(@_); 56 my ($collection, $source_dir, $build_dir, $verbosity, $maxdocs, $debug, $keepold, $allclassifications, $outhandle, $no_text, $faillog, $gli, $incremental) = @_;57 58 56 my $self = new mgppbuilder (@_); 59 57 $self = bless $self, $class; … … 78 76 $self->{'full_lucene_passes_exe'} = "perl -S \"$lucene_passes_script\""; 79 77 } 80 81 # We must also record whether we have been asked to do just an incremental82 # build (which makes no difference to the Lucene indexing bit, just the83 # building of the classifiers in the GDBM).84 $self->{'incremental'} = $incremental;85 78 86 79 return $self; … … 403 396 # already exists. If it doesn't, let the super classes function be 404 397 # called once to generate it. 405 if (!$self->{'incremental '} || !(-e $infodb_file))398 if (!$self->{'incremental_dlc'} || !(-e $infodb_file)) 406 399 { 407 400 # basebuilder::make_infodatabase(@_);
Note:
See TracChangeset
for help on using the changeset viewer.