Changeset 37248


Ignore:
Timestamp:
2023-02-02T13:23:40+13:00 (15 months ago)
Author:
davidb
Message:

Adding in additional copying function; some other syntax tidy up

File:
1 edited

Legend:

Unmodified
Added
Removed

  • main/trunk/greenstone2/perllib/FileUtils.pm

    r37200 r37248  
    131131
    132132
    133 ## @function _copyFilesGeneral()
    134 #
    135 # internal version that copies a file or a group of files
     133## @function copyFilesGeneral()
     134#
     135# version that copies a file or a group of files
    136136#
    137137sub copyFilesGeneral
    … …  
    230230}
    231231
     232## copyFilesGeneral()
    232233
    233234
    … …  
    529530
    530531
     532
     533
     534sub copyFilesRefRecursive
     535{
     536    my ($srcfiles_ref,$dest, $options) = @_;
     537
     538    _copyFilesRecursiveGeneral($srcfiles_ref,$dest,0, $options);
     539}
     540
     541
    531542## @function copyFilesRecursive()
    532543#
    … …  
    553564# instead
    554565#
    555 # this should be merged with copyFilesRecursive() at some stage - jmt12
    556 #
    557566sub copyFilesRecursiveNoSVN
    558567{
    … …  
    569578#
    570579# copies a directory and its contents, excluding subdirectories, into a new directory
    571 #
    572 # another candidate for merging in with copyFilesRecursive() - jmt12
    573580#
    574581sub copyFilesRecursiveTopLevel
Note: See TracChangeset for help on using the changeset viewer.