Changeset 15005 for gsdl

Timestamp:

2008-02-22T11:34:01+13:00 (16 years ago)

Author:

davidb

Message:

In response to developing a custom plugin that stores metadata similar to MetadataXMLPlug, some functionality was shifted around so the custom plugin could also access it, and a couple of edits made so the two worked properly side by side.

File:

• gsdl/trunk/perllib/plugins/RecPlug.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/RecPlug.pm

@@ -315 +315 @@
 
     my $dirsep_re = &util::get_re_dirsep();
-    if ($ek =~ m/$dirsep_re/) { # specifies at least one directory
+
+    my $ek_non_re = $ek;
+    $ek_non_re =~ s/\\\./\./g; # remove RE syntax
+
+    if ($ek_non_re =~ m/$dirsep_re/) { # specifies at least one directory
         my $md = $extrametadata{$ek};
 
@@ -321 +325 @@
 
         my $subdir_rec = { 're' => $subdir_re, 'md' => $md };
+
         push(@{$subdir_extrametakeys->{$extrakey_dir}},$subdir_rec);
     }