use C4::Context;
use GD;
-use vars qw($debug $noimage $VERSION @ISA @EXPORT);
+use vars qw($debug $noimage @ISA @EXPORT);
BEGIN {
- # set the version for version checking
- $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
my $dbh = C4::Context->dbh;
my $query =
-'SELECT mimetype, imagefile, thumbnail FROM biblioimages WHERE imagenumber = ?';
+'SELECT imagenumber, mimetype, imagefile, thumbnail FROM biblioimages WHERE imagenumber = ?';
my $sth = $dbh->prepare($query);
$sth->execute($imagenumber);
my $imagedata = $sth->fetchrow_hashref;
and warn "Reducing image by "
. ( $percent_reduce * 100 )
. "\% or to $width_reduce pix X $height_reduce pix";
- my $newimage = GD::Image->new( $width_reduce, $height_reduce, 1 )
- ; #'1' creates true color image...
+ my $newimage = GD::Image->new( $width_reduce, $height_reduce, $image->trueColor )
+ ; # if third is set, creates true color image
$newimage->copyResampled( $image, 0, 0, 0, 0, $width_reduce,
$height_reduce, $width, $height );
return $newimage;