Changeset 23484 for main/trunk/greenstone2/perllib/util.pm

Timestamp:

2010-12-14T15:24:37+13:00 (13 years ago)

Author:

ak19

Message:

Further improvements by Dr Bainbridge to pretty-printing.

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/util.pm

@@ -502 +502 @@
 
     if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+        
     # symlink not supported on windows
     &File::Copy::copy ($src, $dest);
@@ -1073 +1074 @@
 sub prettyprint_file
 {
-    my ($base_dir,$file) = @_;
+    my ($base_dir,$file,$gli) = @_;
 
     my $filename_full_path = &util::filename_cat($base_dir,$file);
@@ -1088 +1089 @@
 
     $file = filename_within_directory($long_full_path,$long_base_dir);
+    $file = encode("utf8",$file) if ($gli);
     }