Changeset 15725 for gsdl/trunk/perllib/basebuildproc.pm
- Timestamp:
- 2008-05-27T15:02:16+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/basebuildproc.pm
r15708 r15725 225 225 } 226 226 227 sub set_infodbtype 228 { 229 my $self = shift(@_); 230 my $infodbtype = shift(@_); 231 $self->{'infodbtype'} = $infodbtype; 232 } 233 227 234 sub set_index { 228 235 my $self = shift (@_); … … 429 436 # special case for URL metadata 430 437 if ($field =~ /^URL$/i) { 431 &dbutil::write_infodb_entry($ infodb_handle, $value, { 'section' => [ $section_OID ] });438 &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $value, { 'section' => [ $section_OID ] }); 432 439 } 433 440 … … 506 513 } 507 514 508 &dbutil::write_infodb_entry($ infodb_handle, $section_OID, \%section_infodb);515 &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $section_OID, \%section_infodb); 509 516 510 517 # output a database entry for the document number 511 518 if ($self->{'db_level'} eq "document") { 512 &dbutil::write_infodb_entry($ infodb_handle, $self->{'num_docs'}, { 'section' => [ $doc_OID ] });519 &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $self->{'num_docs'}, { 'section' => [ $doc_OID ] }); 513 520 } 514 521 else { 515 &dbutil::write_infodb_entry($ infodb_handle, $self->{'num_sections'}, { 'section' => [ $section_OID ] });522 &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $self->{'num_sections'}, { 'section' => [ $section_OID ] }); 516 523 } 517 524
Note:
See TracChangeset
for help on using the changeset viewer.