EVAL ERROR: Not a HASH reference at /usr/local/Iowa.git/local/IowaSites/PW/Schema.pm line 3184.

Code:
line 1: package tmpevalpackage;
line 2: sub doEval { 
line 3: 	use URI::Escape;
line 4: 	
line 5: 	if($LayoutManager::url_values{'ASIN'}) {
line 6: 		$LayoutManager::url_values{'ISBN'} = 'ASIN ' . $LayoutManager::url_values{'ASIN'};
line 7: 	}
line 8: 
line 9: 	1-465-04225-2 = $LayoutManager::url_values{'ISBN'};
line 10: 
line 11: 	if($LayoutManager::url_values{'ISBN'}) {
line 12: 		my($isbn,@sel,$work,%data,%issue_data,$isbn_struct,$isbn10_string,$isbn13_string,$isbn10,$isbn13);
line 13: 		$isbn = $LayoutManager::url_values{'ISBN'};
line 14: 		$isbn =~ s/\-//g;
line 15: 		&Database::Select('WORK_INSTANCE','isbn_std',$isbn,\@sel);
line 16: 		
line 17: 		if(@sel) {
line 18: 			 = join(',',@sel);
line 19: 			$work = $sel[0];
line 20: 			@sel = ();
line 21: 			&Database::Select('REVIEW','book',$work,\@sel);
line 22: 			if(@sel) {
line 23: 				&Database::GetRow($sel[0],'REVIEW',\%data);
line 24: 				&Database::GetRow($data{'issue'},'ISSUE',\%issue_data);
line 25: 				if($issue_data{'published'} || $data{'early_release'}) {
line 26: 					 = $sel[0];
line 27: 				}
line 28: 			}
line 29: 		}
line 30: 		else {		
line 31: 			my @family = &PW::Schema::IngramFamily($isbn);
line 32: 			my $is_book;
line 33: 
line 34: 			if(@family){
line 35: 				 = 1;
line 36: 				foreach(@family){
line 37: 					my $alternates = $_;
line 38: 	
line 39: 					if($alternates->{'ISBN'} eq $isbn || $alternates->{'EAN'} eq $isbn) {
line 40: 						if($alternates->{'Media'} =~ /book/i) {
line 41: 							$is_book = 1;
line 42: 							last;
line 43: 						}
line 44: 					}
line 45: 				}
line 46: 				
line 47: 				foreach(@family){
line 48: 					my $alternates = $_;
line 49: 					@sel = ();					
line 50: 					&Database::Select('WORK_INSTANCE','isbn_std',$alternates->{'ISBN'},\@sel);
line 51: 					&Database::Select('WORK_INSTANCE','isbn_std',$alternates->{'EAN'},\@sel);
line 52: 					 .= join(',',@sel);
line 53: 					foreach(@sel){
line 54: 						my $instance = $_;
line 55: 						my @review_sel = ();
line 56: 						&Database::Select('REVIEW','book',$instance,\@review_sel);
line 57: 						if(@review_sel){
line 58: 							&Database::GetRow($review_sel[0],'REVIEW',\%data);
line 59: 						
line 60: 							if($is_book) {
line 61: 								if($data{'category'} != 27) { # not audio
line 62: 									 = $review_sel[0];
line 63: 									last;
line 64: 								}
line 65: 							}
line 66: 							else {
line 67: 								if($data{'category'} == 27) {
line 68: 									 = $review_sel[0];
line 69: 									last;
line 70: 								}
line 71: 							}
line 72: 						}
line 73: 					}
line 74: 				}
line 75: 			}
line 76: 
line 77: 			if(!){
line 78: 				my($found,$title,$publisher,$sale_date,$pages,$price,$bisac,@authors) = &PW::Schema::LookupIngram($LayoutManager::url_values{'ISBN'});
line 79: 				 = $title;
line 80: 				 = $publisher;
line 81: 				foreach(@authors){
line 82: 					my $author = $_;
line 83: 					my($contrib,$name,$role) = split(/	/,$author);
line 84: 					if($role ne 'Author'){
line 85: 						 .= "$role ";
line 86: 					}
line 87: 					my @aname = split(/,/,$name);
line 88: 					@aname = reverse(@aname);
line 89: 					 .=  "@aname<br>";
line 90: 				}
line 91: 			}
line 92: 		}
line 93: 	
line 94: 		$isbn_struct = Business::ISBN->new($isbn);
line 95: 
line 96: 		if($isbn_struct && $isbn_struct->is_valid){
line 97: 			$isbn10 = $isbn_struct->as_isbn10;
line 98: 			$isbn13 = $isbn_struct->as_isbn13;
line 99: 			$isbn10_string = $isbn10->as_string([]);
line 100: 			$isbn13_string = $isbn13->as_string([]);
line 101: 			$main::ENV{'BUY_AMAZON'} = "http://www.amazon.com/gp/product/$isbn10_string/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 102: 			$main::ENV{'BUY_APPLE'} = "http://itunes.apple.com/us/book/isbn$isbn13_string?at=10lvId";
line 103: 			$main::ENV{'BUY_INDIEBOUND'} = "http://www.indiebound.org/book/$isbn13_string?aff=PublishersWeekly";
line 104: 			$main::ENV{'BUY_POWELLS'} = "http://www.powells.com/partner/41251/biblio/$isbn13_string?p_isbn";
line 105: 			$main::ENV{'BUY_GOOGLE'} = "https://play.google.com/store/search?q=$isbn13_string&c=books&PAfiiliateID=11lwg2";
line 106: 			$main::ENV{'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 107: 		}
line 108: 		
line 109: 		if($main::ENV{'BUY_AMAZON'}){
line 110: 			my $amazon = uri_escape($main::ENV{'BUY_AMAZON'});
line 111: 			$main::ENV{'BUY_AMAZON'} = "http://target.georiot.com/Proxy.ashx?tsid=6198&GR_URL=$amazon";
line 112: 		}
line 113: 
line 114: 		if($main::ENV{'BUY_APPLE'}){
line 115: 			my $apple = uri_escape($main::ENV{'BUY_APPLE'});
line 116: 			$main::ENV{'BUY_APPLE'} = "http://target.georiot.com/Proxy.ashx?tsid=6198&GR_URL=$apple";
line 117: 		}
line 118: 
line 119: 		
line 120: 	}
line 121: 	else {
line 122: 		$main::ENV{'review'} = $LayoutManager::url_resolved_rows{'REVIEW.nickname'};
line 123: 	}
line 124: 	
line 125: 	if() {
line 126: 		my(%data,%catdata,%wkdata);
line 127: 		&Database::GetRow(,'REVIEW',\%data);
line 128: 		&Database::GetRow($data{'category'},'REVIEW_CATEGORY',\%catdata);
line 129: 		&Database::GetRow($data{'book'},'WORK_INSTANCE',\%data);
line 130: 		&Templates::SetMeta("<link rel=\"canonical\" href=\"http://www.publishersweekly.com/$data{'isbn'}\" />");
line 131: 		$main::ENV{'street_date'} = $data{'street_date'};
line 132: 		$main::ENV{'street_date'} =~ s/(\d\d\d\d)(\d\d)(\d\d)/$2\/$3\/$1/;
line 133: 		if($catdata{'adsense_suffix'}) {
line 134: 			&Templates::ReWrite("googletag.defineSlot('/19361732/enlarged'", "googletag.defineSlot('/19361732/enlarged$catdata{'adsense_suffix'}'");
line 135: 			&Templates::ReWrite("googletag.defineSlot('/19361732/Leaderboard'", "googletag.defineSlot('/19361732/Leaderboard$catdata{'adsense_suffix'}'");
line 136: 			&Templates::ReWrite("googletag.defineSlot('/19361732/skyscraper'", "googletag.defineSlot('/19361732/skyscraper$catdata{'adsense_suffix'}'");
line 137: 		}
line 138: 		my $work = $data{'parent'};
line 139: 		$work =~ s/WORK.//;
line 140: 		# print STDERR "work: $work\n";
line 141: 		&Database::FetchRow($work,'WORK',\%wkdata);
line 142: 		$main::ENV{'consumerauthor'} = $wkdata{'author'};
line 143: 	}
line 144:  };
line 145: &doEval();
line 146: 1;

ISBN: 1-465-04225-2
Published by

We don't currently have a review of this title, but here is all the information we do have about it.

MORE BOOKS YOU'D LIKE
X