Changeset 15005
- Timestamp:
- 2008-02-22T11:34:01+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/RecPlug.pm
r14180 r15005 315 315 316 316 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 318 322 my $md = $extrametadata{$ek}; 319 323 … … 321 325 322 326 my $subdir_rec = { 're' => $subdir_re, 'md' => $md }; 327 323 328 push(@{$subdir_extrametakeys->{$extrakey_dir}},$subdir_rec); 324 329 }
Note:
See TracChangeset
for help on using the changeset viewer.