Changeset 17320
- Timestamp:
- 2008-09-18T12:07:39+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/DirectoryPlugin.pm
r17313 r17320 296 296 my $self = shift (@_); 297 297 my ($pluginfo, $base_dir, $file, $block_hash, $in_metadata, $processor, $maxdocs, $total_count, $gli) = @_; 298 298 299 299 my $outhandle = $self->{'outhandle'}; 300 300 my $verbosity = $self->{'verbosity'}; … … 412 412 my $subdir_rec = { 're' => $subdir_re, 'md' => $md }; 413 413 414 push(@{$subdir_extrametakeys->{$extrakey_dir}},$subdir_rec); 414 # when its looked up, it must be relative to the base dir 415 push(@{$subdir_extrametakeys->{"$local_dirname$extrakey_dir"}},$subdir_rec); 416 #push(@{$subdir_extrametakeys->{"$extrakey_dir"}},$subdir_rec); 415 417 } 416 418 } … … 512 514 # Next add metadata read in XML files (if it is supplied) 513 515 if ($additionalmetadata == 1) { 514 515 516 my ($filespec, $mdref); 516 517 foreach $filespec (@extrametakeys) { 517 #print STDERR "filespec $filespec\n"; 518 ## use the utf8 encoded filename to do the filename comparison 518 ## use the utf8 encoded filename to do the filename comparison 519 519 if ($tmpfile =~ /^$filespec$/) { 520 520 print $outhandle "File \"$subfile\" matches filespec \"$filespec\"\n"
Note:
See TracChangeset
for help on using the changeset viewer.