AxKit::XSP::Handel::Cart - AxKit XSP Shopping Cart Taglib

Handel documentation Contained in the Handel distribution.

Index

Code Index:

NAME

Top

AxKit::XSP::Handel::Cart - AxKit XSP Shopping Cart Taglib

SYNOPSIS

Top

Add this taglib to AxKit in your http.conf or .htaccess:

    AxAddXSPTaglib AxKit::XSP::Handel::Cart

Add the namespace to your XSP file and use the tags:

    <xsp:page
         language="Perl"
         xmlns:xsp="http://apache.org/xsp/core/v1"
         xmlns:cart="http://today.icantfocus.com/CPAN/AxKit/XSP/Handel/Cart"
    >

    <cart:cart type="1">
        <cart:filter name="id"><request:idparam/></cart:filter>
        <cart:results>
            <cart>
                <id><cart:id/></id>
                <name><cart:name/></name>
                <description><cart:description/></description>
                <subtotal><cart:subtotal/></subtotal>
                <cart:items>
                    <cart:results>
                        <item>
                            <sku><cart:sku/></sku>
                            <description><cart:description/></description>
                            <quantity><cart:quantity/></quantity>
                            <price><cart:price/></price>
                            <total><cart:total/></total>
                        </item>
                    </cart:results>
                    </cart:no-results>
                        <message>There are currently no items in your shopping cart.</message>
                    </cart:no-results>
                </cart:items>
            </cart>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

DESCRIPTION

Top

This tag library provides an interface to use Handel::Cart inside of your AxKit XSP pages.

CHANGES

Top

Starting in version 0.09, <cart:type>, the type attribute, and the mode attribute in <cart:restore> now take the constants declared in Handel::Constants:

    <cart:type>CART_TYPE_SAVED</cart:type>

    <cart:new type="CART_TYPE_SAVED">
        ...
    </cart:new>

    <cart:restore mode="CART_MODE_APPEND">
        ...
    </cart:restore>

Starting in version 0.13, the currency formatting options from Handel::Currency are now available within the taglib:

     <cart:price format="0|1" code="USD|CAD|..." options="FMT_STANDARD|FMT_NAME|..." />

Starting in version 0.15, the currency conversion options from Handel::Currency are now available within the taglib:

    <cart:subtotal convert="0|1" from="USD|CAD|..." to="CAD|JPY|..." />

TAG HIERARCHY

Top

    <cart:uuid/>
    <cart:new description|id|name|shopper|type="value"...>
        <cart:description>value</cart:description>
        <cart:id>value</cart:id>
        <cart:name>value</cart:name>
        <cart:shopper>value</cart:shopper>
        <cart:type>value</cart:type>
        <cart:results>
            <cart:count/>
            <cart:description/>
            <cart:id/>
            <cart:name/>
            <cart:shopper/>
            <cart:subtotal
                format="0|1"
                code="USD|CAD|..."
                options="FMT_STANDARD|FMT_NAME|..."
                convert="0|1"
                from="USD|CAD|..."
                to="CAD|JPY|..."
            />
            <cart:type/>
            <cart:add id|sku|quantity|price|description="value"...>
                <cart:description>value</cart:description>
                <cart:id>value</cart:id>
                <cart:sku>value</cart:sku>
                <cart:quantity>value</cart:quantity>
                <cart:price>value</cart:price>
                <cart:results>
                    <cart:description/>
                    <cart:id/>
                    <cart:price
                        format="0|1"
                        code="USD|CAD|..."
                        options="FMT_STANDARD|FMT_NAME|..."
                        convert="0|1"
                        from="USD|CAD|..."
                        to="CAD|JPY|..."
                    />
                    <cart:quantity/>
                    <cart:sku/>
                    <cart:total
                        format="0|1"
                        code="USD|CAD|..."
                        options="FMT_STANDARD|FMT_NAME|..."
                        convert="0|1"
                        from="USD|CAD|..."
                        to="CAD|JPY|..."
                    />
                </cart:results>
                <cart:no-results>
                    ...
                </cart:no-results>
            </cart:add>
        </cart:results>
        <cart:no-results>
            ...
        <cart:no-results>
    </cart:new>
    <cart:cart(s) description|id|name|shopper|type="value"...>
        <cart:filter name="description|id|name|shopper|type">value</cart:filter>
        <cart:results>
            <cart:add description|id|price|quantity|sku="value"...>
                <cart:description>value</cart:description>
                <cart:id>value</cart:id>
                <cart:price>value</cart:price>
                <cart:quantity>value</cart:quantity>
                <cart:sku>value</cart:sku>
                <cart:results>
                    <cart:description/>
                    <cart:id/>
                    <cart:price
                        format="0|1"
                        code="USD|CAD|..."
                        options="FMT_STANDARD|FMT_NAME|..."
                        convert="0|1"
                        from="USD|CAD|..."
                        to="CAD|JPY|..."
                    />
                    <cart:quantity/>
                    <cart:sku/>
                    <cart:total
                        format="0|1"
                        code="USD|CAD|..."
                        options="FMT_STANDARD|FMT_NAME|..."
                        convert="0|1"
                        from="USD|CAD|..."
                        to="CAD|JPY|..."
                    />
                </cart:results>
                </cart:no-results>
                    ...
                </cart:no-results>
            </cart:add>
            <cart:clear/>
            <cart:count/>
            <cart:delete description|id|price|quantity|sku="value"...>
                <cart:description>value</cart:description>
                <cart:id>value</cart:id>
                <cart:price>value</cart:price>
                <cart:quantity>value</cart:quantity>
                <cart:sku>value</cart:sku>
            </cart:delete>
            <cart:description/>
            <cart:id/>
            <cart:item(s) description|id|price|quantity|sku="value"...>
                <cart:filter name="description|id|price|quantity|sku">value</cart:filter>
                <cart:results>
                    <cart:description/>
                    <cart:id/>
                    <cart:price
                        format="0|1"
                        code="USD|CAD|..."
                        options="FMT_STANDARD|FMT_NAME|..."
                        convert="0|1"
                        from="USD|CAD|..."
                        to="CAD|JPY|..."
                    />
                    <cart:quantity/>
                    <cart:sku/>
                    <cart:total
                        format="0|1"
                        code="USD|CAD|..."
                        options="FMT_STANDARD|FMT_NAME|..."
                        convert="0|1"
                        from="USD|CAD|..."
                        to="CAD|JPY|..."
                    />
                    <cart:update>
                        <cart:description>value</cart:description>
                        <cart:price>value</cart:price>
                        <cart:quantity>value</cart:quantity>
                        <cart:sku>value</cart:sku>
                    </cart:update>
                </cart:results>
                <cart:no-results>
                    ...
                </cart:no-results>
            </cart:item(s)>
            <cart:name/>
            <cart:restore mode="CART_MODE_APPEND|CART_MODE_MERGE|CART_MODE_REPLACE" description|id|name|shopper|type="value"...>
                <cart:filter name="description|id|name|shopper|type">value</cart:filter>
            </cart:restore>
            <cart:save/>
            <cart:subtotal
                format="0|1"
                code="USD|CAD|..."
                options="FMT_STANDARD|FMT_NAME|..."
                convert="0|1"
                from="USD|CAD|..."
                to="CAD|JPY|..."
            />
            <cart:type/>
            <cart:update>
                <cart:description></cart:description>
                <cart:name></cart:name>
                <cart:shopper></cart:shopper>
                <cart:type></cart:type>
            </cart:update>
        </cart:results>
        <cart:no-results>
            ...
        </cart:no-results>
    </cart:cart(s)>

