Changeset 10723 for trunk/gsdl/perllib/plugins/StructuredHTMLPlug.pm

Timestamp:

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

Author:

chi

Message:

Change the option of extracted_word_metadata_fields to metadata_fields.

File:

• trunk/gsdl/perllib/plugins/StructuredHTMLPlug.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 =~ /^(.*?)<(.*?)>$/) {