Changeset 27306 for main/trunk/greenstone2/perllib/dbutil/gdbm.pm
- Timestamp:
- 2013-05-06T15:29:38+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil/gdbm.pm
r23758 r27306 29 29 use strict; 30 30 31 use util; 32 use FileUtils; 31 33 use dbutil::gdbmtxtgz; 32 34 … … 40 42 my $opt_append = shift(@_); 41 43 42 my $txt2db_exe = & util::filename_cat($ENV{'GSDLHOME'},"bin",$ENV{'GSDLOS'}, "txt2db" . &util::get_os_exe());44 my $txt2db_exe = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"bin",$ENV{'GSDLOS'}, "txt2db" . &util::get_os_exe()); 43 45 my $infodb_file_handle = undef; 44 46 my $cmd = "\"$txt2db_exe\""; … … 84 86 my $infodb_file_extension = ".gdb"; 85 87 my $infodb_file_name = &util::get_dirsep_tail($collection_name) . $infodb_file_extension; 86 return & util::filename_cat($infodb_directory_path, $infodb_file_name);88 return &FileUtils::filenameConcatenate($infodb_directory_path, $infodb_file_name); 87 89 } 88 90
Note:
See TracChangeset
for help on using the changeset viewer.