ONCE BITTEN: A Melanie Travis Mystery

Laurien Berenson, Author
Laurien Berenson, Author . Kensington $22 (281p) ISBN 978-1-57566-677-8
Reviewed on: 07/09/2001
Release date: 09/01/2001
EVAL ERROR: Entity: line 111: parser error : PCDATA invalid Char value 15
out a trace, a panicked Bertie gives Melanie a choice: either pinch-hit for Sara
                                                                                ^

Code:
line 1: package tmpevalpackage;
line 2: sub doEval { 
line 3: 	use Business::ISBN qw(:all);
line 4:     use LWP::Simple;
line 5: 	use XML::Simple;
line 6: 
line 7: 	my($isbn_struct,$isbn10_string,$isbn13_string,$isbn10,$isbn13,$ASIN,$linetext);
line 8: 	my($has_ad, $box_style, $buy_amazon, $buy_apple, $buy_indiebound, $buy_powells, $buy_google, $buy_bandn, $drawer_style);
line 9: 
line 10: 	++$main::ENV{'buy_counter'};
line 11: 
line 12: 	my ($isbn) = "978-1-57566-677-8";
line 13: 	if("1"){
line 14: 		$has_ad = 1;
line 15: 	}
line 16: 
line 17: 	$linetext = "";
line 18: 	my $no_image = "";
line 19: 	if($linetext){
line 20: 		$box_style .= "display:none;position:absolute;z-index:99999;width:100px;";
line 21: 		$drawer_style .= "display:block;";		
line 22: 	}
line 23: 	else{
line 24: 		$drawer_style .= "display:none;";		
line 25: 	}
line 26: 	
line 27: 	if($isbn =~ s/^ASIN(.+)/$1/){
line 28: 		$ASIN = 1;
line 29: 		$buy_amazon = "http://www.amazon.com/gp/product/$isbn/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 30: 	}
line 31: 	else{
line 32: 		$isbn_struct = Business::ISBN->new($isbn);
line 33: 		if($isbn_struct && $isbn_struct->is_valid){
line 34: 			$isbn10 = $isbn_struct->as_isbn10;
line 35: 			$isbn13 = $isbn_struct->as_isbn13;
line 36: 			$isbn10_string = $isbn10->as_string([]);
line 37: 			$isbn13_string = $isbn13->as_string([]);
line 38: 			$buy_amazon = "http://www.amazon.com/gp/product/$isbn10_string/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 39: 			$buy_apple = "http://itunes.apple.com/us/book/isbn$isbn13_string?at=10lvId";
line 40: 			$buy_indiebound = "http://www.indiebound.org/book/$isbn13_string?aff=PublishersWeekly";
line 41: 			$buy_powells = "http://www.powells.com/partner/41251/biblio/$isbn13_string?p_isbn";
line 42: 			$buy_google = "https://play.google.com/store/search?q=$isbn13_string&c=books&PAfiiliateID=11lwg2";
line 43: 			
line 44: 			my $bnxml = get("https://pds.barnesandnoble.com/fetch-data-service/productAffiliate?ids=$isbn13_string");
line 45: 			
line 46: 			if($bnxml){
line 47: 				my $xmlDoc = XML::Simple->new();
line 48: 				my $xmlHash = $xmlDoc->XMLin($bnxml);
line 49: 				
line 50: 				if( $xmlHash->{'ProductAffiliateResult'} 
line 51: 					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}
line 52: 					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'}){
line 53: 						$buy_bandn = "http://www.dpbolvw.net/click-4260421-11819508?url=" . $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'};
line 54: 				}
line 55: 			}
line 56: 
line 57: #			$buy_bandn = "http://click.linksynergy.com/deeplink?mid=36889&id=uWBQGnFbkjk&murl=http%3A%2F%2Fcart2.barnesandnoble.com%2FShop%2Fxt_manage_cart.asp%3Fean%3D$isbn13_string%26productcode%3DBK";
line 58: 
line 59: 		}
line 60: 	}
line 61: 
line 62: 	if($linetext){
line 63: 		print "<span id=\"box_inline$main::ENV{'buy_counter'}\" class=\"buy-link\" onmouseover=\"\$(\'#buy-container$main::ENV{'buy_counter'}\').fadeIn(100);\" onmouseleave=\"dismissUnlessEnter('#buy-container$main::ENV{\"buy_counter\"}','#box_inline$main::ENV{\"buy_counter\"}')\";>$linetext</span>\n";
line 64: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" onmouseleave=\"\$(\'#buy-container$main::ENV{'buy_counter'}\').fadeOut(100);\" style=\"$box_style\">\n";
line 65: 	}
line 66: 	else{
line 67: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" style=\"$box_style\">\n";
line 68: 	}
line 69: 	if(!$no_image) { 
line 70: 		print "
	
		
	
"; 
line 71: 		print "<div id=\"buy-box\">\n";
line 72: 	}
line 73: 	else {
line 74: 		print "<div id=\"buy-box\" style=\"width:100%;margin-top:10px;margin-bottom:20px;\">\n";
line 75: 	}
line 76: 	print "<div id=\"buy-inner-box\" class=\"buy-box\">\n";
line 77: 	if($linetext){
line 78: 		print "<div class=\"buy-box-header\">Buy this book</div>\n";
line 79: 	}
line 80: 	else{
line 81: 		print "<div class=\"buy-box-header\" onClick=\"\$(\'.buy-box-body$main::ENV{'buy_counter'}\').toggle(100);\">Buy this book</div>\n";
line 82: 	}
line 83: 	print "<div class=\"buy-box-body$main::ENV{'buy_counter'}\" style=\"$drawer_style\">\n";
line 84: 	print "<div class=\"buy-box-item\">\n";
line 85: 	print "<a href=\"$buy_amazon\" target=\"_offsite\">Amazon</a>\n";
line 86: 	print "</div>\n";
line 87: 	if(!$ASIN){
line 88: 		if($buy_bandn){
line 89: 			print "<div class=\"buy-box-item\">\n";
line 90: 			print "<a href=\"$buy_bandn\" target=\"_offsite\">Barnes & Noble</a>\n";
line 91: 			print "</div>\n";
line 92: 		}
line 93: 		print "<div class=\"buy-box-item\">\n";
line 94: 		print "<a href=\"$buy_google\" target=\"_offsite\">Google</a>\n";
line 95: 		print "</div>\n";
line 96: 		print "<div class=\"buy-box-item\">\n";
line 97: 		print "<a href=\"$buy_apple\" target=\"_offsite\">iBooks</a>\n";
line 98: 		print "</div>\n";
line 99: 		print "<div class=\"buy-box-item\">\n";
line 100: 		print "<a href=\"$buy_indiebound\" target=\"_offsite\">IndieBound</a>\n";
line 101: 		print "</div>\n";
line 102: 		print "<div class=\"buy-box-item\">\n";
line 103: 		print "<a href=\"$buy_powells\" target=\"_offsite\">Powell's</a>\n";
line 104: 		print "</div>\n";
line 105: 		}
line 106: 	print "</div>\n";
line 107: 	print "</div>\n";
line 108: 	print "</div>\n";
line 109: 	if($has_ad && !$no_image){
line 110: 		print "<div>\n";
line 111: 		print "<a rel=\"nofollow\" href=\"https://secure.publishersweekly.com/pw/link-tracker?action=click&id=8\"> </a><img src=\"https://secure.publishersweekly.com/pw/link-tracker?action=impression&id=8\" width=\"1\" height=\"1\">\n";
line 112: 		print "<iframe src=\"//ads.ad-center.com/smart_ad/display?ref=5042105&q=KEYWORD&smart_ad_id=16481\" width=\"204\" height=\"70\" frameborder=\"0\" scrolling=\"no\" allowtransparency=\"true\"></iframe>\n";
line 113: 		print "</div>\n";
line 114: 	}
line 115: 	print "</div>\n";
line 116: 
line 117:  };
line 118: &doEval();
line 119: 1;

