Changeset 28563 for main/trunk/greenstone2/perllib/plugins/HTMLImagePlugin.pm

Timestamp:

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

Author:

kjdon

Message:

changing some util:: methods to FileUtils:: methods

File:

• main/trunk/greenstone2/perllib/plugins/HTMLImagePlugin.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugins/HTMLImagePlugin.pm

@@ -365 +365 @@
     if ( $self->{'aggressiveness'} >=5 && $self->{'aggressiveness'} != 9 ) {
     $self->{'stopwords'} = ();
-    $filepath = &util::filename_cat($ENV{'GSDLHOME'}, "etc", "packages", "phind", "stopword", "en", "brown.sw");
+    $filepath = &FileUtils::filenameConcatenate($ENV{'GSDLHOME'}, "etc", "packages", "phind", "stopword", "en", "brown.sw");
     if ( open STOPWORDS, "<$filepath" ) {
         while ( <STOPWORDS> ) {
@@ -407 +407 @@
     $base_dir =~ /(.*)\/.*/;
     $tndir = "$1/archives/thumbnails"; # TODO: this path shouldn't be hardcoded?
-    &util::mk_all_dir($tndir) unless -e "$tndir"; 
+    &FileUtils::makeAllDirectories($tndir) unless -e "$tndir"; 
 
     $imgs = \%{$self->{'imglist'}};