Changeset 36910

Timestamp:

2022-11-22T11:23:20+13:00 (17 months ago)

Author:

kjdon

Message:

Added some code for tk labels - options to take a single field and store its values as individual metadata fields with true value. eg wmtb.TKLabel=tk.Clan,tk.Attribution =>tk.Clan=true, tk.Attribution=true. Implemented for tk labels, but then not needed as this is handled by xslt instead. Leaving this here in case useful in the future

File:

• main/trunk/greenstone2/perllib/plugins/BaseImporter.pm (modified) (4 diffs)

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

@@ -126 +126 @@
     'list' => $file_rename_method_list,
     'reqd' => "no"
-    }
-      
+     }
+
+      # These options take a metadata field, and store its values as individual
+      #fields with true value.
+      #eg wmtb.TKLabel=tk.Clan,tk.Attribution =>tk.Clan=true, tk.Attribution=true.
+      #Implemented for tk lables, but then not needed as this is handled by
+      # xslt instead. Leaving this here in case useful in the future      
+#      { 'name' => "store_metadata_values_as_fields_for",
+#            'desc' => "For these (comma-separated list of) fields, take all values and store them as metadata fields in their own write, value=true ",
+#            'type' => "metadata",
+#            'reqd' => "no" },
+#      { 'name' => "namespace_for_new_fields",
+#            'desc' => "add the specified namespace to the new fields (comma separated list, corresponding to the fields above",
+#            'type'=> "string",
+#            'reqd' => "no",
+#            'deft' => ""},
+#      { 'name' => "include_section_level",
+#            'desc' => "do we look for this metadata at subsection level too?",
+#            'type' => "string",
+#            'deft' => "false"}
       ];
 
@@ -575 +593 @@
 #    }
 }
+
 
 # this should be called by all plugins to set the oid of the doc obj, rather
@@ -654 +673 @@
     $self->auto_extract_metadata($doc_obj);
 
+    # to use tk label options commented out at top
+    #$self->convert_special_metadata($doc_obj);
+    
     # if we haven't found any Title so far, assign one
     # this was shifted to here from inside read()
@@ -689 +711 @@
     my $self = shift(@_);
     my ($doc_obj) = @_;
+}
+
+# used with the tk label options commented out at the start
+sub convert_special_metadata {
+    my $self = shift(@_);
+    my ($doc_obj) = @_;
+    print STDERR "in convert special meta\n";
+    return unless defined $self->{'store_metadata_values_as_fields_for'};
+    print STDERR "we have fields to convert\n";
+    
+    my @existing_meta_fields = split(',', $self->{'store_metadata_values_as_fields_for'});
+    my @new_ns = split(',', $self->{'namespace_for_new_fields'});
+    my $include_section_level = $self->{'include_section_level'};
+    
+    foreach my $old_meta (@existing_meta_fields) {
+        my $ns = shift(@new_ns);
+        my $ns_prefix = "";
+        if (defined $ns && $ns =~/\S/) {
+            $ns_prefix = "$ns.";
+        }
+    
+    
+        my $section = $doc_obj->get_top_section();
+        while (defined $section) {
+            my @section_meta = @{$doc_obj->get_metadata($section, $old_meta)};
+            foreach my $meta (@section_meta) {
+                foreach my $submeta (split /,/, $meta) {
+                    # add meta, ns+submeta, value = true
+                    # remove whitepace
+                    $submeta =~ s/\s+//g;
+                    $doc_obj->add_utf8_metadata($section, "$ns_prefix$submeta", "true");
+                }
+            }
+        
+            last if (!$include_section_level);
+            $section = $doc_obj->get_next_section($section);
+        }
+    }
 }