<%perl>
my %cookies = fetch CGI::Cookie;
unless ($cookies{'siteWideUsername'}) {
$m->redirect("/bin/login.html?lastat=/bin/books/rate/1.html?asin=$asin");
}
my $datasource = "dbi:mysql:peakinsight";
my $dbusername = "peakinsight";
my $dbpassword = "aayrsh3687";
my $dbh = DBI->connect($datasource, $dbusername, $dbpassword);
my $statement = "SELECT title,author,releasedate FROM books WHERE asin=?";
my $sth = $dbh->prepare($statement);
$sth->execute($asin);
my ($title,$author,$releasedate) = $sth->fetchrow_array;
my $isbn = $asin;
if (length($isbn) < 10) {
my $diff = 10 - length($isbn);
while ($diff > 0) {
$isbn = "0".$isbn;
$diff--;
}
}
print qq(
Author: $author
Title: $title
Published: $releasedate Buy from Amazon
);
Tell us why you liked or disliked this book. Please focus on the book's content and how the book could be used. Feel free to mention related items and how this book compares to them. Posts are required to comply with our Book Review Policy. Please refrain from making injurious or objectionable comments. Please note that your name will be posted with your review automatically. You can check the box below to have your email address displayed as well.
