#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;

use Opals::BookCover qw(
    bookCover_opals
);

my $cgi = CGI->new;

 
my $syndeticsId   = Opals::Context->preference('syndeticsId');

my $input = $cgi->Vars();
my $isbn=$input->{'isbn'};
my $cid=$input->{'cid'};

my $size=$input->{'size'};
my $showCaptionParam="";
#
my $syndeticsId   = Opals::Context->preference('syndeticsId');
my $url ="";
if($syndeticsId ne ''){
    $size='mc'  if($size ne 'sc');
    $url ="/bin/search/bookcover?isbn=$isbn&size=$size";
    if ($input->{'capMore'} ==1){
        $url .= "&capMore=1";
    }
}

else{
    my @isbnArr =split /,/,$isbn;
    my @isbnList=();
    foreach my $isbn(@isbnArr){
        push @isbnList,{item=>$isbn};
    }
    my $isbn_first=$isbnArr[0] if(scalar(@isbnArr)>0);
    my @recList=({cid=>$cid,isbn=>\@isbnList,isbn_first=>$isbn_first});

    bookCover_opals(\@recList,$size);
    if(defined $recList[0]->{'bookcoverURL'}){
        $url = $recList[0]->{'bookcoverURL'};
    }
    else{
        $url ="http://books.google.com/books?printsec=frontcover&frontcover&img=1&zoom=1&vid=ISBN$isbn_first" ;
    }
}

print $cgi->redirect($url);