Changeset 21562 for main/trunk/greenstone2/perllib/IncrementalDocument.pm

Timestamp:

2010-01-21T15:22:28+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed calls to GDBMUtils::gdbmCachedCollectionSet() to dbutil::write_infodb_entry(). Part of removing GDBMUtils.pm and making the code less GDBM-specific.

File:

• main/trunk/greenstone2/perllib/IncrementalDocument.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/IncrementalDocument.pm

@@ -187 +187 @@
     # Now store the object in the database using the GDBM utilities
     my $collection = $self->{'collection'};
-    &GDBMUtils::gdbmCachedCollectionSet($collection, $self->{'oid'}, $text);
+
+    my $index_text_directory_path = &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "index", "text");
+    my $infodb_file_path = &dbutil::get_infodb_file_path("gdbm", $collection, $index_text_directory_path);
+    my $infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $infodb_file_path, "append");
+    &dbutil::write_infodb_entry("gdbm", $infodb_file_handle, $self->{'oid'}, &dbutil::convert_infodb_string_to_hash($text));
+    &dbutil::close_infodb_write_handle("gdbm", $infodb_file_handle);
 
     # There is a little bit of extra complexity when saving an incremental
@@ -195 +200 @@
     if($doc_num >= 0)
       {
-    my $index_text_directory_path = &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "index", "text");
-    my $infodb_file_path = &dbutil::get_infodb_file_path("gdbm", $collection, $index_text_directory_path);
     my $text = &dbutil::read_infodb_entry("gdbm", $infodb_file_path, $doc_num);
 
@@ -202 +205 @@
         if($text !~ /<section>/)
           {
-            &GDBMUtils::gdbmCachedCollectionSet($collection, $doc_num, "<section>" . $self->{'oid'});
+        $infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $infodb_file_path, "append");
+        &dbutil::write_infodb_entry("gdbm", $infodb_file_handle, $doc_num, &dbutil::convert_infodb_string_to_hash("<section>" . $self->{'oid'}));
+        &dbutil::close_infodb_write_handle("gdbm", $infodb_file_handle);
           }
       }