- Timestamp:
- 2013-05-06T15:29:38+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/ArchivesInfPlugin.pm
r24351 r27306 31 31 32 32 use util; 33 use FileUtils; 33 34 use doc; 34 35 use PrintInfo; … … 120 121 my $base_dir =$self->{'base_dir'}; 121 122 122 my $doc_filename = & util::filename_cat($base_dir,$doc_file);123 my $doc_filename = &FileUtils::filenameConcatenate($base_dir,$doc_file); 123 124 124 125 my ($doc_tailname, $doc_dirname, $suffix) … … 229 230 230 231 # see if this has a archives information file within it 231 ## my $archive_info_filename = & util::filename_cat($base_dir,$file,"archives.inf");232 my $archive_info_filename = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-doc", & util::filename_cat($base_dir, $file));232 ## my $archive_info_filename = &FileUtils::filenameConcatenate($base_dir,$file,"archives.inf"); 233 my $archive_info_filename = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-doc", &FileUtils::filenameConcatenate($base_dir, $file)); 233 234 234 235 if (-e $archive_info_filename) { … … 254 255 last if ($maxdocs != -1 && ($total_count + $count) >= $maxdocs); 255 256 256 my $tmp = & util::filename_cat($file, $subfile->[0]);257 my $tmp = &FileUtils::filenameConcatenate($file, $subfile->[0]); 257 258 next if $tmp eq $file; 258 259
Note:
See TracChangeset
for help on using the changeset viewer.