Changeset 10405

Timestamp:

2005-08-03T13:29:23+12:00 (19 years ago)

Author:

chi

Message:

Adding structured HTML formating arguments here.

File:

• trunk/gsdl/perllib/plugins/WordPlug.pm (modified) (6 diffs)

trunk/gsdl/perllib/plugins/WordPlug.pm

@@ -33 +33 @@
 
 sub BEGIN {
-    @WordPlug::ISA = ('ConvertToPlug','StructuredHTMLPlug');
+    #@WordPlug::ISA = ('ConvertToPlug','StructuredHTMLPlug');
+    @WordPlug::ISA = ('ConvertToPlug');
 }
 
@@ -41 +42 @@
     'type' => "regexp",
     'deft' => &get_default_process_exp(),
-    'reqd' => "no" },
+    'reqd' => "no" }
       ];
 
@@ -56 +57 @@
 
     if ($ENV{'GSDLOS'} =~ m/^windows$/i) {
-    my $ws_arg = { 'name' => "windows_scripting",
-               'desc' => "{WordPlug.windows_scripting}",
-               'type' => "flag" };
-    push(@$arguments,$ws_arg);
+    my $ws_arg = [ { 'name' => "windows_scripting",
+             'desc' => "{WordPlug.windows_scripting}",
+             'type' => "flag",
+                 'reqd' => "no" },
+               { 'name' => "checkout_toc",
+             'desc' => "{WordPlug.checkout_toc}",
+             'type' => "flag",
+             'reqd' => "no"},
+               { 'name' => "level1_header",
+             'desc' => "{WordPlug.level1_header}",
+             'type' => "regexp",
+             'reqd' => "no",
+             'deft' => "" },
+               { 'name' => "level2_header",
+             'desc' => "{WordPlug.level2_header}",
+             'type' => "regexp",
+             'reqd' => "no",
+             'deft' => "" },
+               { 'name' => "level3_header",
+             'desc' => "{WordPlug.level3_header}",
+             'type' => "regexp",
+             'reqd' => "no",
+             'deft' => "" },
+               { 'name' => "title_header",
+             'desc' => "{WordPlug.title_header}",
+             'type' => "regexp",
+             'reqd' => "no",
+             'deft' => "" },
+               { 'name' => "toc_header",
+             'desc' => "{WordPlug.toc_header}",
+             'type' => "regexp",
+             'reqd' => "no",
+             'deft' => "" },
+               { 'name' => "tof_header",
+             'desc' => "{WordPlug.tof_header}",
+             'type' => "regexp",
+             'reqd' => "no",
+             'deft' => "" }];
+    
+    push(@$arguments,@$ws_arg);
     }
 
@@ -65 +102 @@
     if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
 
+    #foreach my $arg (@{$hashArgOptLists->{"ArgList"}})
+    #{
+    #   print STDERR "**** Word Argument =$arg->{'name'}\n";
+    #}
+    
     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
 
     #this is passed through to gsConvert.pl by ConvertToPlug.pm
     $self->{'convert_options'} = "-windows_scripting" if $self->{'windows_scripting'};
-    
+
     my $secondary_plugin_options = $self->{'secondary_plugin_options'};
-    
+    if (defined $self->{'windows_scripting'}) { 
+    if (!defined $secondary_plugin_options->{'StructuredHTMLPlug'}){
+        $secondary_plugin_options->{'StructuredHTMLPlug'} =[];
+        my $structhtml_options = $secondary_plugin_options->{'StructuredHTMLPlug'};
+    }
+    }
     if (!defined $secondary_plugin_options->{'HTMLPlug'}) {
     $secondary_plugin_options->{'HTMLPlug'} = [];
@@ -88 +135 @@
     push(@$html_options,"-input_encoding", "utf8");
     push(@$html_options,"-extract_language");
-    
+
     # Instruct HTMLPlug (when eventually accessed through read_into_doc_obj)
     # to extract these metadata fields from the HEAD META fields
@@ -96 +143 @@
     
     $self = bless $self, $class;
-    
     $self->load_secondary_plugins($class,$secondary_plugin_options);
 
-    #return bless $self, $class;
     return bless $self;
 }