Changeset 23485 for main/trunk/greenstone2/perllib/ClassifyTreeModel.pm
- Timestamp:
- 2010-12-14T16:16:48+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/ClassifyTreeModel.pm
r22749 r23485 157 157 my $index_text_directory_path = &util::filename_cat($ENV{'GSDLHOME'}, "collect", $self->getCollection(), "index", "text"); 158 158 my $infodb_file_path = &dbutil::get_infodb_file_path($self->{'infodbtype'}, $self->getCollection(), $index_text_directory_path); 159 if (&dbutil::read_infodb_ entry($self->{'infodbtype'}, $infodb_file_path, $clid) =~ /\w+/)159 if (&dbutil::read_infodb_rawentry($self->{'infodbtype'}, $infodb_file_path, $clid) =~ /\w+/) 160 160 { 161 161 # Since the CLID can directly reference the correct entry in the info database we
Note:
See TracChangeset
for help on using the changeset viewer.