Diff of /bin/lens-submit [024dae] .. [e1ad76]  Maximize  Restore

Switch to unified view

a/bin/lens-submit b/bin/lens-submit
...
...
27
    }
27
    }
28
28
29
    my $image = $pto->Image->[0];
29
    my $image = $pto->Image->[0];
30
30
31
    my $query_image = {};
31
    my $query_image = {};
32
    for my $parameter qw/w h f v a b c d e g t Ra Rb Rc Rd Re Va Vb Vc Vd Vx Vy/
32
    for my $parameter (qw/w h f v a b c d e g t Ra Rb Rc Rd Re Va Vb Vc Vd Vx Vy/)
33
    {
33
    {
34
        $query_image->{$parameter} = $image->{$parameter}
34
        $query_image->{$parameter} = $image->{$parameter}
35
            if defined $image->{$parameter};
35
            if defined $image->{$parameter};
36
    }
36
    }
37
37
...
...
48
    {
48
    {
49
        print "Skipping: Incomplete EXIF\n"; next;
49
        print "Skipping: Incomplete EXIF\n"; next;
50
    }
50
    }
51
51
52
    my $query_photo = {};
52
    my $query_photo = {};
53
    for my $parameter qw/ColorSpace ExifVersion FileType FNumber FocalLength FOV
53
    for my $parameter (qw/ColorSpace ExifVersion FileType FNumber FocalLength FOV
54
        FocalLengthIn35mmFormat ImageHeight ImageWidth Lens LensModel LensType Make
54
        FocalLengthIn35mmFormat ImageHeight ImageWidth Lens LensModel LensType Make
55
        Model ResolutionUnit ScaleFactor35efl Software SubjectDistanceRange XResolution
55
        Model ResolutionUnit ScaleFactor35efl Software SubjectDistanceRange XResolution
56
        YResolution/
56
        YResolution/)
57
    {
57
    {
58
        $query_photo->{$parameter} = $photo->{$parameter}
58
        $query_photo->{$parameter} = $photo->{$parameter}
59
            if defined $photo->{$parameter};
59
            if defined $photo->{$parameter};
60
    }
60
    }
61
61

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks