The Kids Guide to Money Cent$

Keltie Thomas, Author, Steve Maceachern, Author, Stephen MacEachern, Illustrator Kids Can Press $14.95 (56p) ISBN 978-1-55337-389-6
EVAL ERROR: Final $ should be \$ or $name at (eval 2544) line 65, within string
syntax error at (eval 2544) line 65, near "= "The Kids Guide to Money Cent$""
Global symbol "$title" requires explicit package name at (eval 2544) line 67.
Global symbol "$title" requires explicit package name at (eval 2544) line 67.

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: 	use HTML::Entities;
line 7: 
line 8: 
line 9: 	my($isbn_struct,$isbn10_string,$isbn13_string,$isbn10,$isbn13,$ASIN,$linetext);
line 10: 	my($has_ad, $box_style, $buy_amazon, $buy_apple, $buy_indiebound, $buy_powells, $buy_google, $buy_bandn, $drawer_style);
line 11: 
line 12: 	++$main::ENV{'buy_counter'};
line 13: 
line 14: 	my ($isbn) = "978-1-55337-389-6";
line 15: 	if("1"){
line 16: 		$has_ad = 1;
line 17: 	}
line 18: 
line 19: 	$linetext = "";
line 20: 	my $no_image = "";
line 21: 	if($linetext){
line 22: 		$box_style .= "display:none;position:absolute;z-index:99999;width:100px;";
line 23: 		$drawer_style .= "display:block;";
line 24: 	}
line 25: 	else{
line 26: 		$drawer_style .= "display:none;";
line 27: 	}
line 28: 
line 29: 	if($isbn =~ s/^ASIN(.+)/$1/){
line 30: 		$ASIN = 1;
line 31: 		$buy_amazon = "http://www.amazon.com/gp/product/$isbn/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 32: 	}
line 33: 	else{
line 34: 		$isbn_struct = Business::ISBN->new($isbn);
line 35: 		if($isbn_struct && $isbn_struct->is_valid){
line 36: 			$isbn10 = $isbn_struct->as_isbn10;
line 37: 			$isbn13 = $isbn_struct->as_isbn13;
line 38: 			$isbn10_string = $isbn10->as_string([]);
line 39: 			$isbn13_string = $isbn13->as_string([]);
line 40: 			$buy_amazon = "http://www.amazon.com/gp/product/$isbn10_string/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 41: 			$buy_apple = "http://itunes.apple.com/us/book/isbn$isbn13_string?at=10lvId";
line 42: 			$buy_indiebound = "http://www.indiebound.org/book/$isbn13_string?aff=PublishersWeekly";
line 43: 			$buy_powells = "http://www.powells.com/partner/41251/biblio/$isbn13_string?p_isbn";
line 44: 			$buy_google = "https://play.google.com/store/search?q=$isbn13_string&c=books&PAfiiliateID=11lwg2";
line 45: 
line 46: 			$buy_bandn = "http://www.anrdoezrs.net/click-7485766-11819508?url=http://www.barnesandnoble.com/w/?ean=$isbn13_string";
line 47: 
line 48: #			my $bnxml = get("https://pds.barnesandnoble.com/fetch-data-service/productAffiliate?ids=$isbn13_string");
line 49: #
line 50: #			if($bnxml){
line 51: #				my $xmlDoc = XML::Simple->new();
line 52: #				my $xmlHash = $xmlDoc->XMLin($bnxml);
line 53: #
line 54: #				if( $xmlHash->{'ProductAffiliateResult'}
line 55: #					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}
line 56: #					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'}){
line 57: #						$buy_bandn = "http://www.dpbolvw.net/click-4260421-11819508?url=" . $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'};
line 58: #				}
line 59: #			}
line 60: #
line 61: #			$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 62: 
line 63: 		}
line 64: 	}
line 65: 	my $title = "The Kids Guide to Money Cent$";
line 66: 
line 67: 	$title = encode_entities($title, '<>&"');
line 68: 
line 69: 	if($linetext){
line 70: 		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 71: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" onmouseleave=\"\$(\'#buy-container$main::ENV{'buy_counter'}\').fadeOut(100);\" style=\"$box_style\">\n";
line 72: 	}
line 73: 	else{
line 74: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" style=\"$box_style\">\n";
line 75: 	}
line 76: 	if(!$no_image) {
line 77: 		print "
EVAL ERROR: Global symbol "$title" requires explicit package name at (eval 2546) line 11.

Code:
line 1: package tmpevalpackage;
line 2: sub doEval { 
line 3: 	my(@incoming,$isbn);
line 4: 
line 5: 	$main::ENV{'image_url'} = '';
line 6: 
line 7: 	@incoming = split(/,/,"$isbn");
line 8: 	$isbn = $incoming[0];
line 9: 	
line 10: 	$isbn =~ s/-//g;
line 11: 	$main::ENV{'image_alt_title'} = "$title";
line 12: 		 = "https://booklife.com/image-factory/http/localhost/amazongetcover/$isbn.jpg/w204.jpg";
line 13:  };
line 14: &doEval();
line 15: 1;
"; line 78: print "<div id=\"buy-box\">\n"; line 79: } line 80: else { line 81: print "<div id=\"buy-box\" style=\"width:100%;margin-top:10px;margin-bottom:20px;\">\n"; line 82: } line 83: print "<div id=\"buy-inner-box\" class=\"buy-box\">\n"; line 84: if($linetext){ line 85: print "<div class=\"buy-box-header\">Buy this book</div>\n"; line 86: } line 87: else{ line 88: print "<div class=\"buy-box-header\" onClick=\"\$(\'.buy-box-body$main::ENV{'buy_counter'}\').toggle(100);\">Buy this book</div>\n"; line 89: } line 90: print "<div class=\"buy-box-body$main::ENV{'buy_counter'}\" style=\"$drawer_style\">\n"; line 91: print "<div class=\"buy-box-item\">\n"; line 92: print "<a href=\"$buy_amazon\" target=\"_offsite\">Amazon</a>\n"; line 93: print "</div>\n"; line 94: if(!$ASIN){ line 95: if($buy_bandn){ line 96: print "<div class=\"buy-box-item\">\n"; line 97: print "<a href=\"$buy_bandn\" target=\"_offsite\">Barnes & Noble</a>\n"; line 98: print "</div>\n"; line 99: } line 100: #print "<div class=\"buy-box-item\">\n"; line 101: #print "<a href=\"$buy_google\" target=\"_offsite\">Google</a>\n"; line 102: #print "</div>\n"; line 103: print "<div class=\"buy-box-item\">\n"; line 104: print "<a href=\"$buy_apple\" target=\"_offsite\">iBooks</a>\n"; line 105: print "</div>\n"; line 106: print "<div class=\"buy-box-item\">\n"; line 107: print "<a href=\"$buy_indiebound\" target=\"_offsite\">IndieBound</a>\n"; line 108: print "</div>\n"; line 109: print "<div class=\"buy-box-item\">\n"; line 110: print "<a href=\"$buy_powells\" target=\"_offsite\">Powell's</a>\n"; line 111: print "</div>\n"; line 112: } line 113: print "</div>\n"; line 114: print "</div>\n"; line 115: print "</div>\n"; line 116: # if($has_ad && !$no_image){ line 117: # print "<div>\n"; line 118: # print "<div><a rel=\"nofollow\" href=\"https://www.publishersweekly.com/pw/link-tracker?action=click&id=8\"> </a><img src=\"https://www.publishersweekly.com/pw/link-tracker?action=impression&id=8\" width=\"1\" height=\"1\"></div>\n"; line 119: # print "<div class=\"quicklinks-ad\">ADVERTISEMENT</div>"; line 120: # 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 121: # print "</div>\n"; line 122: # } line 123: print "</div>\n"; line 124: line 125: }; line 126: &doEval(); line 127: 1;
Kids get a lesson in managing their money in the paper-over-board The Kids' Guide to Money Cent$ by Keltie Thomas, illus. by Steve MacEachern. Readers follow three students with different spending and saving habits. As they prepare a report for school, the trio (and readers) learns about managing cash flow, getting a job, banking and credit cards, as well as scams. Quizzes (e.g., ""What's Your Money Personality?""), sidebars, tips (called ""2 Worth""), and historical trivia help to demonstrate the points.
Reviewed on: 03/01/2004
Release date: 03/01/2004
Paperback - 56 pages - 978-1-55337-391-9
Paperback - 56 pages - 978-1-55337-390-2
Prebound-Sewn - 56 pages - 978-0-606-25013-9
Show other formats
FORMATS
EVAL ERROR: Final $ should be \$ or $name at (eval 2550) line 65, within string
syntax error at (eval 2550) line 65, near "= "The Kids Guide to Money Cent$""
Global symbol "$title" requires explicit package name at (eval 2550) line 67.
Global symbol "$title" requires explicit package name at (eval 2550) line 67.

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: 	use HTML::Entities;
line 7: 
line 8: 
line 9: 	my($isbn_struct,$isbn10_string,$isbn13_string,$isbn10,$isbn13,$ASIN,$linetext);
line 10: 	my($has_ad, $box_style, $buy_amazon, $buy_apple, $buy_indiebound, $buy_powells, $buy_google, $buy_bandn, $drawer_style);
line 11: 
line 12: 	++$main::ENV{'buy_counter'};
line 13: 
line 14: 	my ($isbn) = "978-1-55337-389-6";
line 15: 	if("1"){
line 16: 		$has_ad = 1;
line 17: 	}
line 18: 
line 19: 	$linetext = "";
line 20: 	my $no_image = "";
line 21: 	if($linetext){
line 22: 		$box_style .= "display:none;position:absolute;z-index:99999;width:100px;";
line 23: 		$drawer_style .= "display:block;";
line 24: 	}
line 25: 	else{
line 26: 		$drawer_style .= "display:none;";
line 27: 	}
line 28: 
line 29: 	if($isbn =~ s/^ASIN(.+)/$1/){
line 30: 		$ASIN = 1;
line 31: 		$buy_amazon = "http://www.amazon.com/gp/product/$isbn/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 32: 	}
line 33: 	else{
line 34: 		$isbn_struct = Business::ISBN->new($isbn);
line 35: 		if($isbn_struct && $isbn_struct->is_valid){
line 36: 			$isbn10 = $isbn_struct->as_isbn10;
line 37: 			$isbn13 = $isbn_struct->as_isbn13;
line 38: 			$isbn10_string = $isbn10->as_string([]);
line 39: 			$isbn13_string = $isbn13->as_string([]);
line 40: 			$buy_amazon = "http://www.amazon.com/gp/product/$isbn10_string/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 41: 			$buy_apple = "http://itunes.apple.com/us/book/isbn$isbn13_string?at=10lvId";
line 42: 			$buy_indiebound = "http://www.indiebound.org/book/$isbn13_string?aff=PublishersWeekly";
line 43: 			$buy_powells = "http://www.powells.com/partner/41251/biblio/$isbn13_string?p_isbn";
line 44: 			$buy_google = "https://play.google.com/store/search?q=$isbn13_string&c=books&PAfiiliateID=11lwg2";
line 45: 
line 46: 			$buy_bandn = "http://www.anrdoezrs.net/click-7485766-11819508?url=http://www.barnesandnoble.com/w/?ean=$isbn13_string";
line 47: 
line 48: #			my $bnxml = get("https://pds.barnesandnoble.com/fetch-data-service/productAffiliate?ids=$isbn13_string");
line 49: #
line 50: #			if($bnxml){
line 51: #				my $xmlDoc = XML::Simple->new();
line 52: #				my $xmlHash = $xmlDoc->XMLin($bnxml);
line 53: #
line 54: #				if( $xmlHash->{'ProductAffiliateResult'}
line 55: #					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}
line 56: #					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'}){
line 57: #						$buy_bandn = "http://www.dpbolvw.net/click-4260421-11819508?url=" . $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'};
line 58: #				}
line 59: #			}
line 60: #
line 61: #			$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 62: 
line 63: 		}
line 64: 	}
line 65: 	my $title = "The Kids Guide to Money Cent$";
line 66: 
line 67: 	$title = encode_entities($title, '<>&"');
line 68: 
line 69: 	if($linetext){
line 70: 		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 71: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" onmouseleave=\"\$(\'#buy-container$main::ENV{'buy_counter'}\').fadeOut(100);\" style=\"$box_style\">\n";
line 72: 	}
line 73: 	else{
line 74: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" style=\"$box_style\">\n";
line 75: 	}
line 76: 	if(!$no_image) {
line 77: 		print "
EVAL ERROR: Global symbol "$title" requires explicit package name at (eval 2552) line 11.

Code:
line 1: package tmpevalpackage;
line 2: sub doEval { 
line 3: 	my(@incoming,$isbn);
line 4: 
line 5: 	$main::ENV{'image_url'} = '';
line 6: 
line 7: 	@incoming = split(/,/,"$isbn");
line 8: 	$isbn = $incoming[0];
line 9: 	
line 10: 	$isbn =~ s/-//g;
line 11: 	$main::ENV{'image_alt_title'} = "$title";
line 12: 		 = "https://booklife.com/image-factory/http/localhost/amazongetcover/$isbn.jpg/w204.jpg";
line 13:  };
line 14: &doEval();
line 15: 1;
"; line 78: print "<div id=\"buy-box\">\n"; line 79: } line 80: else { line 81: print "<div id=\"buy-box\" style=\"width:100%;margin-top:10px;margin-bottom:20px;\">\n"; line 82: } line 83: print "<div id=\"buy-inner-box\" class=\"buy-box\">\n"; line 84: if($linetext){ line 85: print "<div class=\"buy-box-header\">Buy this book</div>\n"; line 86: } line 87: else{ line 88: print "<div class=\"buy-box-header\" onClick=\"\$(\'.buy-box-body$main::ENV{'buy_counter'}\').toggle(100);\">Buy this book</div>\n"; line 89: } line 90: print "<div class=\"buy-box-body$main::ENV{'buy_counter'}\" style=\"$drawer_style\">\n"; line 91: print "<div class=\"buy-box-item\">\n"; line 92: print "<a href=\"$buy_amazon\" target=\"_offsite\">Amazon</a>\n"; line 93: print "</div>\n"; line 94: if(!$ASIN){ line 95: if($buy_bandn){ line 96: print "<div class=\"buy-box-item\">\n"; line 97: print "<a href=\"$buy_bandn\" target=\"_offsite\">Barnes & Noble</a>\n"; line 98: print "</div>\n"; line 99: } line 100: #print "<div class=\"buy-box-item\">\n"; line 101: #print "<a href=\"$buy_google\" target=\"_offsite\">Google</a>\n"; line 102: #print "</div>\n"; line 103: print "<div class=\"buy-box-item\">\n"; line 104: print "<a href=\"$buy_apple\" target=\"_offsite\">iBooks</a>\n"; line 105: print "</div>\n"; line 106: print "<div class=\"buy-box-item\">\n"; line 107: print "<a href=\"$buy_indiebound\" target=\"_offsite\">IndieBound</a>\n"; line 108: print "</div>\n"; line 109: print "<div class=\"buy-box-item\">\n"; line 110: print "<a href=\"$buy_powells\" target=\"_offsite\">Powell's</a>\n"; line 111: print "</div>\n"; line 112: } line 113: print "</div>\n"; line 114: print "</div>\n"; line 115: print "</div>\n"; line 116: # if($has_ad && !$no_image){ line 117: # print "<div>\n"; line 118: # print "<div><a rel=\"nofollow\" href=\"https://www.publishersweekly.com/pw/link-tracker?action=click&id=8\"> </a><img src=\"https://www.publishersweekly.com/pw/link-tracker?action=impression&id=8\" width=\"1\" height=\"1\"></div>\n"; line 119: # print "<div class=\"quicklinks-ad\">ADVERTISEMENT</div>"; line 120: # 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 121: # print "</div>\n"; line 122: # } line 123: print "</div>\n"; line 124: line 125: }; line 126: &doEval(); line 127: 1;
The Best Books, Emailed Every Week
Tip Sheet!
MORE BOOKS YOU'D LIKE
X