In her eighth doggedly endearing adventure in sleuthing, Melanie Travis is anticipating her brother Frank's impending nuptials to beautiful dog-handler Bertie Kennedy while reflecting over the defection of her fiancé, Sam, who (in last year's Unleashed) suddenly announced he wasn't ready for marriage and went off to find himself. Bertie has hired an old friend, Sara Bentley, to plan her wedding, despite Sara's dubious reputation as a poor little rich girl who flits from one job to another. When Sara disappears soon after taking on the job, Bertie insists that Melanie help find her. As if Melanie doesn't have enough headaches, her ex-husband, Bob Travis, has suddenly reappeared, without his young wife, and is acting like he wants Melanie back. As Melanie delves into Sara's background, she realizes that most of Sara's friends and family aren't that concerned about her. Then a dead body turns up in a fire in the guest cottage where Sara lived on her mother's estate. Is it Sara? If not, then who is it, and where is Sara? The plot takes some surprising twists as Melanie digs deeper into Sara's life, trying to unearth the truth. Balancing an entertaining mystery puzzle with Melanie's attempt to resolve her feelings for her ex-husband and her decamped fiancé, Berenson rounds out the story with the lore of the dog-show world her readers expect. (Sept. 4)

FYI:With this title, the publisher has initiated a brighter, bolder jacket design for the series that can only help sales.

