Changeset 15018 for gsdl/trunk/perllib/plugins/BasPlug.pm

Timestamp:

2008-02-27T17:07:17+13:00 (16 years ago)

Author:

davidb

Message:

Marc mapping upgraded to support richer set of operations, including subfields, multiple fields in one line (separated by comma), and the removal of rules, e.g. -245 at the start of a line. A Marc to Qualified Dublin Core crosswalk from the Library of congress has been added as "etc/marc2qdc.txt". A collection can then choose to, for example, top up the mapping with its own version of the file stored in its local "etc" folder, specifying only the rules that are different. This is where a rule like "-245" might be used to override a more general rule from the main file that has all subfields in 245 mapping to one metadata item (Title). If the user specifies a different different filename -- through a plugin option -- then they are free to divise a mapping from scratch and store it in the collections local "etc" folder.

File:

• gsdl/trunk/perllib/plugins/BasPlug.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/BasPlug.pm

@@ -109 +109 @@
     'type' => "string",
     'reqd' => "no" },
+      { 'name' => "use_as_doc_identifier",
+    'desc' => "{BasPlug.use_as_doc_identifier}",
+    'type' => "string",
+    'reqd' => "no" ,
+    'deft' => "" } ,
       { 'name' => "input_encoding",
     'desc' => "{BasPlug.input_encoding}",
@@ -867 +872 @@
 }
 
+
+sub add_OID
+{
+    my $self = shift (@_);  
+    my ($doc_obj) = @_;
+
+    # See if a metadata field is specified as the field
+    if ((defined $self->{'use_as_doc_identifier'}) && ($self->{'use_as_doc_identifier'} ne "")) {
+    my $metadata_doc_id = $self->{'use_as_doc_identifier'};
+
+    # Consider "tidying" up metadata_doc_id to be something
+    # suitable in a URL
+    # Could even support a user specified plugin RE for this.
+
+    my $top_section = $doc_obj->get_top_section();
+    my $oid = $doc_obj->get_metadata_element($top_section,$metadata_doc_id);
+##  print STDERR "**** oid = $oid\n";
+        $doc_obj->set_OID($oid);
+    }
+    # See if there is a plugin-specific set_OID function...
+    elsif (defined ($self->can('set_OID'))) {
+    # it will need $doc_obj to set the Identifier metadata...
+    $self->set_OID(@_); # pass through any extra arguments supplied
+    } else {
+    # use the default set_OID() in doc.pm
+    $doc_obj->set_OID();
+    }
+}
 
 # The BasPlug read_into_doc_obj() function. This function does all the
@@ -957 +990 @@
     # do any automatic metadata extraction
     $self->auto_extract_metadata ($doc_obj);
-   
-    # add an OID
-    # see if there is a plugin-specific set_OID function...
-    if (defined ($self->can('set_OID'))) {
-    # it will need $doc_obj to set the Identifier metadata...
-    $self->set_OID($doc_obj);
-    } else {
-    # use the default set_OID() in doc.pm
-    $doc_obj->set_OID();
-    }
+
+    $self->add_OID($doc_obj);
     
     return (1,$doc_obj);