#!/usr/bin/perl

use strict;
use C4::Context;
use CGI;
use Business::ISBN;

my $dbh = C4::Context->dbh();

my $isbn;
my $isbn10;

my $sqlQuery = "SELECT items.biblionumber AS biblionumber, isbn, title, author FROM ((items JOIN biblio ON items.biblionumber = biblio.biblionumber) JOIN biblioitems on items.biblionumber=biblioitems.biblioitemnumber AND items.biblioitemnumber=biblioitems.biblioitemnumber) WHERE iType='BOOK'  ORDER BY dateaccessioned DESC LIMIT 45";
my $sth = $dbh->prepare($sqlQuery);
$sth->execute();
my $query = new CGI;
my $i = 1000;
#print $query->header(-charset=>'utf-8');
#print $query->start_html(-encoding=>'utf-8');
print "<div class='bookshelf'>";
while (my $ref = $sth->fetchrow_hashref()) {
	$ref->{'title'} =~ s/\ (:|\/)$//g;
	$ref->{'author'}  =~ s/\ (:|\/)$//g;
	if (defined($ref->{'isbn'})) {
		eval {
			$isbn = Business::ISBN->new($ref->{'isbn'});
			$isbn = $isbn->as_isbn10;
			$isbn10 = $isbn->isbn;
			print "<a class=\"biblio\" href=\"/cgi-bin/koha/opac-detail.pl?biblionumber=$ref->{'biblionumber'}\"><div title=\"$ref->{'biblionumber'}\" class=\"$ref->{'isbn'} bookCover\" id=\"gbs-thumbnail$i\" data-title=\"$ref->{'title'}\" data-isbn=\"$ref->{'isbn'}\" data-author=\"$ref->{'author'}\"/></a>";
		$i = $i + 1;
		} or do { };
	}
	else {

	}
}
print "</div>";