← Back to branch summary

~berthold-daum/zora/trunk

« back to all changes in this revision

Viewing changes to com.bdaum.zoom.batch.unix/exiftool/lib/Image/ExifTool/MWG.pm

  • Committer: bdaum
  • Date: 2015-12-26 10:21:51 UTC
  • Revision ID: berthold.daum@bdaum.de-20151226102151-44f1j5113167thb9
Version 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
com.bdaum.zoom.batch.unix/exiftool/lib/Image/ExifTool/MWG.pm
16
16
use Image::ExifTool::Exif;
17
17
use Image::ExifTool::XMP;
18
18
 
19
 
$VERSION = '1.15';
 
19
$VERSION = '1.16';
20
20
 
21
21
sub RecoverTruncatedIPTC($$$);
22
22
sub ListToString($);
422
422
    },
423
423
    BarCodeValue=> { },
424
424
    Extensions  => { Struct => \%sExtensions },
 
425
    Rotation    => { # (observed in LR6 XMP)
 
426
        Writable => 'real',
 
427
        Notes => 'RegionsRegionListRotation, not part of MWG 2.0 spec',
 
428
    },
425
429
    seeAlso => { Namespace => 'rdfs', Resource => 1 },
426
430
);
427
431
my %sKeywordStruct;
678
682
            push @vals, RecoverTruncatedIPTC($$iptc[$i], $$xmp[$i], $limit);
679
683
        }
680
684
        return \@vals;
681
 
    } elsif (defined $iptc and length $iptc == $limit) {    
 
685
    } elsif (defined $iptc and length $iptc == $limit) {
682
686
        $xmp = $$xmp[0] if ref $xmp;    # take first element of list
683
687
        return $xmp if length $xmp > $limit and $iptc eq substr($xmp, 0, $limit);
684
688
    }