EVAL ERROR: Entity: line 111: parser error : PCDATA invalid Char value 15
out a trace, a panicked Bertie gives Melanie a choice: either pinch-hit for Sara
                                                                                ^

Code:
line 1: package tmpevalpackage;
line 2: sub doEval { 
line 3: 	use Business::ISBN qw(:all);
line 4:     use LWP::Simple;
line 5: 	use XML::Simple;
line 6: 
line 7: 	my($isbn_struct,$isbn10_string,$isbn13_string,$isbn10,$isbn13,$ASIN,$linetext);
line 8: 	my($has_ad, $box_style, $buy_amazon, $buy_apple, $buy_indiebound, $buy_powells, $buy_google, $buy_bandn, $drawer_style);
line 9: 
line 10: 	++$main::ENV{'buy_counter'};
line 11: 
line 12: 	my ($isbn) = "978-1-57566-677-8";
line 13: 	if("1"){
line 14: 		$has_ad = 1;
line 15: 	}
line 16: 
line 17: 	$linetext = "";
line 18: 	my $no_image = "";
line 19: 	if($linetext){
line 20: 		$box_style .= "display:none;position:absolute;z-index:99999;width:100px;";
line 21: 		$drawer_style .= "display:block;";		
line 22: 	}
line 23: 	else{
line 24: 		$drawer_style .= "display:none;";		
line 25: 	}
line 26: 	
line 27: 	if($isbn =~ s/^ASIN(.+)/$1/){
line 28: 		$ASIN = 1;
line 29: 		$buy_amazon = "http://www.amazon.com/gp/product/$isbn/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 30: 	}
line 31: 	else{
line 32: 		$isbn_struct = Business::ISBN->new($isbn);
line 33: 		if($isbn_struct && $isbn_struct->is_valid){
line 34: 			$isbn10 = $isbn_struct->as_isbn10;
line 35: 			$isbn13 = $isbn_struct->as_isbn13;
line 36: 			$isbn10_string = $isbn10->as_string([]);
line 37: 			$isbn13_string = $isbn13->as_string([]);
line 38: 			$buy_amazon = "http://www.amazon.com/gp/product/$isbn10_string/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 39: 			$buy_apple = "http://itunes.apple.com/us/book/isbn$isbn13_string?at=10lvId";
line 40: 			$buy_indiebound = "http://www.indiebound.org/book/$isbn13_string?aff=PublishersWeekly";
line 41: 			$buy_powells = "http://www.powells.com/partner/41251/biblio/$isbn13_string?p_isbn";
line 42: 			$buy_google = "https://play.google.com/store/search?q=$isbn13_string&c=books&PAfiiliateID=11lwg2";
line 43: 			
line 44: 			my $bnxml = get("https://pds.barnesandnoble.com/fetch-data-service/productAffiliate?ids=$isbn13_string");
line 45: 			
line 46: 			if($bnxml){
line 47: 				my $xmlDoc = XML::Simple->new();
line 48: 				my $xmlHash = $xmlDoc->XMLin($bnxml);
line 49: 				
line 50: 				if( $xmlHash->{'ProductAffiliateResult'} 
line 51: 					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}
line 52: 					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'}){
line 53: 						$buy_bandn = "http://www.dpbolvw.net/click-4260421-11819508?url=" . $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'};
line 54: 				}
line 55: 			}
line 56: 
line 57: #			$buy_bandn = "http://click.linksynergy.com/deeplink?mid=36889&id=uWBQGnFbkjk&murl=http%3A%2F%2Fcart2.barnesandnoble.com%2FShop%2Fxt_manage_cart.asp%3Fean%3D$isbn13_string%26productcode%3DBK";
line 58: 
line 59: 		}
line 60: 	}
line 61: 
line 62: 	if($linetext){
line 63: 		print "<span id=\"box_inline$main::ENV{'buy_counter'}\" class=\"buy-link\" onmouseover=\"\$(\'#buy-container$main::ENV{'buy_counter'}\').fadeIn(100);\" onmouseleave=\"dismissUnlessEnter('#buy-container$main::ENV{\"buy_counter\"}','#box_inline$main::ENV{\"buy_counter\"}')\";>$linetext</span>\n";
line 64: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" onmouseleave=\"\$(\'#buy-container$main::ENV{'buy_counter'}\').fadeOut(100);\" style=\"$box_style\">\n";
line 65: 	}
line 66: 	else{
line 67: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" style=\"$box_style\">\n";
line 68: 	}
line 69: 	if(!$no_image) { 
line 70: 		print "
	
		
	
"; 
line 71: 		print "<div id=\"buy-box\">\n";
line 72: 	}
line 73: 	else {
line 74: 		print "<div id=\"buy-box\" style=\"width:100%;margin-top:10px;margin-bottom:20px;\">\n";
line 75: 	}
line 76: 	print "<div id=\"buy-inner-box\" class=\"buy-box\">\n";
line 77: 	if($linetext){
line 78: 		print "<div class=\"buy-box-header\">Buy this book</div>\n";
line 79: 	}
line 80: 	else{
line 81: 		print "<div class=\"buy-box-header\" onClick=\"\$(\'.buy-box-body$main::ENV{'buy_counter'}\').toggle(100);\">Buy this book</div>\n";
line 82: 	}
line 83: 	print "<div class=\"buy-box-body$main::ENV{'buy_counter'}\" style=\"$drawer_style\">\n";
line 84: 	print "<div class=\"buy-box-item\">\n";
line 85: 	print "<a href=\"$buy_amazon\" target=\"_offsite\">Amazon</a>\n";
line 86: 	print "</div>\n";
line 87: 	if(!$ASIN){
line 88: 		if($buy_bandn){
line 89: 			print "<div class=\"buy-box-item\">\n";
line 90: 			print "<a href=\"$buy_bandn\" target=\"_offsite\">Barnes & Noble</a>\n";
line 91: 			print "</div>\n";
line 92: 		}
line 93: 		print "<div class=\"buy-box-item\">\n";
line 94: 		print "<a href=\"$buy_google\" target=\"_offsite\">Google</a>\n";
line 95: 		print "</div>\n";
line 96: 		print "<div class=\"buy-box-item\">\n";
line 97: 		print "<a href=\"$buy_apple\" target=\"_offsite\">iBooks</a>\n";
line 98: 		print "</div>\n";
line 99: 		print "<div class=\"buy-box-item\">\n";
line 100: 		print "<a href=\"$buy_indiebound\" target=\"_offsite\">IndieBound</a>\n";
line 101: 		print "</div>\n";
line 102: 		print "<div class=\"buy-box-item\">\n";
line 103: 		print "<a href=\"$buy_powells\" target=\"_offsite\">Powell's</a>\n";
line 104: 		print "</div>\n";
line 105: 		}
line 106: 	print "</div>\n";
line 107: 	print "</div>\n";
line 108: 	print "</div>\n";
line 109: 	if($has_ad && !$no_image){
line 110: 		print "<div>\n";
line 111: 		print "<a rel=\"nofollow\" href=\"https://secure.publishersweekly.com/pw/link-tracker?action=click&id=8\"> </a><img src=\"https://secure.publishersweekly.com/pw/link-tracker?action=impression&id=8\" width=\"1\" height=\"1\">\n";
line 112: 		print "<iframe src=\"//ads.ad-center.com/smart_ad/display?ref=5042105&q=KEYWORD&smart_ad_id=16481\" width=\"204\" height=\"70\" frameborder=\"0\" scrolling=\"no\" allowtransparency=\"true\"></iframe>\n";
line 113: 		print "</div>\n";
line 114: 	}
line 115: 	print "</div>\n";
line 116: 
line 117:  };
line 118: &doEval();
line 119: 1;
The Best Books, Emailed Every Week
Tip Sheet!
MORE BOOKS YOU'D LIKE
X