sub SendSOAPDetailedPoster {


	my $sendxml = qq|
<APC_Search_Query> 
			<WebSiteID>$ALLPOSTERSID</WebSiteID>
			<SearchTerm>5024381</SearchTerm>
			<LanguageID>3</LanguageID>
</APC_Search_Query>
	|;
	my $query = <<CONTENT
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<GetProductByProductNumberInformation
xmlns="http://Webservice.Allposters.com/APCF.AffiliateWebService/ProductInformationService">
<APCSearchXml>
<![CDATA[$sendxml]]>
</APCSearchXml>
</GetProductInformation>
</soap:Body>
</soap:Envelope>
CONTENT
;


	print "QUERY: $query";

	my $ua = LWP::UserAgent->new();

	my $request = HTTP::Request->new(POST => 'http://webservice.allposters.com/ProductInformationService.asmx');
#								    "http://Webservice.Allposters.com/APCF.AffiliateWebService/ProductInformationService/GetProductByProductNumberInformation"
	$request->header(SOAPAction => '"http://Webservice.Allposters.com/APCF.AffiliateWebService/ProductInformationService/GetProductByProductNumberInformation"');
	$request->content($query);
	$request->content_type("text/xml; charset=utf-8");

	my $response = $ua->request($request);
	if ($response->is_success) {
		
		my $content = $response->content;

		$content =~ s/&lt;/</sig;
		$content =~ s/&gt;/>/sig;
		
		my $refs = XMLin($content);

		my $results = $refs->{"soap:Body"}->{GetProductInformationResponse}->{GetProductInformationResult}->{APC_Search_Results}->{Search_Result};

#print Dumper($refs->{"soap:Body"}->{GetProductInformationResponse}->{GetProductInformationResult}->{APC_Search_Results});

		my $products = $results->{Products}->{ProductInformation};

		my $per_page     = $results->{No_Of_Products_In_Current_Page};
		my $num_results  = $results->{Total_No_Of_Products};
		my $current_page = $results->{Current_PageNumber};
		
		my $num_pages;
		if ($num_results > 0) {
			$num_pages = ceil($num_results / $per_page);
		} else {
			$num_pages = 0;
		}



  	    $num_results = DatafeedSQL::commify($num_results);
	
use Data::Dumper;
print Dumper($products);

		return ($per_page,$num_results,$current_page,$num_pages,$products);


	} else {
		print "ERROR: " . $response->status_line;
	}
}