use C4::Context;
use GD;
-use vars qw($debug $VERSION @ISA @EXPORT);
+use vars qw($debug $noimage $VERSION @ISA @EXPORT);
BEGIN {
# set the version for version checking
- $VERSION = 3.03;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
&DelImage
);
$debug = $ENV{KOHA_DEBUG} || $ENV{DEBUG} || 0;
+
+ $noimage = pack( "H*",
+ '47494638396101000100800000FFFFFF'
+ . '00000021F90401000000002C00000000'
+ . '010001000002024401003B' );
}
=head2 PutImage
my $sth = $dbh->prepare($query);
$sth->execute($imagenumber);
my $imagedata = $sth->fetchrow_hashref;
- if ( $sth->err ) {
- warn "Database error!";
- return undef;
+ if ( !$imagedata ) {
+ $imagedata->{'thumbnail'} = $noimage;
+ $imagedata->{'imagefile'} = $noimage;
}
- else {
- return $imagedata;
+ if ( $sth->err ) {
+ warn "Database error!" if $debug;
}
+ return $imagedata;
}
=head2 ListImagesForBiblio
my $query = 'SELECT imagenumber FROM biblioimages WHERE biblionumber = ?';
my $sth = $dbh->prepare($query);
$sth->execute($biblionumber);
- warn "Database error!" if $sth->errstr;
- if ( !$sth->errstr && $sth->rows > 0 ) {
- while ( my $row = $sth->fetchrow_hashref ) {
- push @imagenumbers, $row->{'imagenumber'};
- }
- return @imagenumbers;
- }
- else {
- return undef;
+ while ( my $row = $sth->fetchrow_hashref ) {
+ push @imagenumbers, $row->{'imagenumber'};
}
+ return @imagenumbers;
}
=head2 DelImage
}
}
+=head2 NoImage
+
+ C4::Images->NoImage;
+
+Returns the gif to be used when there is no image matching the request, and
+its mimetype (image/gif).
+
+=cut
+
+sub NoImage {
+ return $noimage, 'image/gif';
+}
+
1;