Changeset 16222 for gsdl/trunk/perllib/basebuildproc.pm
- Timestamp:
- 2008-06-27T11:44:10+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/basebuildproc.pm
r15725 r16222 63 63 $self->{'assocdir'} = $build_dir; 64 64 $self->{'dontdb'} = {}; 65 $self->{'store_metadata_coverage'} = "false"; 65 66 66 67 $self->{'index'} = "section:text"; … … 279 280 $self->{'store_text'} = $store_text; 280 281 } 282 283 sub set_store_metadata_coverage { 284 my $self = shift (@_); 285 my ($store_metadata_coverage) = @_; 286 287 $self->{'store_metadata_coverage'} = $store_metadata_coverage || ""; 288 } 289 281 290 sub get_doc_list { 282 291 my $self = shift(@_); … … 442 451 push(@{$section_infodb{$field}}, $value); 443 452 444 if ($section eq "" )453 if ($section eq "" && $self->{'store_metadata_coverage'} =~ /^true$/i) 445 454 { 446 455 $self->infodb_metadata_stats($field);
Note:
See TracChangeset
for help on using the changeset viewer.