Changeset 28564
- Timestamp:
- 2013-10-31T11:31:06+13:00 (10 years ago)
- Location:
- main/trunk/greenstone2/perllib/classify
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/AZCompactList.pm
r28198 r28564 32 32 use BaseClassifier; 33 33 use sorttools; 34 use FileUtils; 34 35 35 36 use Unicode::Normalize; … … 356 357 { 357 358 my $listname 358 = & util::filename_cat($ENV{'GSDLHOME'},"perllib/classify/$pm.pm");359 = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"perllib/classify/$pm.pm"); 359 360 if (-e $listname) { require $listname; } 360 361 else -
main/trunk/greenstone2/perllib/classify/AZCompactSectionList.pm
r28199 r28564 10 10 11 11 use AZCompactList; 12 use FileUtils; 13 12 14 use strict; 13 15 no strict 'refs'; # allow filehandles to be variables and viceversa … … 97 99 { 98 100 my $listname 99 = & util::filename_cat($ENV{'GSDLHOME'},"perllib/classify/$pm.pm");101 = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"perllib/classify/$pm.pm"); 100 102 if (-e $listname) { require $listname; } 101 103 else -
main/trunk/greenstone2/perllib/classify/HFileHierarchy.pm
r24586 r28564 125 125 if ($self->{'hfile'}) { 126 126 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); 129 129 if (!-e $subjectfile) { 130 130 my $collfile = $subjectfile; 131 $subjectfile = & util::filename_cat($ENV{'GSDLHOME'},"etc", $hfile);131 $subjectfile = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'},"etc", $hfile); 132 132 if (!-e $subjectfile) { 133 133 my $outhandle = $self->{'outhandle'};
Note:
See TracChangeset
for help on using the changeset viewer.