require Sesse::pr0n::Config_local;
};
- $VERSION = "v2.41";
+ $VERSION = "v2.49";
@ISA = qw(Exporter);
@EXPORT = qw(&error &dberror);
%EXPORT_TAGS = qw();
my ($r, $filename, $id, $dbwidth, $dbheight, $infobox, $xres, $yres, @otherres) = @_;
my $fname = get_disk_location($r, $id);
- unless (defined($xres) && ($xres < $dbheight || $yres < $dbwidth || $dbwidth == -1 || $dbheight == -1 || $xres == -1)) {
+ unless (defined($xres) && ($xres < $dbheight || $yres < $dbwidth || !defined($dbwidth) || !defined($dbheight) || $xres == -1)) {
return ($fname, 0);
}
my $height = $img->Get('rows');
# Update the SQL database if it doesn't contain the required info
- if ($dbwidth == -1 || $dbheight == -1) {
+ if (!defined($dbwidth) || !defined($dbheight)) {
$r->log->info("Updating width/height for $id: $width x $height");
update_image_info($r, $id, $width, $height);
}
push @classic_fields, $info->{'ISOSetting'} . " ISO";
}
- if (defined($info->{'ExposureBiasValue'}) && $info->{'ExposureBiasValue'} != 0) {
+ if (defined($info->{'ExposureBiasValue'}) && $info->{'ExposureBiasValue'} ne "0") {
push @classic_fields, $info->{'ExposureBiasValue'} . " EV";
} elsif (defined($info->{'ExposureCompensation'}) && $info->{'ExposureCompensation'} != 0) {
push @classic_fields, $info->{'ExposureCompensation'} . " EV";