Changeset 18404 for gsdl/trunk/perllib/plugins/BasePlugin.pm

Timestamp:

2009-01-16T18:23:59+13:00 (15 years ago)

Author:

ak19

Message:

1. BasePlugin's file_rename_method option changed from inherited to none; 2. unicode::filename_to_url subroutine no longer takes rename_method as a parameter (back to how it was before).

File:

• gsdl/trunk/perllib/plugins/BasePlugin.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -52 +52 @@
       { 'name' => "base64",
     'desc' => "{BasePlugin.rename_method.base64}" }, 
-      { 'name' => "inherited",
-    'desc' => "{BasePlugin.rename_method.inherited}", 
+      { 'name' => "none",
+    'desc' => "{BasePlugin.rename_method.none}", 
     'hiddengli' => "yes" } ];
 
@@ -776 +776 @@
     # If using URL encoding, then SourceFile is the url-reference to url-encoded
     # filemeta: it's a url that refers to the actual file on the system
-    $filemeta = &unicode::filename_to_url($filemeta, $self->{'file_rename_method'});
+    $filemeta = &unicode::filename_to_url($filemeta);
 
     $doc_obj->set_utf8_metadata_element($top_section, "SourceFile", $filemeta);
@@ -1043 +1043 @@
         # If the filename is url_encoded, we need to encode the % signs 
         # in the filename, so that it works in a url
-        my $url_tail_filename = &unicode::filename_to_url($tail_filename, $self->{'file_rename_method'});
+        my $url_tail_filename = &unicode::filename_to_url($tail_filename);
         # work out extended tail extension (i.e. matching tail re)