Trim the EXIF values; seems like the Pentax K10D sometimes adds extra spaces

[pr0n] / perl / Sesse / pr0n / Index.pm

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 737eba6e7f908a42fa0cd7a57d225297ff919ee2..5a635d4c190aac8a5fff7e9fc3a05c1ae4aa25b8 100644 (file)
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -156,8 +156,8 @@ sub handler {
                # Find the equipment used
                my $eq = $dbh->prepare('
                        SELECT 
-                               model.value AS model,
-                               coalesce(lens_spec.value, lens.value) AS lens,
+                               TRIM(model.value) AS model,
+                               coalesce(TRIM(lens_spec.value), TRIM(lens.value)) AS lens,
                                COUNT(*) AS num
                        FROM images i
                                LEFT JOIN exif_info model ON i.id=model.image