Changeset 21561 for main/trunk/greenstone2/perllib/ClassifyTreeModel.pm

Timestamp:

2010-01-21T15:03:35+13:00 (14 years ago)

Author:

mdewsnip

Message:

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

File:

• main/trunk/greenstone2/perllib/ClassifyTreeModel.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/ClassifyTreeModel.pm

@@ -120 +120 @@
     # Unfortunately I have to check that there is text to retrieve before I
     # create a new node.
-    if(&GDBMUtils::gdbmCachedCollectionGet($self->getCollection(), $clid) =~ /\w+/)
+
+    my $index_text_directory_path = &util::filename_cat($ENV{'GSDLHOME'}, "collect", $self->getCollection(), "index", "text");
+    my $infodb_file_path = &dbutil::get_infodb_file_path("gdbm", $self->getCollection(), $index_text_directory_path);
+    if (&dbutil::read_infodb_entry("gdbm", $infodb_file_path, $clid) =~ /\w+/)
       {
         # Since the CLID can directly reference the correct entry in the GDBM we