Changeset 15018 for gsdl/trunk/perllib/util.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/util.pm (modified) (1 diff)

gsdl/trunk/perllib/util.pm

@@ -797 +797 @@
 
 
+sub locate_config_file
+{
+    my ($file) = @_;
+
+    my $locations = locate_config_files($file);
+
+    return shift @$locations; # returns undef if 'locations' is empty
+}
+
+
+sub locate_config_files
+{
+    my ($file) = @_;
+
+    my @locations = ();
+
+    if (-e $file) {
+    # Clearly specified (most likely full filename)
+    # No need to hunt in 'etc' directories, return value unchanged
+    push(@locations,$file);
+    }
+    else {
+    # Check for collection specific one before looking in global GSDL 'etc'
+
+    my $test_collect_etc_filename 
+        = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},"etc", $file);
+
+    if (-e $test_collect_etc_filename) {
+        push(@locations,$test_collect_etc_filename);
+    }
+
+    my $test_main_etc_filename 
+        = &util::filename_cat($ENV{'GSDLHOME'},"etc", $file);
+    if (-e $test_main_etc_filename) {
+        push(@locations,$test_main_etc_filename);
+    }
+    }
+
+    return \@locations;
+}
+
+
 sub hyperlink_text
 {