From b50a81676f63c97cf555f68a1bb2c2abc880f559 Mon Sep 17 00:00:00 2001 From: Dan Scott Date: Thu, 2 Jun 2011 12:25:33 -0400 Subject: [PATCH] Return transparent images if no cover art is found For now the URL is hardcoded; later on we'll refactor AddedContent.pm to give us access to more information about our Apache environment to default to something much, much smarter. Signed-off-by: Dan Scott Signed-off-by: Bill Erickson --- .../src/perlmods/lib/OpenILS/WWW/AddedContent/OpenLibrary.pm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/OpenLibrary.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/OpenLibrary.pm index b140282e25..3bdaf6a96e 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/OpenLibrary.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/OpenLibrary.pm @@ -28,6 +28,8 @@ use Data::Dumper; my $AC = 'OpenILS::WWW::AddedContent'; +my $blank_img = 'http://images.concat.ca/opac/images/blank.png'; + # This URL is always the same for OpenLibrary, so there's no advantage to # pulling from opensrf.xml @@ -303,7 +305,7 @@ sub fetch_details_response { sub fetch_items_response { my ($self, $key) = @_; - my $book_results = $self->fetch_response($key); + my $book_results = $self->fetch_response($key) || return 0; my $items = $book_results->{items}; @@ -324,6 +326,10 @@ sub fetch_cover_response { my $items = $self->fetch_items_response($key); + if (!$items) { + return $AC->get_url($blank_img); + } + $logger->debug("$key: items request got " . scalar(@$items) . " items back"); foreach my $item (@$items) { @@ -333,7 +339,9 @@ sub fetch_cover_response { } $logger->debug("$key: no covers for this book"); - return 0; + + # Return a blank image + return $AC->get_url($blank_img); } 1; -- 2.11.0