Changeset 18327 for gsdl/trunk/perllib/plugins/PagedImagePlugin.pm

Timestamp:

2009-01-07T17:59:22+13:00 (15 years ago)

Author:

ak19

Message:

Extra parameter to new doc(): the renaming method to be used on the file (base64 or URL encoding).

File:

• gsdl/trunk/perllib/plugins/PagedImagePlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/PagedImagePlugin.pm

@@ -479 +479 @@
     
     # create a new document
-    $self->{'doc_obj'} = new doc ($self->{'filename'}, "indexed_doc");
+    $self->{'doc_obj'} = new doc ($self->{'filename'}, "indexed_doc", $self->{'file_rename_method'});
     # TODO is file filenmae_no_path??
     $self->set_initial_doc_fields($self->{'doc_obj'}, $self->{'file'}, $self->{'processor'});
@@ -529 +529 @@
     my ($filename_full_path, $dir, $filename_no_path, $processor) = @_;
 
-    my $doc_obj = new doc ($filename_full_path, "indexed_doc");
+    my $doc_obj = new doc ($filename_full_path, "indexed_doc", $self->{'file_rename_method'});
     $self->set_initial_doc_fields($doc_obj, $filename_no_path, $processor);
     my $topsection = $doc_obj->get_top_section();