view release on metacpan or  search on metacpan

lib/Payvment/Facebook/API.pm  view on Meta::CPAN

	  . "</payvment_id>\n"
	  . "<version>1.x</version>"
	  . "<response_format>XML</response_format>\n"
	  . "</handshake>\n"
	  . "<products update_on_duplicate_sku=\"1\">\n";
}

sub _generate_product_xml_body {
	my ( $self, %options ) = @_;
	print { $options{filehandle} } "<product>\n" . "<name>"
	  . _cdata( $options{"name"} )
	  . "</name>\n"
	  . "<description>"
	  . _cdata( $options{"description"} )
	  . "</description>\n"
	  . "<price>"
	  . _escapexml( $options{"price"} )
	  . "</price>\n"
	  . "<currency>"
	  . _escapexml( $options{"currency"} )
	  . "</currency>\n" . "<qty>"
	  . _escapexml( $options{"qty"} )
	  . "</qty>\n"
	  . "<enable_additional_qty>"
	  . _escapexml( $options{"enable_additional_qty"} )
	  . "</enable_additional_qty>\n"
	  . "<weight>"
	  . _escapexml( $options{"weight"} )
	  . "</weight>\n"
	  . "<weight_unit>"
	  . _escapexml( $options{"weight_unit"} )
	  . "</weight_unit>\n" . "<sku>"
	  . _cdata( $options{"sku"} )
	  . "</sku>\n"
	  . "<images>"
	  . $self->_print_images( 'images' => $options{'images'} )
	  . "</images>"

	  . "<new_state>"
	  . _escapexml( $options{"new_state"} )
	  . "</new_state>\n"
	  . "<tags>"
	  . _cdata( $options{"tags"} )
	  . "</tags>\n"
	  . "<is_taxable>"
	  . _escapexml( $options{"is_taxable"} )
	  . "</is_taxable>\n"
	  . "<categories>"

	  . $self->_print_categories( 'categories' => $options{'categories'} )
	  . "</categories>"
	  . "<client_category_name>"
	  . _cdata( $options{"client_category_name"} )
	  . "</client_category_name>\n"
	  ."<shipping_method>UPS</shipping_method>"
	  . "</product>\n";

}

sub _generate_product_xml_footer {
	my ( $self, %options ) = @_;

	print { $options{filehandle} } "</products>\n</request>";

lib/Payvment/Facebook/API.pm  view on Meta::CPAN

}

sub _escapexml {
	my ($var) = @_;
	$var =~ s/</&lt;/isg;
	$var =~ s/>/&gt;/isg;
	$var =~ s/&/&amp;/isg;
	return $var;
}

sub _cdata {
	my ($var) = @_;
	return "<![CDATA[" . _escapexml($var) . "]]>";
}

#notes: Generate XML. Product, UpdateInventory,Product Status, Order.  - SubmitXML to Paymemnt

=head1 AUTHOR

"abhishek jain", C<< <"goyali at cpan.org"> >>