From f333b383f33596b715564c3f391342365eef288d Mon Sep 17 00:00:00 2001 From: Jeff Godin Date: Wed, 2 May 2012 10:25:15 -0400 Subject: [PATCH] Protect against warnings when no isbn/upc provided Protect against Perl giving us uninitialized value warnings when isbn or upc has not been provided. Signed-off-by: Jeff Godin --- Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/Syndetic.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/Syndetic.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/Syndetic.pm index 8226d72ee4..37de07262e 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/Syndetic.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/Syndetic.pm @@ -268,6 +268,9 @@ sub fetch_response { my $isbn = $keys->{isbn}[0]; my $upc = $keys->{upc}[0]; + $isbn = '' if !defined($isbn); + $upc = '' if !defined($upc); + my $url = $self->base_url . "?isbn=$isbn/$page&upc=$upc&client=$uname" . (($notype) ? '' : "&type=rw12"); return $AC->get_url($url); } -- 2.11.0