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

Timestamp:

2010-12-14T16:16:48+13:00 (13 years ago)

Author:

davidb

Message:

read_infodb_entry now returns a hashmap directly. Code updated to take advantage of this, and in places where the hashmap is not needed, the alternative read_infodb_rawentry is called.

File:

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

main/trunk/greenstone2/perllib/IncrementalDocument.pm

@@ -154 +154 @@
     my $index_text_directory_path = &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "index", "text");
     my $infodb_file_path = &dbutil::get_infodb_file_path($self->{'infodbtype'}, $collection, $index_text_directory_path);
-    my $text = &dbutil::read_infodb_entry($self->{'infodbtype'}, $infodb_file_path, $self->{'oid'});
+    my $text = &dbutil::read_infodb_rawentry($self->{'infodbtype'}, $infodb_file_path, $self->{'oid'});
     # For each line in the raw text, extract the key (enclosed in angle
     # brackets) and the value
@@ -203 +203 @@
     if($doc_num >= 0)
       {
-    my $text = &dbutil::read_infodb_entry($self->{'infodbtype'}, $infodb_file_path, $doc_num);
+    my $text = &dbutil::read_infodb_rawentry($self->{'infodbtype'}, $infodb_file_path, $doc_num);
 
         # If there is no reverse lookup, then add one now