From a0e7ea047f06d447ae9d343f87bd7614dac04cdf Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 1 Mar 2019 08:00:53 -0300 Subject: [PATCH] Bug 22445: Add new method Koha::Biblio->custom_cover_image_url Sponsored-by: Orex Digital Signed-off-by: Hayley Mapley Signed-off-by: Hugo Agud Signed-off-by: Owen Leonard Signed-off-by: Michal Denar Signed-off-by: Kyle Hall Signed-off-by: Katrin Fischer Signed-off-by: Martin Renvoize --- Koha/Biblio.pm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/Koha/Biblio.pm b/Koha/Biblio.pm index 1de0c6f417..427005d523 100644 --- a/Koha/Biblio.pm +++ b/Koha/Biblio.pm @@ -659,6 +659,29 @@ sub is_serial { return 0; } +=head3 custom_cover_image_url + +my $image_url = $biblio->custom_cover_image_url + +Return the specific url of the cover image for this bibliographic record. +It is built regaring the value of the system preference CustomCoverImagesURL + +=cut + +sub custom_cover_image_url { + my ( $self ) = @_; + my $url = C4::Context->preference('CustomCoverImagesURL'); + if ( $url =~ m|%isbn%| ) { + my $isbn = $self->biblioitem->isbn; + $url =~ s|%isbn%|$isbn|g; + } + if ( $url =~ m|%issn%| ) { + my $issn = $self->biblioitem->issn; + $url =~ s|%issn%|$issn|g; + } + return $url; +} + =head3 type =cut -- 2.20.1