Changeset 29762 for main/trunk/greenstone2/perllib

Timestamp:

2015-02-26T12:29:06+13:00 (9 years ago)

Author:

ak19

Message:

check if the filenames are url encoded - this happens for eg accented chars on macs, if so, convert back to unicode

File:

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

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

@@ -331 +331 @@
         # FileNames must be regex, but we allow \\ for path separator on windows. convert to /
         $target = &util::filepath_regex_to_url_format($target);
+        if (&unicode::is_url_encoded($target)) {
+        print STDERR "***target $target is url encoded ";
+        $target = &unicode::url_decode($target);
+        print STDERR "   new: $target\n";
+        }
+        else {
+        print STDERR " *** target $target is NOT url encoded\n";
+        }
         my $file_metadata = &extrametautil::getmetadata($self->{'metadataref'}, $target);
         my $saved_metadata = $self->{'saved_metadata'};