Changeset 9145
- Timestamp:
- 2005-02-23T10:11:03+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/RecPlug.pm
r9122 r9145 260 260 261 261 if (defined $self->{'subdir_extrametakeys'}->{$local_dirname}) { 262 print STDERR "**** Matching on dirname = $local_dirname\n";263 262 my $extrakeys = $self->{'subdir_extrametakeys'}->{$local_dirname}; 264 263 foreach my $ek (@$extrakeys) { … … 282 281 } 283 282 284 # importeach of the files in the directory283 # apply metadata pass for each of the files in the directory 285 284 my $out_metadata; 286 285 my $num_files = scalar(@dir); … … 289 288 my $this_file_base_dir = $base_dir; 290 289 last if ($maxdocs != -1 && $count >= $maxdocs); 291 next if ($subfile =~ /^\.\.?$/);290 next if ($subfile =~ m/^\.\.?$/); 292 291 #next if ($read_metadata_files && $subfile =~ /metadata\.xml$/); 293 292 … … 315 314 316 315 my $subdir_extrametakeys = $self->{'subdir_extrametakeys'}; 317 print STDERR "*** pushing on $subdir_re for $extrakey_dir\n";318 316 319 317 my $subdir_rec = { 're' => $subdir_re, 'md' => $md };
Note:
See TracChangeset
for help on using the changeset viewer.