Changeset 15005

Show
Ignore:
Timestamp:
22.02.2008 11:34:01 (11 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.

Files:
1 modified

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    }