Changeset 22348 for main/trunk/greenstone2

Timestamp:

2010-07-05T15:01:12+12:00 (14 years ago)

Author:

kjdon

Message:

store any extracted metadata that has a namespace as ex.ns.meta

File:

• main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm (modified) (5 diffs)

main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm

@@ -442 +442 @@
             unless $dont_strip && ($dont_strip eq 'all' || $metaname =~ m/^($dont_strip)$/);
             $metavalue =~ s/\s+/ /sg;
+            if ($metaname =~ /\./) { # has a namespace
+            $metaname = "ex.$metaname";
+            }
             if ($accumulate) {
             $doc_obj->add_utf8_metadata($cursection, $metaname, $metavalue);
@@ -938 +941 @@
     # if we don't want metadata, we may as well not be here ...
     return if (!defined $self->{'metadata_fields'});
-
+    
     my $separator = $self->{'metadata_field_separator'};
     if ($separator eq "") {
@@ -954 +957 @@
         $field =~ s/^\s+//; # remove leading whitespace
         $field =~ s/\s+$//; # remove trailing whitespace
-
+    
     # support tag<tagname>
     if ($field =~ m/^(.*?)\s*<(.*?)>$/) {
@@ -1030 +1033 @@
         next;
     }
-
+    
     # clean up and add
     $value =~ s/\s+/ /gs;
@@ -1051 +1054 @@
     }
 
-    # Do we still reply on the following?  Surely there must 
-    # be a better way to go about this outside of the plugin?
-    # 
-    #if ($tag =~ m/date.*/i){
-    #    $tag = lc($tag);
-    #}
+    if ($tag =~ /\./) {
+        # there is a . so has a namespace, add ex.
+        $tag = "ex.$tag";
+    }
     if (defined $separator) {
         my @values = split($separator, $value);