TAG REFERENCE

Top

<cart:add>

Adds an a item to the current cart. You can specify the item properties as attributes in the tag itself:

    <cart:add
        description="My New Part"
        id="11111111-1111-1111-1111-111111111111"
        sku="1234"
        quantity="1"
        price="1.23"
    />

or you can add them as child elements:

    <cart:add>
        <cart:description>My New Part</cart:description>
        <cart:id>11111111-1111-1111-1111-111111111111</cart:id>
        <cart:sku>1234</cart:sku>
        <cart:quantity>1</cart:quantity>
        <cart:price>1.23</cart:price>
    </cart:add>

or any combination of the two:

    <cart:add quantity="1">
        <cart:description>My New Part</cart:description>
        <cart:id>11111111-1111-1111-1111-111111111111</cart:id>
        <cart:sku>1234</cart:sku>
        <cart:price>1.23</cart:price>
    </cart:add>

This tag is only valid within the <cart:results> block for cart and carts. See Handel::Cart for more information about adding parts to the shopping cart.

You can also access the newly added item using the <cart:results>.

<cart:cart>

Container tag for the current cart used to load a specific cart.

If cart or its filters load more than one cart, cart will contain only the first cart. If you're looking for loop through multiple carts, try <cart:carts> instead.

    <cart:cart type="1">
        <cart:filter name="id">11111111-1111-1111-1111-111111111111</cart:filter>
        <cart:results>
            <cart>
                <id><cart:id/></id>
                <name><<cart:name/></name>
                <description><cart:description/></description>
                <subtotal><cart:subtotal/></subtotal>
                <cart:items>
                    ...
                </cart:items>
            </cart>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

<cart:carts>

Loops through all loaded carts.

        <cart:carts type="1">
            <cart:filter name="shopper">11111111-1111-1111-1111-111111111111</cart:filter>
            <cart:results>
                <cart>
                    <id><cart:id/></id>
                    <name><<cart:name/></name>
                    <description><cart:description/></description>
                    <subtotal><cart:subtotal/></subtotal>
                    <cart:items>
                        ...
                    </cart:items>
                </cart>
            </cart:results>
            <cart:no-results>
                <message>No carts were found matching your query.</message>
            </cart:no-results>
        </cart:carts>
    </carts>

<cart:clear>

Deletes all items in the current shopping cart.

    <cart:cart type="0">
        <cart:filter name="shopper">11111111-1111-1111-1111-111111111111</cart:filter>
        <cart:results>
            <cart:clear/>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

<cart:count>

Returns the number of items in the current shopping cart.

    <cart:cart>
        <cart:results>
            <cart>
                <id><cart:id/></id>
                <name><<cart:name/></name>
                <description><cart:description/></description>
                <subtotal><cart:subtotal/></subtotal>
                <count><cart:count/></count>
            </cart>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

<cart:description>

Context aware tag to get or set the description of various other parent tags. Within <cart:cart> or <cart:carts> it returns the current carts description:

    <cart:cart>
        <cart:results>
            <description><cart:description/></description>
        </cart:results>
    </cart:cart>

Within <cart:add> or <cart:update> it sets the current cart or cart items description:

    <cart:cart>
        <cart:results>
            <cart:update>
                <cart:description>My Updated Cart Description</cart:description>
            </cart:update>

            <cart:add>
                <cart:description>My New SKU Description</cart:description>
            </cart:add>

            <cart:item sku="1234">
                <cart:results>
                    <cart:update>
                        <cart:description>My Updated SKU Description</cart:description>
                    <cart:update>
                </cart:results>
                <cart:no-results>
                    <message>The cart item could not be found for updating</message>
                </cart:no-results>
            <cart:item>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

<cart:filter>

Adds a new name/value pair to the filter used in <cart:cart>, <cart:carts>, <cart:delete>, <cart:item>, and <cart:items>. Pass the name of the pair in the name attribute and the value between the start and end filter tags:

    <cart:cart type="0">
        <cart:filter name="id">12345678-9098-7654-3212-345678909876</cart:filter>

        <cart:results>
            <cart:delete>
                <cart:filter name="sku">sku1234</cart:filter>
            <cart:delete>
        </cart:results>
        <cart:no-results>
            <message>The cart item could not be found for deletion</message>
        </cart:no-results>
    </cart:cart>

If the same attribute is specified in a filter, the child filter tag value takes precedence over the parent tags attribute.

    <cart:cart type="0">
        <!-- type == 0 -->
        <cart:filter name="type">1</cart:filter>
        <!-- type == 1 -->
    </cart:cart>

You can supply as many filters as needed to get the job done.

    <cart:cart>
        <cart:filter name="type">0</cart:filter>
        <cart:filter name="shopper">12345678-9098-7654-3212-345678909876</cart:filter>
    </cart:cart>

<cart:id>

Context aware tag to get or set the record id within various other tags. In <cart:cart> and <cart:item> it returns the record id for the object:

    <cart:cart>
        <cart:results>
            <id><cart:id/></id>
            <cart:items>
                <cart:cart:results>
                    <item>
                        <id><cart:id/></id>
                    </item>
                </cart:results>
            </cart:items>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

Within <cart:add>, <cart:delete>, and <cart:new> it sets the id value used in the operation specified:

    <cart:cart>
        <cart:results>
            <cart:delete>
                <cart:id>11111111-1111-1111-1111-111111111111</cart:id>
            </cart:delete>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>
    ...
    <cart:new>
        <cart:id>11112222-3333-4444-5555-6666777788889999</cart:id>
        <cart:name>New Cart</cart:name>
    </cart:new>

It cannot be used within <cart:update> and will return a Handel::Exception::Taglib exception if you try updating the record ids which are the primary keys.

<cart:items>

Loops through all items in the current cart:

    <cart:cart>
        <cart:results>
            <cart>
                <cart:items>
                    <cart:results>
                        <item>
                            <sku><cart:sku/></sku>
                            <description><cart:description/></cart:description>
                            <name><cart:name/></name>
                            <quantity><cart:quantity/></quantity>
                            <price><cart:price/></price>
                            <total><cart:total/></total>
                        </item>
                    </cart:results>
                    <cart:no-results>
                        <message>Your shopping cart is empty</message>
                    </cart:no-results>
                </cart:items>
            <cart>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

<cart:name>

Context aware tag to get or set the name within various other tags. In <cart:cart> it returns the name for the cart object:

    <cart:cart>
        <cart:results>
            <name><cart:name/></name>
            ...
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

Within <cart:update> and <cart:new> it sets the name value used in the operation specified:

    <cart:cart>
        <cart:results>
            <cart:update>
                <cart:name>My Updated Cart Name</cart:name>
            </cart:update>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>
    ...
    <cart:new>
        <cart:name>New Cart</cart:name>
    </cart:new>

<cart:new>

Creates a new shopping cart using the supplied attributes and child tags:

    <cart:new type="1">
        <cart:id>22222222-2222-2222-2222-222222222222</cart:id>
        <cart:shopper><request:shopper/></cart:shopper>
        <cart:name>New Cart</cart:name>
    </cart:new>

