"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Image/ExifTool/DarwinCore.pm" between
Image-ExifTool-12.05.tar.gz and Image-ExifTool-12.06.tar.gz

About: ExifTool is a platform-independent Perl library plus a command-line application for reading, writing and editing meta information in a wide variety of files.

DarwinCore.pm  (Image-ExifTool-12.05):DarwinCore.pm  (Image-ExifTool-12.06)
skipping to change at line 18 skipping to change at line 18
# References: 1) http://rs.tdwg.org/dwc/index.htm # References: 1) http://rs.tdwg.org/dwc/index.htm
# 2) https://exiftool.org/forum/index.php/topic,4442.0/all.html # 2) https://exiftool.org/forum/index.php/topic,4442.0/all.html
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
package Image::ExifTool::DarwinCore; package Image::ExifTool::DarwinCore;
use strict; use strict;
use vars qw($VERSION); use vars qw($VERSION);
use Image::ExifTool::XMP; use Image::ExifTool::XMP;
$VERSION = '1.03'; $VERSION = '1.04';
my %dateTimeInfo = ( my %dateTimeInfo = (
# NOTE: Do NOT put "Groups" here because Groups hash must not be common! # NOTE: Do NOT put "Groups" here because Groups hash must not be common!
Writable => 'date', Writable => 'date',
Shift => 'Time', Shift => 'Time',
PrintConv => '$self->ConvertDateTime($val)', PrintConv => '$self->ConvertDateTime($val)',
PrintConvInv => '$self->InverseDateTime($val,undef,1)', PrintConvInv => '$self->InverseDateTime($val,undef,1)',
); );
my %materialSample = ( my %materialSample = (
STRUCT_NAME => 'DarwinCore MaterialSample', STRUCT_NAME => 'DarwinCore MaterialSample',
NAMESPACE => 'dwc', NAMESPACE => 'dwc',
materialSampleID => { }, materialSampleID => { },
); );
my %event = ( my %event = (
STRUCT_NAME => 'DarwinCore Event', STRUCT_NAME => 'DarwinCore Event',
NAMESPACE => 'dwc', NAMESPACE => 'dwc',
day => { Writable => 'integer', Groups => { 2 => 'Time' } }, day => { Writable => 'integer', Groups => { 2 => 'Time' } },
earliestDate => { %dateTimeInfo, Groups => { 2 => 'Time' } }, earliestDate => { %dateTimeInfo, Groups => { 2 => 'Time' } },
endDayOfYear => { Writable => 'integer', Groups => { 2 => 'Time' } }, endDayOfYear => { Writable => 'integer', Groups => { 2 => 'Time' } },
eventDate => { %dateTimeInfo, Groups => { 2 => 'Time' } }, eventDate => { %dateTimeInfo, Groups => { 2 => 'Time' } },
eventID => { }, eventID => { },
eventRemarks => { Writable => 'lang-alt' }, eventRemarks => { Writable => 'lang-alt' },
eventTime => { Shift => 'Time', Groups => { 2 => 'Time' } }, eventTime => {
Groups => { 2 => 'Time' },
Writable => 'string', # (so we can format this ourself)
Shift => 'Time',
# (pass straight through if this isn't a full date/time value)
ValueConv => 'Image::ExifTool::XMP::ConvertXMPDate($val)',
PrintConv => '$self->ConvertDateTime($val)',
ValueConvInv => 'Image::ExifTool::XMP::FormatXMPDate($val) or $val',
PrintConvInv => q{
my $v = $self->InverseDateTime($val,undef,1);
undef $Image::ExifTool::evalWarning;
return $v || $val;
},
},
fieldNotes => { }, fieldNotes => { },
fieldNumber => { }, fieldNumber => { },
habitat => { }, habitat => { },
latestDate => { %dateTimeInfo, Groups => { 2 => 'Time' } }, latestDate => { %dateTimeInfo, Groups => { 2 => 'Time' } },
month => { Writable => 'integer', Groups => { 2 => 'Time' } }, month => { Writable => 'integer', Groups => { 2 => 'Time' } },
parentEventID => { }, parentEventID => { },
samplingEffort => { }, samplingEffort => { },
samplingProtocol => { }, samplingProtocol => { },
sampleSizeValue => { }, sampleSizeValue => { },
sampleSizeUnit => { }, sampleSizeUnit => { },
 End of changes. 3 change blocks. 
3 lines changed or deleted 16 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)