Changeset 18406 for gsdl/trunk/perllib/plugins/PostScriptPlugin.pm

Timestamp:

2009-01-19T18:08:49+13:00 (15 years ago)

Author:

ak19

Message:

Modified srcreplaceable plugins (plugins which operate on docs where the source file can be replaced with their converted htmls) to set the file_rename_method to none for secondary plugins (for Text, HTML, and PagedImage plugins) so that the file is not renamed several times.

File:

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

gsdl/trunk/perllib/plugins/PostScriptPlugin.pm

@@ -112 +112 @@
     }
 
+    if (!defined $secondary_plugin_options->{'HTMLPlugin'}) {
+    $secondary_plugin_options->{'HTMLPlugin'} = [];
+    }
+
     my $text_options = $secondary_plugin_options->{'TextPlugin'};
-
-    if (defined $self->{'convert_to'} && $self->{'convert_to'} =~ /pagedimg.*/i) {
+    my $html_options = $secondary_plugin_options->{'HTMLPlugin'};
+
+    if (defined $self->{'convert_to'} && $self->{'convert_to'} =~ m/(pagedimage|pagedimg).*/i) {
     if (!defined $secondary_plugin_options->{'PagedImagePlugin'}){
         $secondary_plugin_options->{'PagedImagePlugin'} = [];
         my $pagedimg_options = $secondary_plugin_options->{'PagedImagePlugin'}; 
         push(@$pagedimg_options, "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
+        push(@$pagedimg_options, "-file_rename_method", "none");
     }
     }
@@ -130 +136 @@
     push(@$text_options , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
 
+    push(@$text_options, "-file_rename_method", "none");
+    push(@$html_options, "-file_rename_method", "none");
+    
     $self = bless $self, $class;
     # used for convert_post_process