Changeset 21644 for main/trunk/greenstone2/perllib/IncrementalBuildUtils.pm
- Timestamp:
- 2010-01-26T17:23:28+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/IncrementalBuildUtils.pm
r21643 r21644 90 90 if ($key eq "docnum") 91 91 { 92 &setDocumentMetadata($collection, $ doc_obj->get_OID() . "$section", $key, "", $value, $updateindex);92 &setDocumentMetadata($collection, $infodbtype, $doc_obj->get_OID() . "$section", $key, "", $value, $updateindex); 93 93 $found_docnum = 1; 94 94 } … … 119 119 } 120 120 # Go ahead and set the metadata 121 &setDocumentMetadata($collection, $ doc_obj->get_OID() . "$section", $key, "", $value, $updateindex);121 &setDocumentMetadata($collection, $infodbtype, $doc_obj->get_OID() . "$section", $key, "", $value, $updateindex); 122 122 } 123 123 } … … 195 195 sub setDocumentMetadata() 196 196 { 197 my ($collection, $ oid, $key, $old_value, $new_value, $updateindex) = @_;198 print STDERR "IncrementalBuildUtils::setDocumentMetadata('$collection', '$oid','$key','$old_value','$new_value',$updateindex)\n" unless !$debug;197 my ($collection, $infodbtype, $oid, $key, $old_value, $new_value, $updateindex) = @_; 198 print STDERR "IncrementalBuildUtils::setDocumentMetadata('$collection',$infodbtype,'$oid','$key','$old_value','$new_value',$updateindex)\n" unless !$debug; 199 199 # A. Establish connection to Lucene 200 200 # This isn't required at the moment, but might be later if we implement
Note:
See TracChangeset
for help on using the changeset viewer.