Changeset 28564

Show
Ignore:
Timestamp:
31.10.2013 11:31:06 (6 years ago)
Author:
kjdon
Message:

changing some util:: methods to FileUtils:: methods

Location:
main/trunk/greenstone2/perllib/classify
Files:
3 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/classify/AZCompactList.pm

    r28198 r28564  
    3232use BaseClassifier; 
    3333use sorttools; 
     34use FileUtils; 
    3435 
    3536use Unicode::Normalize; 
     
    356357    { 
    357358    my $listname  
    358         = &util::filename_cat($ENV{'GSDLHOME'},"perllib/classify/$pm.pm"); 
     359        = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"perllib/classify/$pm.pm"); 
    359360    if (-e $listname) { require $listname; } 
    360361    else  
  • main/trunk/greenstone2/perllib/classify/AZCompactSectionList.pm

    r28199 r28564  
    1010 
    1111use AZCompactList; 
     12use FileUtils; 
     13 
    1214use strict; 
    1315no strict 'refs'; # allow filehandles to be variables and viceversa 
     
    9799    { 
    98100    my $listname  
    99         = &util::filename_cat($ENV{'GSDLHOME'},"perllib/classify/$pm.pm"); 
     101        = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"perllib/classify/$pm.pm"); 
    100102    if (-e $listname) { require $listname; } 
    101103    else  
  • main/trunk/greenstone2/perllib/classify/HFileHierarchy.pm

    r24586 r28564  
    125125    if ($self->{'hfile'}) { 
    126126    my $hfile = $self->{'hfile'}; 
    127     my $subjectfile; 
    128     $subjectfile = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"etc", $hfile); 
     127    my $subjectfile;   
     128    $subjectfile = &FileUtils::filenameConcatenate($ENV{'GSDLCOLLECTDIR'},"etc", $hfile); 
    129129    if (!-e $subjectfile) { 
    130130        my $collfile = $subjectfile; 
    131         $subjectfile = &util::filename_cat($ENV{'GSDLHOME'},"etc", $hfile); 
     131        $subjectfile = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"etc", $hfile); 
    132132        if (!-e $subjectfile) { 
    133133        my $outhandle = $self->{'outhandle'};