Changeset 18327 for gsdl/trunk/perllib/plugins/HTMLImagePlugin.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/HTMLImagePlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/HTMLImagePlugin.pm

@@ -422 +422 @@
         print $outhandle "HTMLImagePlugin: extracting $filepath\n"
         if ( $self->{'verbosity'} > 1 );
-        $doc_obj = new doc ("", "indexed_doc");
+        $doc_obj = new doc ("", "indexed_doc", $self->{'file_rename_method'});
         $section = $doc_obj->get_top_section();
         my $prevpos = ( $i == 0 ? 0 : $imgs->{$fplist[$i - 1]}{'pos'});