Changeset 10723

Timestamp:

2005-10-14T13:23:23+13:00 (18 years ago)

Author:

chi

Message:

Change the option of extracted_word_metadata_fields to metadata_fields.

Location:

trunk/gsdl/perllib/plugins

Files:

• StructuredHTMLPlug.pm (modified) (2 diffs)
• WordPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/StructuredHTMLPlug.pm

@@ -98 +98 @@
     $head =~ m/<title>(.+)<\/title>/i;
     my $doctitle = $1 if defined $1;
-    if (defined $self->{'extracted_word_metadata_fields'} && $self->{'extracted_word_metadata_fields'}=~ /\S/) {
+    if (defined $self->{'metadata_fields'} && $self->{'metadata_fields'}=~ /\S/) {
     my @doc_properties = split(/<xml>/i,$head);
     my $doc_heading = shift(@doc_properties);
@@ -391 +391 @@
 
     my $orig_field = "";
-    foreach my $field (split /,/, $self->{'extracted_word_metadata_fields'}) {
+    foreach my $field (split /,/, $self->{'metadata_fields'}) {
     # support tag<tagname>
     if ($field =~ /^(.*?)<(.*?)>$/) {

trunk/gsdl/perllib/plugins/WordPlug.pm

@@ -96 +96 @@
              'reqd' => "no",
              'deft' => "" },
-               { 'name' => "extracted_word_metadata_fields",
+               { 'name' => "metadata_fields",
              'type' => "string",
              'deft' => "Title"}];
@@ -140 +140 @@
         push (@$structhtml_options, "-level2_header", $self->{'level2_header'})if $self->{'level2_header'};
         push (@$structhtml_options, "-level3_header", $self->{'level3_header'}) if $self->{'level3_header'};
-        push (@$structhtml_options, "-extracted_word_metadata_fields", $self->{'extracted_word_metadata_fields'}) if $self->{'extracted_word_metadata_fields'};
+        push (@$structhtml_options, "-metadata_fields", $self->{'metadata_fields'}) if $self->{'metadata_fields'};
     }
     }