Changeset 11919
- Timestamp:
- 2006-06-15T14:51:57+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/RecPlug.pm
r10254 r11919 270 270 my @extrametakeys; # keys of %extrametadata in order read 271 271 272 my $ dirsepre = &util::get_re_dirsep();272 my $os_dirsep = &util::get_os_dirsep(); 273 273 my $dirsep = &util::get_dirsep(); 274 my $base_dir_regexp = $base_dir; 275 $base_dir_regexp =~ s/\//$os_dirsep/g; 274 276 my $local_dirname = $dirname; 275 $local_dirname =~ s/^$base_dir ($dirsepre)//;277 $local_dirname =~ s/^$base_dir_regexp($os_dirsep)//; 276 278 $local_dirname .= $dirsep; 277 279 … … 326 328 327 329 my $dirsep_re = &util::get_re_dirsep(); 328 329 330 if ($ek =~ m/$dirsep_re/) { # specifies at least one directory 330 331 my $md = $extrametadata{$ek};
Note:
See TracChangeset
for help on using the changeset viewer.