Changeset 19811
- Timestamp:
- 2009-06-11T21:30:46+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MetadataEXIFPlugin.pm
r19493 r19811 155 155 print $outhandle " Extracted $metadata_count pieces of metadata from $filename EXIF block\n"; 156 156 } 157 158 # Associate the metadata now 159 ## print STDERR "**** file = $file\n"; 160 161 $extrametadata->{$file} = \%exif_metadata; 162 push(@$extrametakeys, $file); 157 158 # Protect windows directory chars \ 159 $file = &util::filename_to_regex($file); 160 # print STDERR "**** file = $file\n"; 161 162 # Associate the metadata now 163 164 $extrametadata->{$file} = \%exif_metadata; 165 push(@$extrametakeys, $file); 163 166 164 167 }
Note:
See TracChangeset
for help on using the changeset viewer.