Changeset 23387 for main/trunk/greenstone2/perllib/doc.pm

Timestamp:

2010-12-06T13:15:10+13:00 (13 years ago)

Author:

davidb

Message:

Further changes to deal with documents that use different filename encodings on the file-system. Now sets UTF8URL metadata to perform the cross-document look up. Files stored in doc.pm as associated files are now always raw filenames (rather than potentially UTF8 encoded). Storing of filenames seen by HTMLPlug when scanning for files to block on is now done in Unicode aware strings rather than utf8 but unware strings.

File:

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

main/trunk/greenstone2/perllib/doc.pm

@@ -1089 +1089 @@
     $self->delete_assoc_file ($assoc_filename);
     
+    if (!&util::fd_exists($real_filename)) {
+    print STDERR "****** doc::associate_file(): Failed to find the file $real_filename\n";
+    exit -1;
+    }
+#    print STDERR "**** is the following a UTF8 rep of *real* filename?\n   $real_filename\n";
+#    print STDERR "****##### so, ensure it is before storing?!?!?\n";
+##    my $utf8_filename = Encode::encode("utf8",$filename);
+
     push (@{$self->{'associated_files'}}, 
       [$real_filename, $assoc_filename, $mime_type, $section]);