Perl

XML NewChildBefore

Demonstrates the Chilkat.NewChildBefore method. Perl

use chilkat();

$success = 0;

$xml = chilkat::CkXml->new();

$xml->put_Tag("order");
$xml->NewChild2("order_billing_info|price_list","Listino Italia");
$xml->NewChild2("order_billing_info|price_list_id","1");
$xml->NewChild2("order_billing_info|first_name","Francesco");

print $xml->getXml() . "\r\n";

# We now have the following XML:

# <?xml version="1.0" encoding="utf-8"?>
# <order>
#     <order_billing_info>
#         <price_list>Listino Italia</price_list>
#         <price_list_id>1</price_list_id>
#         <first_name>Francesco</first_name>
#     </order_billing_info>
# </order>

# If there is no "customer_id" element under "order_billing_info", then add it.
if ($xml->HasChildWithTag("order_billing_info|customer_id") == 1) {
    print "customer_id already exists, nothing to do..." . "\r\n";
    exit;
}

# Add the customer_id element just before the "price_list" element.

# Get the "order_billing_info" element
# orderBillingInfo is a Xml
$orderBillingInfo = $xml->FindChild("order_billing_info");

# Call NewChildBefore to add an XML element <customer_id> before <price_list>
# First get the index of the element price_list
$index = $orderBillingInfo->TagIndex("price_list");
print "index = " . $index . "\r\n";

# Add the "customer_id" element just before specified index.
# xCustId is a Xml
$xCustId = $orderBillingInfo->NewChildBefore($index,"customer_id","1234");

print $xml->getXml() . "\r\n";

# We now have:

# <?xml version="1.0" encoding="utf-8"?>
# <order>
#     <order_billing_info>
#         <customer_id>1234</customer_id>
#         <price_list>Listino Italia</price_list>
#         <price_list_id>1</price_list_id>
#         <first_name>Francesco</first_name>
#     </order_billing_info>
# </order>