Changeset 15018 for gsdl/trunk/perllib/plugins/MARCPlug.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/MARCPlug.pm (modified) (5 diffs)

gsdl/trunk/perllib/plugins/MARCPlug.pm

@@ -45 +45 @@
     'type' => "string",
     'deft' => "marctodc.txt",
+    'hiddengli' = "yes", # deprecated in favour or 'metadata_mapping_file'
+    'reqd' => "no" },
+      { 'name' => "metadata_mapping_file",
+    'desc' => "{MARCXMLPlug.metadata_mapping_file}",
+    'type' => "string",
+    'deft' => "",
     'reqd' => "no" },
       { 'name' => "process_exp",
@@ -80 +86 @@
     my $self = new SplitPlug($pluginlist, $inputargs, $hashArgOptLists);
 
+    # 'metadata_mapping' was used in two ways in the plugin: as a plugin
+    # option (filename) and as a datastructure to represent the mapping.
+    # In MARXXMLPlug (written later) the two are separated: filename is
+    # represented through 'metadata_mapping_file' and the data-structure
+    # mapping left as 'metadata_mapping'
+    # 'metadata_mapping' still present (but hidden in GLI) for
+    # backwards compatibility, but 'metadata_mapping_file' is used by
+    # preference
+
+    if ($self->{'metadata_mapping_file'} eq "") {
+    # If nothing set in the new version, use the old version
+    # that defaults to 'marctodc.txt'
+    $self->{'metadata_mapping_file'} = $self->{'metadata_mapping'};
+    }
+
     $self->{'type'} = "";
     
@@ -92 +113 @@
 
     # read in the metadata mapping file
-    my $mm_file =
-    &util::filename_cat( $ENV{'GSDLHOME'}, "etc", $self->{'metadata_mapping'} );
-
-    if (!-e $mm_file)
+
+    my $mm_file = &util::locate_config_file($self->{'metadata_mapping_file'}); 
+
+    if (!defined $mm_file)
     {
 
     my $msg = "MARCPlug ERROR: Can't locate mapping file \"" .
-        $self->{'metadata_mapping'} . "\".\n    This file should be at $mm_file\n" .
+        $self->{'metadata_mapping_file'} . "\".\n" .
         "    No marc files can be processed.\n";
 
@@ -131 +152 @@
     }
     close(MMIN);
+
+    $self->{'metadata_mapping'} = \@metadata_mapping;
     }
     else
@@ -137 +160 @@
     }
 
-    $self->{'metadata_mapping'} = \@metadata_mapping;
+
 
     $self->SUPER::init(@_);