The child tags take precedence over the attributes of the same name. new must be a top level tag within it's declared namespace. It will throw an Handel::Exception::Taglib exception otherwise.

<cart:price>

Context aware tag to get or set the price of a cart item. In <cart:add> and <cart:update> it sets the price:

    <cart:cart>
        <cart:results>
            <cart:add>
                <cart:price>1.24</cart:price>
            </cart:add>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

In <cart:item> or <cart:items> it returns the price for the cart item:

    <cart:cart>
        <cart:results>
            <cart>
                <cart:items>
                    <cart:results>
                        <item>
                            <price><cart:price/></price>
                        </item>
                    </cart:results>
                    <cart:no-results>
                        <message>Your shopping cart is empty</message>
                    </cart:no-results>
                </cart:items>
            </cart>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

Currency Formatting

Starting in version 0.13, the currency formatting options from Handel::Currency are now available within the taglib if Locale::Currency::Format is installed.

     <cart:price format="0|1" code="USD|CAD|..." options="FMT_STANDARD|FMT_NAME|..." />
format

Toggle switch that enables or disables currency formatting. If empty, unspecified, or set to 0, no formatting will take place and the result price (usually in decimal form) is returned unaltered.

If format is set to anything else, the default formatting will be applied. See Handel::Currency for the default currency formatting settings.

code

If formatting is enabled, the code attribute specifies the desired three letter ISO currency code to be used when formatting currency. See Locale::Currency::Format for the available codes.

If you are also using the currency conversion options below, the value of to will always be used first, even if code is not empty. If to is empty and code is also empty, the HandelCurrencyCode configuration setting will be used instead.

options

If formatting is enabled, the options attribute specifies the desired formatting options to be used when formatting currency. See Locale::Currency::Format for the available options.

Currency Conversion

Starting in version 0.15, the currency conversion options from Handel::Currency are now available within the taglib if Finance::Currency::Convert::WebserviceX is installed.

    <cart:price convert="0|1" from="USD|CAD|..." to="CAD|JPY|..." />
convert

Toggle switch that enables or disables currency conversion. If empty, unspecified, or set to 0, no currency conversion will take place and the result price is returned unaltered.

If convert is set to anything else, the default conversion will be applied. See Handel::Currency for the default currency conversion settings.

from

If conversion is enabled, the from attribute specifies the three letter ISO currency code of the price to be converted. If no from is specified, the HandelCurrencyCode configuration setting will be used instead. See Locale::Currency for the available codes.

to

If conversion is enabled, the to attribute specifies what the current price should be converted to. If no to is specified, the code attribute from the formatting options above will be used instead. If both to and code are empty, the HandelCurrencyCode configuration setting will be used as a last resort.

If you try to convert from and to the same currency, the price is returned as is.

Precedence

If you are using both the currency conversion and the currency formatting options, the conversion will be performed first, then the result will be formatted.

<cart:quantity>

Context aware tag to get or set the quantity of a cart item. In <cart:add> and <cart:update> it sets the quantity:

    <cart:cart>
        <cart:results>
            <cart:add>
                <cart:quantity>1.24</cart:quantity>
            </cart:add>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

In <cart:item> or <cart:items> it returns the quantity for the cart item:

    <cart:cart>
        <cart:results>
            <cart>
                <cart:items>
                    <cart:results>
                        <item>
                            <quantity><cart:quantity/></quantity>
                        </item>
                    </cart:results>
                    <cart:no-results>
                        <message>The item requested could not be found for updating</message>
                    </cart:no-results>
                </cart:items>
            </cart>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

<cart:update>

Updates the current cart values:

    <cart:cart>
        <cart:results>
            <cart:update>
                <cart:name>My Updated Cart Name</cart:update>
            <cart:update>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

<cart:id> is not valid within an update statement.

<cart:results>

Contains the results for the current action. both the singular and plural forms are valid for your syntactic sanity:

    <cart:cart>
        <cart:result>
            ...
        </cart:result>
    </cart:result>

    <cart:carts>
        <cart:results>

        </cart:results?
    </cart:carts>

<cart:no-results>

The anti-results or 'not found' tag. This tag is executed when cart, carts, item, or items fails to find a match for it's filters. As with <cart:results>, both the singular and plural forms are available for your enjoyment:

    <cart:cart>
        <cart:no-result>
            ...
        </cart:no-result>
    </cart:result>

    <cart:carts>
        <cart:no-results>

        </cart:no-results?
    </cart:carts>

<cart:restore>

Restores another cart into the current cart.

    <cart:restore mode="CART_MODE_APPEND">
        <cart:filter name="id">11111111-1111-1111-1111-111111111111</cart:filter>
    </cart:restore>

See Handel::Constants for the available mode values.

<cart:save>

Saves the current cart by setting its type to CART_TYPE_SAVED:

    <cart:cart>
        <cart:results>
            <cart:save/>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

<cart:shopper>

Context aware tag that gets or sets the shopper id for the current cart.

<cart:sku>

Context aware tag to get or set the sku of a cart item. In <cart:add> and <cart:update> it sets the sku:

    <cart:cart>
        <cart:results>
            <cart:add>
                <cart:sku>sku1234</cart:sku>
            </cart:add>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

In <cart:item> or <cart:items> it returns the sku for the current cart item:

    <cart:cart>
        <cart:results>
            <cart>
                <cart:items>
                        <cart:results>
                            <item>
                                <sku><cart:sku/></sku>
                            </item>
                        </cart:results>
                        <cart:no-results>
                            <message>Your shopping cart is empty</message>
                        </cart:no-results>
                </cart:items>
            </cart>
        <cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

<cart:subtotal>

Returns the subtotal of the items in the current cart:

    <cart:cart>
        <cart:results>
            <subtotal><cart:subtotal/></subtotal>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

Starting in version 0.13, the currency formatting options from Handel::Currency are now available within the taglib.

     <cart:subtotal format="0|1" code="USD|CAD|..." options="FMT_STANDARD|FMT_NAME|..." />

Starting in version 0.15, the currency conversion options from Handel::Currency are now available within the taglib.

    <cart:subtotal convert="0|1" from="USD|CAD|..." to="CAD|JPY|..." />

See <cart:price> above for further details about price formatting.

<cart:total>

Returns the total of the current cart item:

    <cart:cart>
        <cart:results>
            <cart>
                <cart:items>
                    <cart:results>
                        <item>
                            <total><cart:total/></total>
                        </item>
                    </cart:results>
                    <cart:no-results>
                        <message>Your shopping cart is empty</message>
                    </cart:no-results>
                </cart:items>
            </cart>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

Starting in version 0.13, the currency formatting options from Handel::Currency are now available within the taglib.

     <cart:total format="0|1" code="USD|CAD|..." options="FMT_STANDARD|FMT_NAME|..." />

Starting in version 0.15, the currency conversion options from Handel::Currency are now available within the taglib.

    <cart:total convert="0|1" from="USD|CAD|..." to="CAD|JPY|..." />

See <cart:price> above for further details about price formatting.

<cart:type>

Context aware tag to get or set the type within various other tags. In <cart:cart> or <cart:carts> it returns the type for the object:

    <cart:cart>
        <cart:results>
            <cart>
                <type><cart:type/></type>
            </cart>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>

