Cacher is the code snippet organizer for pro developers

<MvASSIGN NAME = "l.ordercharge" VALUE = "">
<MvASSIGN NAME = "l.ordercharge:order_id" VALUE = "{ l.order:id }">
<MvASSIGN NAME = "l.ordercharge:module_id" VALUE = "{ l.module:id }">
<MvASSIGN NAME = "l.ordercharge:type" VALUE = "TAX">
<MvASSIGN NAME = "l.ordercharge:descrip" VALUE = "Sales Tax">
<MvASSIGN NAME = "l.ordercharge:amount" VALUE = 1.00>
<MvASSIGN NAME = "l.ordercharge:disp_amt" VALUE = 1.00>
<MvASSIGN NAME = "l.ordercharge:tax_exempt" VALUE = 0>

<MvIF EXPR = "{ NOT [ g.Module_Library_DB ].OrderCharge_Insert( l.ordercharge ) }">
<MvFUNCTIONRETURN VALUE = 0>
</MvIF>

<mvt:comment><mvt:assign name="l.basketcharge:order_id" value="l.settings:order:id"></mvt:comment>
<mvt:assign name="l.basketcharge:module_id" value="l.settings:store:tax_mod:id">
<mvt:assign name="l.basketcharge:type" value="'TAX'">
<mvt:assign name="l.basketcharge:descrip" value="'CA Sales Tax'">
<mvt:assign name="l.basketcharge:amount" value="g.basket:subtotal * 0.0875">
<mvt:assign name="l.basketcharge:disp_amt" value="g.basket:subtotal * 0.0875">
<mvt:assign name="l.basketcharge:tax_exempt" value="0">

      <mvt:comment>Order ID: &mvt:basketcharge:order_id;<br /></mvt:comment>
      Module ID: &mvt:basketcharge:module_id;<br />
      Type: &mvt:basketcharge:type;<br />
      Desription: &mvt:basketcharge:descrip;<br />
      Amount: &mvt:basketcharge:amount;<br />
      Display Amount: &mvt:basketcharge:disp_amt;<br />
      Tax Exempt: &mvt:basketcharge:tax_exempt;<br />

<mvt:do file="g.Module_Library_DB" name="l.success" value="BasketCharge_Insert( l.basketcharge )" />


<MvIF EXPR = "{ NOT [ g.Module_Feature_PGR_DB ].PriceGroupXCustomer_Load( l.pgrp_id, l.cust_id, l.pricegroupxcustomer ) }">
	<MvIF EXPR = "{ NOT [ g.Module_Library_DB ].Error_Is_EOF() }">
		<MvFUNCTIONRETURN VALUE = "{ [ g.Module_Library_Utilities ].Error( g.Error_Code, g.Error_Message ) }">
	</MvIF>

	<MvIF EXPR = "{ [ g.Module_Feature_AGR_DB ].AvailGroupXCustomer_Load( l.agrp_id, l.cust_id, l.availgroupxcustomer ) }">
		<MvIF EXPR = "{ NOT [ g.Module_Feature_AGR_DB ].AvailGroupXCustomer_Delete( l.agrp_id, l.cust_id ) }">
			<MvFUNCTIONRETURN VALUE = 0>
		</MvIF>
	</MvIF>
<MvELSE>
	<MvIF EXPR = "{ NOT [ g.Module_Feature_AGR_DB ].AvailGroupXCustomer_Load( l.agrp_id, l.cust_id, l.availgroupxcustomer ) }">
		<MvIF EXPR = "{ NOT [ g.Module_Library_DB ].Error_Is_EOF() }">
			<MvFUNCTIONRETURN VALUE = "{ [ g.Module_Library_Utilities ].Error( g.Error_Code, g.Error_Message ) }">
		</MvIF>

		<MvIF EXPR = "{ NOT [ g.Module_Feature_AGR_DB ].AvailGroupXCustomer_Insert( l.agrp_id, l.cust_id ) }">
			<MvFUNCTIONRETURN VALUE = 0>
		</MvIF>
	</MvIF>
