Changeset 15005


Ignore:
Timestamp:
2008-02-22T11:34:01+13:00 (14 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:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/RecPlug.pm

    r14180 r15005  
    315315
    316316    my $dirsep_re = &util::get_re_dirsep();
    317     if ($ek =~ m/$dirsep_re/) { # specifies at least one directory
     317
     318    my $ek_non_re = $ek;
     319    $ek_non_re =~ s/\\\./\./g; # remove RE syntax
     320
     321    if ($ek_non_re =~ m/$dirsep_re/) { # specifies at least one directory
    318322        my $md = $extrametadata{$ek};
    319323
     
    321325
    322326        my $subdir_rec = { 're' => $subdir_re, 'md' => $md };
     327
    323328        push(@{$subdir_extrametakeys->{$extrakey_dir}},$subdir_rec);
    324329    }
Note: See TracChangeset for help on using the changeset viewer.