Changeset 28564 for main/trunk/greenstone2/perllib/classify/HFileHierarchy.pm

Timestamp:

2013-10-31T11:31:06+13:00 (10 years ago)

Author:

kjdon

Message:

changing some util:: methods to FileUtils:: methods

File:

• main/trunk/greenstone2/perllib/classify/HFileHierarchy.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/classify/HFileHierarchy.pm

@@ -125 +125 @@
     if ($self->{'hfile'}) {
     my $hfile = $self->{'hfile'};
-    my $subjectfile;
-    $subjectfile = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"etc", $hfile);
+    my $subjectfile;  
+    $subjectfile = &FileUtils::filenameConcatenate($ENV{'GSDLCOLLECTDIR'},"etc", $hfile);
     if (!-e $subjectfile) {
         my $collfile = $subjectfile;
-        $subjectfile = &util::filename_cat($ENV{'GSDLHOME'},"etc", $hfile);
+        $subjectfile = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"etc", $hfile);
         if (!-e $subjectfile) {
         my $outhandle = $self->{'outhandle'};