Changeset 31480 for main/trunk/greenstone2/perllib/plugins/GreenstoneXMLPlugin.pm

Timestamp:

2017-03-09T14:35:57+13:00 (7 years ago)

Author:

kjdon

Message:

util::block_file moved to EncodingUtil::block_raw_filename

File:

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

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

@@ -110 +110 @@
     $file =~ s/^[\/\\]+//; # $file often begins with / so we'll tidy it up
     
-    print $outhandle "GreenstoneXMLlugin: setting up block list for $file\n"
+    print $outhandle "GreenstoneXMLPlugin: setting up block list for $file\n"
     if $self->{'verbosity'} > 1;
 
@@ -126 +126 @@
         }
 
-        &util::block_filename($block_hash,$full_gsdl_assoc_filename);       
+        # is this raw filename here, or unicode?? assuming unicode
+        # however we have concatenated raw directory???
+        $self->block_filename($block_hash,$full_gsdl_assoc_filename);       
         }
     }