Within <cart:update> and <cart:new> it sets the type value used in the operation specified:

    <cart:cart>
        <cart:results>
            <cart:update>
                <cart:type>1</cart:type>
            </cart:update>
        </cart:results>
        <cart:no-results>
            <message>The cart requested could not be found.</message>
        </cart:no-results>
    </cart:cart>
    ...
    <cart:new>
        <cart:type>1</cart:type>
    </cart:new>

<cart:uuid/>

This tag returns a new uuid/guid for use in new and add in the following format:

    xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx

For those like me who always type the wrong thing, <cart:guid/<gt> returns the same things as <cart:uuid/<gt>.

AUTHOR

Top

    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/
Handel documentation Contained in the Handel distribution. 
# $Id$
## no critic
package AxKit::XSP::Handel::Cart;
use strict;
use warnings;
use vars qw($NS);
use Handel::ConfigReader;
use Handel::Constants qw(:cart str_to_const);
use Handel::Exception;
use Handel::L10N qw(translate);
use base 'Apache::AxKit::Language::XSP';

$NS  = 'http://today.icantfocus.com/CPAN/AxKit/XSP/Handel/Cart';

BEGIN {
    my $pkg = __PACKAGE__;
    no strict 'refs';

    my @quoted = qw/
        new_description
        new_id
        new_name
        new_shopper
        new_results_add_id
        new_results_add_sku
        new_results_add_quantity
        new_results_add_price
        new_results_add_description
        cart_filter
        cart_results_add_id
        cart_results_add_sku
        cart_results_add_quantity
        cart_results_add_price
        cart_results_add_description
        cart_results_delete_id
        cart_results_delete_sku
        cart_results_delete_quantity
        cart_results_delete_price
        cart_results_delete_description
        cart_results_update_name
        cart_results_update_shopper
        cart_results_update_description
        cart_results_item_filter
        cart_results_item_results_update_sku
        cart_results_item_results_update_quantity
        cart_results_item_results_update_price
        cart_results_item_results_update_description
        cart_results_items_filter
        cart_results_items_results_update_sku
        cart_results_items_results_update_quantity
        cart_results_items_results_update_price
        cart_results_items_results_update_description
        cart_results_restore_filter
        carts_filter
        carts_results_add_id
        carts_results_add_sku
        carts_results_add_quantity
        carts_results_add_price
        carts_results_add_description
        carts_results_delete_id
        carts_results_delete_sku
        carts_results_delete_quantity
        carts_results_delete_price
        carts_results_delete_description
        carts_results_item_filter
        carts_results_item_results_update_sku
        carts_results_item_results_update_quantity
        carts_results_item_results_update_price
        carts_results_item_results_update_description
        carts_results_items_filter
        carts_results_items_results_update_sku
        carts_results_items_results_update_quantity
        carts_results_items_results_update_price
        carts_results_items_results_update_description
        carts_results_update_name
        carts_results_update_shopper
        carts_results_update_description
        carts_results_restore_filter
        /;

    my @empty = qw/
        new
        new_no_results
        new_results
        new_results_add
        new_results_add_results
        new_results_add_no_results
        cart
        cart_results
        cart_results_add
        cart_results_add_results
        cart_results_add_no_results
        cart_results_delete
        cart_results_update
        cart_results_item
        cart_results_item_results
        cart_results_item_results_update
        cart_results_item_no_results
        cart_results_items
        cart_results_items_results
        cart_results_items_results_update
        cart_results_items_no_results
        cart_results_restore
        cart_no_results
        carts
        carts_results
        carts_results_add
        carts_results_delete
        carts_results_update
        carts_results_item
        carts_results_item_results
        carts_results_item_results_update
        carts_results_item_no_results
        carts_results_items
        carts_results_items_results
        carts_results_items_results_update
        carts_results_items_no_results
        carts_results_restore
        carts_no_results
        /;

    my @constants = qw /
        new_type
        cart_results_update_type
        carts_results_update_type
        /;

    foreach (@quoted) {
        my $sub = $_ . "_char";

        *{"$pkg\::$sub"} = \&quoted_text;
    };

    foreach (@empty) {
        my $sub = $_ . "_char";

        *{"$pkg\::$sub"} = sub {};
    };

    foreach (@constants) {
        my $sub = $_ . "_char";

        *{"$pkg\::$sub"} = \&constant_text;
    };

    *{"$pkg\::guid_start"} = \&uuid_start;
};

my @context = 'root';

sub start_document {
    return "use Handel::Cart;\nuse Handel::Compat::Currency;use Handel::Currency;\n";
};

sub quoted_text {
    my ($e, $text) = @_;

    return ".q|$text|";
};

sub constant_text {
   my ($e, $text) = @_;

    if ($text =~ /^[A-Z]{1}/) {
        $text = str_to_const($text);
    };

    return ".q|$text|";
};

sub uuid_start {
    my ($e, $tag, %attr) = @_;

    $e->start_expr($tag);
    $e->append_to_script("Handel::Cart->storage->new_uuid");
    $e->end_expr($tag);

    return;
};

sub new_start {
    my ($e, $tag, %attr) = @_;

    throw Handel::Exception::Taglib(
        -text => translate('TAG_NOT_ALLOWED_IN_OTHERS', $tag)
    ) if ($context[-1] ne 'root');

    push @context, $tag;

    my $code = "my \$_xsp_handel_cart_cart;\nmy \$_xsp_handel_cart_called_new;\n";
    $code .= scalar keys %attr ?
        'my %_xsp_handel_cart_new_filter = ("' . join('", "', %attr) . '");' :
        'my %_xsp_handel_cart_new_filter;' ;

    return "\n{\n$code\n";
};

sub new_description_start {
    my ($e, $tag, %attr) = @_;

    return "\n\$_xsp_handel_cart_new_filter{$tag} = ''";
};

sub new_id_start {
    my ($e, $tag, %attr) = @_;

    return "\n\$_xsp_handel_cart_new_filter{$tag} = ''";
};

sub new_name_start {
    my ($e, $tag, %attr) = @_;

    return "\n\$_xsp_handel_cart_new_filter{$tag} = ''";
};

sub new_shopper_start {
    my ($e, $tag, %attr) = @_;

    return "\n\$_xsp_handel_cart_new_filter{$tag} = ''";
};

sub new_type_start {
    my ($e, $tag, %attr) = @_;

    if (exists $attr{'type'}) {
        if ($attr{'type'} =~ /^[A-Z]{1}/) {
            $attr{'type'} = str_to_const($attr{'type'});
        };
    };

    return "\n\$_xsp_handel_cart_new_filter{$tag} = ''";
};

