Cacher is the code snippet organizer for pro developers

<mvt:assign name="g.var_list" value="miva_getvarlist('g')" />
 
<mvt:item name="toolkit" param="vacreate|list|g.var_list|," />
<mvt:foreach iterator="var" array="list">
            <mvt:if expr="'Code' CIN l.settings:var">
                        <mvt:assign name="l.quantity" value="miva_variable_value( 'quantity' $ substring(l.settings:var,5,len(l.settings:var)) )" />
                        <mvt:if expr="NOT ISNULL l.quantity">
                                    <mvt:assign name="g.product_list" value="g.product_list $ miva_variable_value( 'g.' $ l.settings:var) $ ':' $ l.quantity $ ','" />
                        </mvt:if>
            </mvt:if>
</mvt:foreach>

<mvt:comment>Remove Trailing Comma</mvt:comment>
<mvt:assign name="g.product_list" value="substring(g.product_list,1,len(g.product_list)-1)" />


<mvt:item name="toolkit" param="vacreate|products|g.product_list|," />
<mvt:foreach iterator="product" array="products">
            <mvt:assign name="g.Product_Code" value="gettoken(l.settings:product,':',1)" />
            <mvt:assign name="g.Quantity" value="gettoken(l.settings:product,':',2)" />
            <mvt:item name="toolkit" param="callurl|response|http://domain.com/mm5/merchant.mvc?Screen=BASK&Action=ADPR|POST|Product_Code,Quantity,Session_ID" />
</mvt:foreach>

<mvt:eval expr="miva_output_header( 'Location', 'http://domain.com/mm5/merchant.mvc?Screen=BASK&' $ 'Session_ID=' $ g.Session_ID )" />