877 |
my $time = time; |
my $time = time; |
878 |
|
|
879 |
{ |
{ |
880 |
|
## This must be done before the ID lock. |
881 |
|
$db->name_inverted_index->lock; |
882 |
|
|
883 |
my $id_lock = $id_locks->get_lock ($id); |
my $id_lock = $id_locks->get_lock ($id); |
884 |
$id_lock->lock; |
$id_lock->lock; |
885 |
|
|
914 |
|
|
915 |
$vc->commit_changes ("created by $user"); |
$vc->commit_changes ("created by $user"); |
916 |
|
|
917 |
|
## TODO: non-default content-type support |
918 |
|
my $cache_prop = $cache_prop_db->get_data ($id); |
919 |
|
my $doc = $id_props ? get_xml_data ($id, $id_props, $cache_prop) : undef; |
920 |
|
|
921 |
|
if (defined $doc) { |
922 |
|
update_tfidf ($id, $doc); |
923 |
|
} |
924 |
|
|
925 |
$id_lock->unlock; |
$id_lock->unlock; |
926 |
} |
} |
927 |
|
|