sub new_results_start {
    my ($e, $tag, %attr) = @_;

    throw Handel::Exception::Taglib(
        -text => translate('TAG_NOT_ALLOWED_HERE', $tag)
    ) if ($context[-1] !~ /^(new|add|cart(s?)|item(s?))$/);

    push @context, $tag;

    return '
                if (!$_xsp_handel_cart_called_new && scalar keys %_xsp_handel_cart_new_filter) {
                        $_xsp_handel_cart_cart = Handel::Cart->create(\%_xsp_handel_cart_new_filter);
                        $_xsp_handel_cart_called_new = 1;
                };
                if ($_xsp_handel_cart_cart) {

        ';
};

sub new_results_count_start {
    my ($e, $tag, %attr) = @_;

    $e->start_expr($tag);
    $e->append_to_script("\$_xsp_handel_cart_cart->$tag;\n");

    return;
};

sub new_results_description_start {
    my ($e, $tag, %attr) = @_;

    $e->start_expr($tag);
    $e->append_to_script("\$_xsp_handel_cart_cart->$tag;\n");

    return;
};

sub new_results_name_start {
    my ($e, $tag, %attr) = @_;

    $e->start_expr($tag);
    $e->append_to_script("\$_xsp_handel_cart_cart->$tag;\n");

    return;
};

sub new_results_id_start {
    my ($e, $tag, %attr) = @_;

    $e->start_expr($tag);
    $e->append_to_script("\$_xsp_handel_cart_cart->$tag;\n");

    return;
};

sub new_results_shopper_start {
    my ($e, $tag, %attr) = @_;

    $e->start_expr($tag);
    $e->append_to_script("\$_xsp_handel_cart_cart->$tag;\n");

    return;
};











    sub parse_char {
        my ($e, $text) = @_;
        my $tag = $e->current_element();
        my $pkg = $AxKit::XSP::TaglibPkg;

        ########################################################################
        ## New magic to make subclassing more feasable
        ########################################################################
        my @ctx = @context; shift @ctx;
        if (($ctx[$#ctx] && $ctx[$#ctx] ne $tag) || !$ctx[$#ctx]) {
            push @ctx, $tag;
        };
        push @ctx, 'char';
        my $sub = join '_', @ctx;$sub =~ s/-/_/;
        if (my $coderef = $pkg->can($sub)) {
            AxKit::Debug(5, "[Handel] [Cart] parse_char:  calling $sub");

            return $coderef->($e, $text);
        } else {
            AxKit::Debug(5, "[Handel] [Cart] parse_char:  $sub not found");
            AxKit::Debug(5, "[Handel] [Cart] parse_char:  processing $tag");
        };
        ########################################################################

        return;
    };

    sub parse_start {
        my ($e, $tag, %attr) = @_;
        my $pkg = $AxKit::XSP::TaglibPkg;

        AxKit::Debug(5, "[Handel] [Cart] parse_start: [$tag] context: " . join('->', @context));

        ########################################################################
        ## New magic to make subclassing more feasable
        ########################################################################
        my @ctx = @context; shift @ctx;
        if (($ctx[$#ctx] && $ctx[$#ctx] ne $tag) || !$ctx[$#ctx]) {
            push @ctx, $tag;
        };
        push @ctx, 'start';
        my $sub = join '_', @ctx;$sub =~ s/-/_/;
        if (my $coderef = $pkg->can($sub)) {
            AxKit::Debug(5, "[Handel] [Cart] parse_start: calling $sub");

            return $coderef->($e, $tag, %attr);
        } else {
            AxKit::Debug(5, "[Handel] [Cart] parse_start: $sub not found");
            AxKit::Debug(5, "[Handel] [Cart] parse_start: processing $tag");
        };
        ########################################################################

        if (exists $attr{'type'}) {
            if ($attr{'type'} =~ /^[A-Z]{1}/) {
                $attr{'type'} = str_to_const($attr{'type'});
            };
        };

        ## cart:uuid
        if ($tag =~ /^(g|u)uid$/) {
            $e->start_expr($tag);
            $e->append_to_script("Handel::Cart->storage->new_uuid");
            $e->end_expr($tag);

        ## cart:new
        } elsif ($tag eq 'new') {
            throw Handel::Exception::Taglib(
                -text => translate('TAG_NOT_ALLOWED_IN_OTHERS', $tag)
            ) if ($context[-1] ne 'root');

            push @context, $tag;

            my $code = "my \$_xsp_handel_cart_cart;\nmy \$_xsp_handel_cart_called_new;\n";
            $code .= scalar keys %attr ?
                'my %_xsp_handel_cart_new_filter = ("' . join('", "', %attr) . '");' :
                'my %_xsp_handel_cart_new_filter;' ;

            return "\n{\n$code\n";


        ## cart:restore
        } elsif ($tag eq 'restore') {
            throw Handel::Exception::Taglib(
                -text => translate('Tag [_1] not valid inside of tag [_2]', $tag, $context[-1])
            ) if ($context[-1] =~ /^(cart(s?))$/);

            push @context, $tag;

            my $mode = str_to_const($attr{'mode'}) || CART_MODE_APPEND;
            delete $attr{'mode'};

            my $code .= scalar keys %attr ?
                'my %_xsp_handel_cart_restore_filter = ("' . join('", "', %attr) . '");' :
                'my %_xsp_handel_cart_restore_filter;' ;

            return "\n{\nmy \$_xsp_handel_cart_restore_mode = $mode;\n$code\n";

        ## cart:cart
        } elsif ($tag eq 'cart') {
            throw Handel::Exception::Taglib(
                -text => translate('TAG_NOT_ALLOWED_IN_OTHERS', $tag)
            ) if ($context[-1] ne 'root');

            push @context, $tag;

            my $code = "my \$_xsp_handel_cart_cart;\nmy \$_xsp_handel_cart_called_load;\n";
            $code .= scalar keys %attr ?
                'my %_xsp_handel_cart_load_filter = ("' . join('", "', %attr) . '");' :
                'my %_xsp_handel_cart_load_filter;' ;

            return "\n{\n$code\n";


        ## cart:carts
        } elsif ($tag eq 'carts') {
            throw Handel::Exception::Taglib(
                -text => translate('TAG_NOT_ALLOWED_IN_OTHERS', $tag)
            ) if ($context[-1] ne 'root');

            push @context, $tag;

            my $code = "my \@_xsp_handel_cart_carts;\nmy \$_xsp_handel_carts_called_load;\n";
            $code .= scalar keys %attr ?
                'my %_xsp_handel_carts_load_filter = ("' . join('", "', %attr) . '");' :
                'my %_xsp_handel_carts_load_filter;' ;

            return "\n{\n$code\n";


        ## cart:item
        } elsif ($tag eq 'item') {
            throw Handel::Exception::Taglib(
                -text => translate('Tag [_1] not valid inside of tag [_2]', $tag, $context[-1])
            ) if ($context[-1] =~ /^(cart(s?))$/);

            push @context, $tag;

            my $code = "my \$_xsp_handel_cart_item;\nmy \$_xsp_handel_cart_called_item;\n";
            $code .= scalar keys %attr ?
                'my %_xsp_handel_cart_item_filter = ("' . join('", "', %attr) . '");' :
                'my %_xsp_handel_cart_item_filter;' ;

            return "\n{\n$code\n";


        ## cart:items
        } elsif ($tag eq 'items') {
            throw Handel::Exception::Taglib(
                -text => translate('Tag [_1] not valid inside of tag [_2]', $tag, $context[-1])
            ) if ($context[-1] =~ /^(cart(s?))$/);

            push @context, $tag;

            my $code = "my \@_xsp_handel_cart_items;\nmy \$_xsp_handel_cart_called_items;\n";
            $code .= scalar keys %attr ?
                'my %_xsp_handel_cart_items_filter = ("' . join('", "', %attr) . '");' :
                'my %_xsp_handel_cart_items_filter;' ;

            return "\n{\n$code\n";


        ## cart:clear
        } elsif ($tag eq 'clear') {
            throw Handel::Exception::Taglib(
                -text => translate('TAG_NOT_ALLOWED_HERE', $tag)
            ) if ($context[-1] ne 'results' || $context[-2] !~ /^(cart(s?))$/);

           return "\n\$_xsp_handel_cart_cart->clear;\n";


        ## cart:add
        } elsif ($tag eq 'add') {
            throw Handel::Exception::Taglib(
                -text => translate('TAG_NOT_ALLOWED_HERE', $tag)
            ) if ($context[-1] ne 'results' || $context[-2] !~ /^(new|cart(s?))$/);

            push @context, $tag;

            my $code = "my \$_xsp_handel_cart_item;\nmy \$_xsp_handel_cart_called_add;\n";
            $code .= scalar keys %attr ?
                'my %_xsp_handel_cart_add_filter = ("' . join('", "', %attr) . '");' :
                'my %_xsp_handel_cart_add_filter;' ;

            return "\n{\n$code\n";


        ## cart:update
        } elsif ($tag eq 'update') {
            throw Handel::Exception::Taglib(
                -text => translate('TAG_NOT_ALLOWED_HERE', $tag)
            ) if ($context[-1] ne 'results' || $context[-2] !~ /^((cart(s?)|item(s?)))$/);

            push @context, $tag;

            if ($context[-3] =~ /^(cart(s?))$/) {
                return "\n\$_xsp_handel_cart_cart->autoupdate(0);\n";
            } elsif ($context[-3] =~ /^(item(s?))$/) {
                return "\n\$_xsp_handel_cart_item->autoupdate(0);\n";
            };

            return '';


        } elsif ($tag eq 'save') {
            throw Handel::Exception::Taglib(
                -text => translate('TAG_NOT_ALLOWED_HERE', $tag)
            ) if ($context[-2] !~ /^(cart(s?))$/);

            return '
                                $_xsp_handel_cart_cart->save;
                                $_xsp_handel_cart_cart->update;
                        ';

        ## cart:delete
        } elsif ($tag eq 'delete') {
            throw Handel::Exception::Taglib(
                -text => translate('TAG_NOT_ALLOWED_HERE', $tag)
            ) if ($context[-1] ne 'results' || $context[-2] !~ /^(cart(s?))$/);

            push @context, $tag;

            my $code .= scalar keys %attr ?
                'my %_xsp_handel_cart_delete_filter = ("' . join('", "', %attr) . '");' :
                'my %_xsp_handel_cart_delete_filter;' ;

            return "\n{\n$code\n";


        ## cart property tags
        ## cart:description, id, name, shopper, type, count, subtotal
        } elsif ($tag =~ /^(description|id|name|shopper|type|count|subtotal)$/) {
            if ($context[-1] eq 'new' && $tag !~ /^(count|subtotal)$/) {
                return "\n\$_xsp_handel_cart_new_filter{$tag} = ''";
            } elsif ($context[-1] eq 'add' && $tag =~ /^(id|description)$/) {
                return "\n\$_xsp_handel_cart_add_filter{$tag} = ''";
            } elsif ($context[-1] eq 'results' && $context[-2] =~ /^(new|cart(s?))$/) {
                $e->start_expr($tag);

                if ($tag eq 'subtotal' && ($attr{'format'} || $attr{'convert'})) {
                    my $cfg = Handel::ConfigReader->new();
                    my $code   = $attr{'to'}      || $attr{'code'} || $cfg->{'HandelCurrencyCode'};
                    my $format = $attr{'options'} || $cfg->{'HandelCurrencyFormat'};
                    my $from   = $attr{'from'}    || $cfg->{'HandelCurrencyCode'};
                    my $to     = $attr{'to'}      || $attr{'code'} || $cfg->{'HandelCurrencyCode'};

                    AxKit::Debug(5, "[Handel] [Cart] [$tag] code=$code, format=$format, from=$from, to=$to");

                    if ($attr{'convert'}) {
                        $e->append_to_script("Handel::Compat::Currency::convert(Handel::Compat::Currency->new(\$_xsp_handel_cart_cart->$tag->value), '$from', '$to', '".($attr{'format'}||'')."', '$format');\n");
                    } elsif ($attr{'format'}) {
                        $e->append_to_script("Handel::Compat::Currency::format(Handel::Compat::Currency->new(\$_xsp_handel_cart_cart->$tag->value), '$code', '$format');\n");
                    };
                } elsif ($tag eq 'subtotal') {
                    $e->append_to_script("\$_xsp_handel_cart_cart->$tag->value;\n");
                } else {
                    $e->append_to_script("\$_xsp_handel_cart_cart->$tag;\n");
                };
            } elsif ($context[-1] eq 'results' && $context[-2] eq 'item') {
                $e->start_expr($tag);
                $e->append_to_script("\$_xsp_handel_cart_item->$tag;\n");
            } elsif ($context[-1] eq 'results' && $context[-2] eq 'items') {
                $e->start_expr($tag);
                $e->append_to_script("\$_xsp_handel_cart_item->$tag;\n");
            } elsif ($context[-1] eq 'results' && $context[-2] eq 'add') {
                $e->start_expr($tag);
                $e->append_to_script("\$_xsp_handel_cart_item->$tag;\n");
            } elsif ($context[-1] eq 'delete' && $tag !~ /^(count|subtotal)$/) {
                return "\n\$_xsp_handel_cart_delete_filter{$tag} = ''";
            } elsif ($context[-1] eq 'update') {
                throw Handel::Exception::Taglib(
                    -text => translate('TAG_NOT_ALLOWED_HERE', $tag)
                ) if ($tag eq 'id');

                if ($context[-3] =~ /^(cart(s?))$/) {
                    return "\n\$_xsp_handel_cart_cart->$tag(''";
                } elsif ($context[-3] =~ /^(item(s?))$/) {
                    return "\n\$_xsp_handel_cart_item->$tag(''";
                };
            };


        ## cart item property tags
        ## cart:sku, price, quantity, total
        } elsif ($tag =~ /^(sku|price|quantity|total)$/) {
            if ($context[-1] eq 'add' && $tag ne 'total') {
                return "\n\$_xsp_handel_cart_add_filter{$tag} = ''";
            #} elsif ($context[-1] eq 'results' && $context[-2] eq 'add') {
            #    $e->start_expr($tag);
            #    $e->append_to_script("\$_xsp_handel_cart_item->$tag;\n");
            } elsif ($context[-1] eq 'results' && $context[-2] =~ /^(item(s?)|add)$/) {
                $e->start_expr($tag);

                if ($tag =~ /^(price|total)$/ && ($attr{'format'} || $attr{'convert'})) {
                    my $cfg = Handel::ConfigReader->new();
                    my $code   = $attr{'to'}      || $attr{'code'} || $cfg->{'HandelCurrencyCode'};
                    my $format = $attr{'options'} || $cfg->{'HandelCurrencyFormat'};
                    my $from   = $attr{'from'}    || $cfg->{'HandelCurrencyCode'};
                    my $to     = $attr{'to'}      || $attr{'code'} || $cfg->{'HandelCurrencyCode'};

                    AxKit::Debug(5, "[Handel] [Cart] [$tag] code=$code, format=$format, from=$from, to=$to");

                    if ($attr{'convert'}) {
                        $e->append_to_script("Handel::Compat::Currency::convert(Handel::Compat::Currency->new(\$_xsp_handel_cart_item->$tag->value), '$from', '$to', '".($attr{'format'}||'')."', '$format');\n");
                    } elsif ($attr{'format'}) {
                        $e->append_to_script("Handel::Compat::Currency::format(Handel::Compat::Currency->new(\$_xsp_handel_cart_item->$tag->value), '$code', '$format');\n");
                    };
                } elsif ($tag =~ /^(price|total)$/) {
                    $e->append_to_script("\$_xsp_handel_cart_item->$tag->value;\n");
                } else {
                    $e->append_to_script("\$_xsp_handel_cart_item->$tag;\n");
                };
            } elsif ($context[-1] eq 'delete') {
                return "\n\$_xsp_handel_cart_delete_filter{$tag} = ''";
            } elsif ($context[-1] eq 'update') {
                if ($context[-3] =~ /^(cart(s?))$/) {
                    return "\n\$_xsp_handel_cart_cart->$tag(''";
                } elsif ($context[-3] =~ /^(item(s?))$/) {
                    return "\n\$_xsp_handel_cart_item->$tag(''";
                };
            };


        ## cart:filter
        } elsif ($tag eq 'filter') {
            my $key = $attr{'name'} || 'id';

            if ($context[-1] eq 'cart') {
                return "\n\$_xsp_handel_cart_load_filter{'$key'} = ''";
            } elsif ($context[-1] eq 'carts') {
                return "\n\$_xsp_handel_carts_load_filter{'$key'} = ''";
            } elsif ($context[-1] eq 'item') {
                return "\n\$_xsp_handel_cart_item_filter{'$key'} = ''";
            } elsif ($context[-1] eq 'items') {
                return "\n\$_xsp_handel_cart_items_filter{'$key'} = ''";
            } elsif ($context[-1] eq 'restore') {
                return "\n\$_xsp_handel_cart_restore_filter{'$key'} = ''";
            };


        ## cart:results
        } elsif ($tag =~ /^result(s?)$/) {
            throw Handel::Exception::Taglib(
                -text => translate('TAG_NOT_ALLOWED_HERE', $tag)
            ) if ($context[-1] !~ /^(new|add|cart(s?)|item(s?))$/);

            push @context, $tag;

            if ($context[-2] eq 'new') {
                return '
                                        if (!$_xsp_handel_cart_called_new && scalar keys %_xsp_handel_cart_new_filter) {
                                                $_xsp_handel_cart_cart = Handel::Cart->create(\%_xsp_handel_cart_new_filter);
                                                $_xsp_handel_cart_called_new = 1;
                                        };
                                        if ($_xsp_handel_cart_cart) {

                                ';
            } elsif ($context[-2] eq 'cart') {
                return '
                                        if (!$_xsp_handel_cart_called_load) {
                                                $_xsp_handel_cart_cart = (scalar keys %_xsp_handel_cart_load_filter) ?
                                                        Handel::Cart->search(\%_xsp_handel_cart_load_filter)->next :
                                                        Handel::Cart->search->next;
                                                        $_xsp_handel_cart_called_load = 1;
                                        };
                                        if ($_xsp_handel_cart_cart) {

                                ';
            } elsif ($context[-2] eq 'carts') {
                return '
                                        if (!$_xsp_handel_carts_called_load) {
                                                @_xsp_handel_cart_carts = (scalar keys %_xsp_handel_carts_load_filter) ?
                                                        Handel::Cart->search(\%_xsp_handel_carts_load_filter) :
                                                        Handel::Cart->search;
                                                        $_xsp_handel_carts_called_load = 1;
                                        };
                                        foreach my $_xsp_handel_cart_cart (@_xsp_handel_cart_carts) {

                                ';
            } elsif ($context[-2] eq 'item') {
                return '
                                        if (!$_xsp_handel_cart_called_item) {
                                                $_xsp_handel_cart_item = (scalar keys %_xsp_handel_cart_item_filter) ?
                                                        $_xsp_handel_cart_cart->items(\%_xsp_handel_cart_item_filter)->next :
                                                        $_xsp_handel_cart_cart->items->next;
                                                        $_xsp_handel_cart_called_item = 1;
                                        };
                                        if ($_xsp_handel_cart_item) {

                                ';
            } elsif ($context[-2] eq 'items') {
                return '
                                        if (!$_xsp_handel_cart_called_items) {
                                                @_xsp_handel_cart_items = (scalar keys %_xsp_handel_cart_items_filter) ?
                                                        $_xsp_handel_cart_cart->items(\%_xsp_handel_cart_items_filter) :
                                                        $_xsp_handel_cart_cart->items;
                                                        $_xsp_handel_cart_called_items = 1;
                                        };
                                        foreach my $_xsp_handel_cart_item (@_xsp_handel_cart_items) {

                                ';
            } elsif ($context[-2] eq 'add') {
                return '
                                        if (!$_xsp_handel_cart_called_add && scalar keys %_xsp_handel_cart_add_filter) {
                                                $_xsp_handel_cart_item = $_xsp_handel_cart_cart->add(\%_xsp_handel_cart_add_filter);
                                                $_xsp_handel_cart_called_add = 1;
                                        };
                                        if ($_xsp_handel_cart_item) {

                                ';
            };


        ## cart:no-results
        } elsif ($tag =~ /^no-result(s?)$/) {
            throw Handel::Exception::Taglib(
                -text => translate('TAG_NOT_ALLOWED_HERE', $tag)
            ) if ($context[-1] !~ /^(new|add|cart(s?)|item(s?))$/);

            push @context, $tag;

            if ($context[-2] eq 'new') {
                return '
                                        if (!$_xsp_handel_cart_called_new && scalar keys %_xsp_handel_cart_new_filter) {
                                                $_xsp_handel_cart_cart = Handel::Cart->create(\%_xsp_handel_cart_new_filter);
                                                $_xsp_handel_cart_called_new = 1;
                                        };
                                        if (!$_xsp_handel_cart_cart) {
                                ';
            } elsif ($context[-2] eq 'cart') {
                return '
                                        if (!$_xsp_handel_cart_called_load) {
                                                $_xsp_handel_cart_cart = (scalar keys %_xsp_handel_cart_load_filter) ?
                                                        Handel::Cart->search(\%_xsp_handel_cart_load_filter)->next :
                                                        Handel::Cart->search->next;
                                                        $_xsp_handel_cart_called_load = 1;
                                        };
                                        if (!$_xsp_handel_cart_cart) {
                                ';
            } elsif ($context[-2] eq 'carts') {
                return '
                                        if (!$_xsp_handel_carts_called_load) {
                                                @_xsp_handel_cart_carts = (scalar keys %_xsp_handel_carts_load_filter) ?
                                                        Handel::Cart->search(\%_xsp_handel_carts_load_filter) :
                                                        Handel::Cart->search;
                                                        $_xsp_handel_carts_called_load = 1;
                                        };
                                        if (!scalar @_xsp_handel_cart_carts) {
                                ';
            } elsif ($context[-2] eq 'item') {
                return '
                                        if (!$_xsp_handel_cart_called_item) {
                                                $_xsp_handel_cart_item = (scalar keys %_xsp_handel_cart_item_filter) ?
                                                        $_xsp_handel_cart_cart->items(\%_xsp_handel_cart_item_filter)->next :
                                                        $_xsp_handel_cart_cart->items->next;
                                                        $_xsp_handel_cart_called_item = 1;
                                        };
                                        if (!$_xsp_handel_cart_item) {
                                ';
            } elsif ($context[-2] eq 'items') {
                return '
                                        if (!$_xsp_handel_cart_called_items) {
                                                @_xsp_handel_cart_items = (scalar keys %_xsp_handel_cart_items_filter) ?
                                                        $_xsp_handel_cart_cart->items(\%_xsp_handel_cart_items_filter) :
                                                        $_xsp_handel_cart_cart->items;
                                                        $_xsp_handel_cart_called_items = 1;
                                        };
                                        if (!scalar @_xsp_handel_cart_items) {
                                ';
            } elsif ($context[-2] eq 'add') {
                return '
                                        if (!$_xsp_handel_cart_called_add && scalar keys %_xsp_handel_cart_add_filter) {
                                                $_xsp_handel_cart_item = $_xsp_handel_cart_cart->add(\%_xsp_handel_cart_add_filter);
                                                $_xsp_handel_cart_called_add = 1;
                                        };
                                        if (!$_xsp_handel_cart_item) {
                                ';
            };
        };

        return '';
    };

    sub parse_end {
        my ($e, $tag) = @_;

        AxKit::Debug(5, "[Handel] [Cart] parse_end:   [$tag] context: " . join('->', @context));

        ## cart:new
        if ($tag eq 'new') {
            pop @context;

            return '
                                if (!$_xsp_handel_cart_called_new && scalar keys %_xsp_handel_cart_new_filter) {
                                        $_xsp_handel_cart_cart = Handel::Cart->create(\%_xsp_handel_cart_new_filter);
                                        $_xsp_handel_cart_called_new = 1;
                                };
                        };';


        ## cart:restore
        } elsif ($tag eq 'restore') {
            pop @context;

            return '
                                $_xsp_handel_cart_cart->restore(\%_xsp_handel_cart_restore_filter,
                                        $_xsp_handel_cart_restore_mode);
                        };
                        ';


        ## cart:cart
        } elsif ($tag eq 'cart') {
            pop @context;

            return "\n};\n";


        ## cart:carts
        } elsif ($tag eq 'carts') {
            pop @context;

            return "\n};\n";


        ## cart:item
        } elsif ($tag eq 'item') {
            pop @context;

            return "\n};\n";


        ## cart:items
        } elsif ($tag eq 'items') {
            pop @context;

            return "\n};\n";


        ## cart:add
        } elsif ($tag eq 'add') {
            pop @context;

            return '
                                if (!$_xsp_handel_cart_called_add && scalar keys %_xsp_handel_cart_add_filter) {
                                        $_xsp_handel_cart_item = $_xsp_handel_cart_cart->add(\%_xsp_handel_cart_add_filter);
                                        $_xsp_handel_cart_called_add = 1;
                                };
                        };
                        ';


        ## cart:update
        } elsif ($tag eq 'update') {
            if ($context[-3] =~ /^(cart(s?))$/) {
                pop @context;
                return '
                                        $_xsp_handel_cart_cart->update;
                                        $_xsp_handel_cart_cart->autoupdate(1);
                                ';
            } elsif ($context[-3] =~ /^(item(s?))$/) {
                pop @context;
                return '
                                        $_xsp_handel_cart_item->update;
                                        $_xsp_handel_cart_item->autoupdate(1);
                                ';
            };

            pop @context;


        ## cart:delete
        } elsif ($tag eq 'delete') {
            pop @context;

            return '
                                if (scalar keys %_xsp_handel_cart_delete_filter) {
                                        $_xsp_handel_cart_cart->delete(\%_xsp_handel_cart_delete_filter);
                                };
                        };
                        ';

        ## cart propery tags
        ## cart:description, id, name, shopper, type, count, subtotal
        } elsif ($tag =~ /^(description|id|name|shopper|type|count|subtotal)$/) {
            if ($context[-1] eq 'new' && $tag !~ /^(count|subtotal)$/) {
                return ";\n";
            } elsif ($context[-1] eq 'add' && $tag !~ /^(count|subtotal)$/) {
                return ";\n";
            } elsif ($context[-1] eq 'results') {
                $e->end_expr($tag);
            } elsif ($context[-1] eq 'delete' && $tag !~ /^(count|subtotal)$/) {
                return ";\n";
            } elsif ($context[-1] eq 'update') {
                if ($context[-3] =~ /^(cart(s?))$/) {
                    return ");\n";
                } elsif ($context[-3] =~ /^(item(s?))$/) {
                    return ");\n";
                };
            };


        ## cart item property tags
        ## cart:sku, price, quantity
        } elsif ($tag =~ /^(sku|price|quantity|total)$/) {
            if ($context[-1] eq 'add' && $tag ne 'total') {
                return ";\n";
            } elsif ($context[-1] eq 'results' && $context[-2] eq 'add') {
                $e->end_expr($tag);
            } elsif ($context[-1] eq 'results' && $context[-2] eq 'item') {
                $e->end_expr($tag);
            } elsif ($context[-1] eq 'results' && $context[-2] eq 'items') {
                $e->end_expr($tag);
            } elsif ($context[-1] eq 'delete' && $tag !~ /^(count|subtotal)$/) {
                return ";\n";
            } elsif ($context[-1] eq 'update') {
                if ($context[-3] =~ /^(cart(s?))$/) {
                    return ");\n";
                } elsif ($context[-3] =~ /^(item(s?))$/) {
                    return ");\n";
                };
            };


        ## cart:filter
        } elsif ($tag eq 'filter') {
            if ($context[-1] eq 'cart') {
                return ";\n";
            } elsif ($context[-1] eq 'carts') {
                return ";\n";
            } elsif ($context[-1] eq 'item') {
                return ";\n";
            } elsif ($context[-1] eq 'items') {
                return ";\n";
            } elsif ($context[-1] eq 'restore') {
                return ";\n";
            };


        ## cart:results
        } elsif ($tag =~ /^result(s?)$/) {
            if ($context[-2] eq 'new') {
                pop @context;

                return "\n};\n";
            } elsif ($context[-2] eq 'cart') {
                pop @context;

                return "\n};\n";
            } elsif ($context[-2] eq 'carts') {
                pop @context;

                return "\n};\n";
            } elsif ($context[-2] eq 'item') {
                pop @context;

                return "\n};\n";
            } elsif ($context[-2] eq 'items') {
                pop @context;

                return "\n};\n";
            } elsif ($context[-2] eq 'add') {
                pop @context;

                return "\n};\n";
            };
            pop @context;


        ## cart:no-results
        } elsif ($tag =~ /^no-result(s?)$/) {
            if ($context[-2] eq 'new') {
                pop @context;

                return "\n};\n";
            } elsif ($context[-2] eq 'cart') {
                pop @context;

                return "\n};\n";
            } elsif ($context[-2] eq 'carts') {
                pop @context;

                return "\n};\n";
            } elsif ($context[-2] eq 'item') {
                pop @context;

                return "\n};\n";
            } elsif ($context[-2] eq 'items') {
                pop @context;

                return "\n};\n";
            } elsif ($context[-2] eq 'add') {
                pop @context;

                return "\n};\n";
            };
            pop @context;
        };

        return '';
    };
#};

1;
__END__