Changeset 27306 for main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
- Timestamp:
- 2013-05-06T15:29:38+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/BasePlugin.pm
r26893 r27306 39 39 use ghtml; 40 40 use gsprintf 'gsprintf'; 41 use util; 42 use FileUtils; 41 43 42 44 use PrintInfo; … … 447 449 return if $coverfile eq $filename; 448 450 449 if (!& util::fd_exists($coverfile)) {451 if (!&FileUtils::fileExists($coverfile)) { 450 452 $coverfile =~ s/jpg$/JPG/; 451 453 } 452 if (& util::fd_exists($coverfile)) {454 if (&FileUtils::fileExists($coverfile)) { 453 455 &util::block_filename($block_hash,$coverfile); 454 456 } … … 1418 1420 my $top_section=$doc_obj->get_top_section(); 1419 1421 1420 if (& util::fd_exists($upgraded_filename)) {1422 if (&FileUtils::fileExists($upgraded_filename)) { 1421 1423 $doc_obj->associate_source_file($filename); 1422 1424 $doc_obj->associate_file($filename, "cover.jpg", "image/jpeg"); … … 1429 1431 $upgraded_upper_filename =~ s/jpg$/JPG/; 1430 1432 1431 if (& util::fd_exists($upgraded_upper_filename)) {1433 if (&FileUtils::fileExists($upgraded_upper_filename)) { 1432 1434 $doc_obj->associate_source_file($upper_filename); 1433 1435 $doc_obj->associate_file($upper_filename, "cover.jpg",
Note:
See TracChangeset
for help on using the changeset viewer.