Changeset 16919

Timestamp:

2008-08-20T17:34:52+12:00 (16 years ago)

Author:

ak19

Message:

set_Source_metadata modified to also set SourceFile metadata which represents the URL-encoded version of the original sourcefile. In case the original sourcefile is already url-encoded, SourceFile metadata will escape percent signs with percent 25.

File:

• gsdl/trunk/perllib/plugins/BasePlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -719 +719 @@
     # UTF-8 version of filename
     my $filemeta = $self->filename_to_utf8_metadata($filename_no_path, $file_encoding);
-    $doc_obj->set_utf8_metadata_element($top_section, "Source", $filemeta);
+
+    # Source is the UTF8 display name - not necessarily the name of the file on the system
+    $doc_obj->set_utf8_metadata_element($top_section, "Source", $filemeta); 
+
+    # SourceFile is the url-reference to url-encoded filemeta: 
+    # it's a url that refers to the actual file on the system
+    $filemeta = &unicode::url_encode($filemeta);
+    $filemeta = &unicode::filename_to_url($filemeta);
+    $doc_obj->set_utf8_metadata_element($top_section, "SourceFile", $filemeta);
 }
      
 sub add_OID {
-
     my $self = shift (@_);  
     my ($doc_obj) = @_;