Changeset 24107 for main/trunk/greenstone2/perllib/cpan/Image/ExifTool/PhotoMechanic.pm

Timestamp:

2011-06-01T12:33:42+12:00 (13 years ago)

Author:

sjm84

Message:

Updating the ExifTool perl modules

File:

• main/trunk/greenstone2/perllib/cpan/Image/ExifTool/PhotoMechanic.pm (modified) (8 diffs)

main/trunk/greenstone2/perllib/cpan/Image/ExifTool/PhotoMechanic.pm

@@ -16 +16 @@
 use Image::ExifTool::XMP;
 
-$VERSION = '1.00';
+$VERSION = '1.02';
 
 sub ProcessPhotoMechanic($$);
@@ -50 +50 @@
 );
 
-# rawCrop coordinate conversions
+# raw/preview crop coordinate conversions
 my %rawCropConv = (
     ValueConv => '$val / 655.36',
@@ -65 +65 @@
     WRITABLE => 1,
     FORMAT => 'int32s',
-    209 => {
-        Name => 'RawCropLeft',
-        %rawCropConv,
-    },
-    210 => {
-        Name => 'RawCropTop',
-        %rawCropConv,
-    },
-    211 => {
-        Name => 'RawCropRight',
-        %rawCropConv,
-    },
-    212 => {
-        Name => 'RawCropBottom',
-        %rawCropConv,
-    },
+    209 => { Name => 'RawCropLeft',   %rawCropConv },
+    210 => { Name => 'RawCropTop',    %rawCropConv },
+    211 => { Name => 'RawCropRight',  %rawCropConv },
+    212 => { Name => 'RawCropBottom', %rawCropConv },
     213 => 'ConstrainedCropWidth',
     214 => 'ConstrainedCropHeight',
@@ -106 +94 @@
     },
     223 => 'Rating',
+    236 => { Name => 'PreviewCropLeft',   %rawCropConv },
+    237 => { Name => 'PreviewCropTop',    %rawCropConv },
+    238 => { Name => 'PreviewCropRight',  %rawCropConv },
+    239 => { Name => 'PreviewCropBottom', %rawCropConv },
 );
 
@@ -122 +114 @@
     EditStatus  => { },
     Prefs       => {
+        Notes => 'format is "Tagged:0, ColorClass:1, Rating:2, FrameNum:3"',
         PrintConv => q{
             $val =~ s[\s*(\d+):\s*(\d+):\s*(\d+):\s*(\S*)]
@@ -164 +157 @@
         last unless $footer =~ /cbipcbbl$/;
         my $size = unpack('N', $footer);
-    
+
         if ($size & 0x80000000 or not $raf->Seek(-$size-12, 1)) {
             $exifTool->Warn('Bad PhotoMechanic trailer');
@@ -178 +171 @@
         $$dirInfo{DataPos} = $raf->Tell() - $size;
         $$dirInfo{DirLen} = $size + 12;
-    
+
         my %dirInfo = (
             DataPt => \$buff,
@@ -238 +231 @@
 =head1 AUTHOR
 
-Copyright 2003-2007, Phil Harvey (phil at owl.phy.queensu.ca)
+Copyright 2003-2011, Phil Harvey (phil at owl.phy.queensu.ca)
 
 This library is free software; you can redistribute it and/or modify it