Teach Syndetic.pm to pass UPC in requests
authorJeff Godin <jgodin@tadl.org>
Sat, 28 Apr 2012 21:24:06 +0000 (17:24 -0400)
committerJeff Godin <jgodin@tadl.org>
Sat, 28 Apr 2012 21:24:06 +0000 (17:24 -0400)
Teach OpenILS::WWW::AddedContent::Syndetic to pass UPC when
requesting added content from the source.

Signed-off-by: Jeff Godin <jgodin@tadl.org>
Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/Syndetic.pm

index 5240752..0f23634 100644 (file)
@@ -258,7 +258,7 @@ sub fetch_response {
     my $isbn = $keys->{isbn}[0];
     my $upc = $keys->{upc}[0];
 
-    my $url = $self->base_url . "?isbn=$isbn/$page&client=$uname" . (($notype) ? '' : "&type=rw12");
+    my $url = $self->base_url . "?isbn=$isbn/$page&upc=$upc&client=$uname" . (($notype) ? '' : "&type=rw12");
     return $AC->get_url($url);
 }