- Timestamp:
- 2013-06-07T18:07:01+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm
r27306 r27578 322 322 return -1; # error in processing 323 323 } 324 @dir = readdir (DIR);324 @dir = sort readdir (DIR); 325 325 closedir (DIR); 326 326 … … 407 407 return -1; # error in processing 408 408 } 409 @dir = readdir (DIR);409 @dir = sort readdir (DIR); 410 410 map { $_ = &unicode::raw_filename_to_url_encoded($_) } @dir; 411 411 closedir (DIR); … … 514 514 # Re-read the files in the directory to see if there are any new files 515 515 last if (!opendir (DIR, $dirname)); 516 my @dirnow = readdir (DIR);516 my @dirnow = sort readdir (DIR); 517 517 map { $_ = &unicode::raw_filename_to_url_encoded($_) } @dirnow; 518 518 closedir (DIR);
Note:
See TracChangeset
for help on using the changeset viewer.