use C4::Context;
use GD;
-use vars qw($debug $VERSION @ISA @EXPORT);
+use vars qw($debug $noimage $VERSION @ISA @EXPORT);
BEGIN {
&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
}
}
+=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;