We want the human-readable values for the EXIF stuff, not the machine-readable
authorSteinar H. Gunderson <sesse@debian.org>
Wed, 22 Aug 2007 06:24:48 +0000 (08:24 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Wed, 22 Aug 2007 06:24:48 +0000 (08:24 +0200)
ones.

perl/Sesse/pr0n/Common.pm

index 4229829ff29ff5643e152b7a50dea655a1701feb..b00810e610d721af181f0db3517f43aa45d5c66f 100644 (file)
@@ -259,9 +259,9 @@ sub update_image_info {
                }
 
                # Model/Lens
-               my $model = $exiftool->GetValue('Model', 'ValueConv');
-               my $lens = $exiftool->GetValue('Lens', 'ValueConv');
-               $lens = $exiftool->GetValue('LensSpec', 'ValueConv') if (!defined($lens));
+               my $model = $exiftool->GetValue('Model', 'PrintConv');
+               my $lens = $exiftool->GetValue('Lens', 'PrintConv');
+               $lens = $exiftool->GetValue('LensSpec', 'PrintConv') if (!defined($lens));
 
                $model =~ s/^\s*//;
                $model =~ s/\s*$//;