</MvIF>

<mvt:if expr="s.remote_addr EQ '207.114.171.26'">
    <!-- Start mvdo functionality -->
    <mvt:do file="g.Module_Feature_PGR_DB" name="l.settings:pgrouplist" value="PriceGroup_Load_Name( 'Wholesale', g.wholesalepgroup )" />
    <mvt:comment><!-- <mvt:eval expr="miva_array_serialize(g.wholesalepgroup)" /> --></mvt:comment>
    <mvt:comment><!-- &mvt:global:wholesalepgroup:id; --></mvt:comment>
    <mvt:do file="g.Module_Feature_AGR_DB" name="l.settings:agrouplist" value="AvailabilityGroup_Load_Name( 'Wholesale', g.wholesaleagroup )" />
    <mvt:comment><!-- <mvt:eval expr="miva_array_serialize(g.wholesaleagroup)" /> --></mvt:comment>
    <mvt:comment><!-- &mvt:global:wholesaleagroup:id; --></mvt:comment>

    <mvt:comment><mvt:assign name="g.pvar" value="miva_array_serialize(l.settings:customer_pgroups)" />
    <!-- @@ &mvt:global:pvar; --></mvt:comment>
    <mvt:foreach iterator="pgroup" array="customer_pgroups">
        <mvt:if expr="l.settings:pgroup:name EQ 'Wholesale'">
        	<mvt:comment><!-- pgroupname: &mvt:pgroup:name; --></mvt:comment>
            <mvt:do file="g.Module_Feature_PGR_DB" name="l.settings:pgrouptrue" value="PriceGroupXCustomer_Load( l.settings:pgroup:id, g.customer:id, l.pricegroupxcustomer  )" />
            <mvt:comment><!-- prouptrue: &mvt:pgrouptrue; --></mvt:comment>
        </mvt:if>
    </mvt:foreach>

    <mvt:comment><mvt:assign name="g.avar" value="miva_array_serialize(l.settings:customer_agroups)" />
    <!-- @@ &mvt:global:avar; --></mvt:comment>
    <mvt:foreach iterator="agroup" array="customer_agroups">
	    <mvt:if expr="l.settings:agroup:name EQ 'Wholesale'">
	        <mvt:comment><!-- agroupname: &mvt:agroup:name; --></mvt:comment>
	        <mvt:do file="g.Module_Feature_AGR_DB" name="l.settings:agrouptrue" value="AvailGroupXCustomer_Load( l.settings:agroup:id, g.customer:id, l.availgroupxcustomer  )" />
	        <mvt:comment><!-- arouptrue: &mvt:agrouptrue; --></mvt:comment>
	    </mvt:if>
	</mvt:foreach>

    <mvt:if expr="ISNULL l.settings:pgrouptrue OR l.settings:pgrouptrue EQ 0">
    	<!-- not in pgroup -->
    	<mvt:if expr="l.settings:agrouptrue EQ 1">
    		<!-- remove from agroup -->
    		<mvt:do file="g.Module_Feature_AGR_DB" name="l.settings:agroupremove" value="AvailGroupXCustomer_Delete( g.wholesaleagroup:id, g.customer:id  )" />
    	<mvt:else>
    	<!-- not in agroup -->
    	</mvt:if>
    <mvt:else>
    	<!-- in pgroup -->
    	<mvt:if expr="ISNULL l.settings:agrouptrue OR l.settings:agrouptrue EQ 0">
    		<!-- insert into agroup -->
    		<mvt:do file="g.Module_Feature_AGR_DB" name="l.settings:agroupadd" value="AvailGroupXCustomer_Insert( g.wholesaleagroup:id, g.customer:id  )" />
    	<mvt:else>
    	<!-- in agroup -->
    	</mvt:if>
    </mvt:if>
    <!-- End mvdo functionality -->
</mvt:if>