<MvCOMMENT>
|
| Miva Merchant v4.x
|
| This file and the source codes contained herein are the property
| of Miva Corporation.  Use of this file is restricted to the specific
| terms and conditions in the License Agreement associated with this
| file.  Distribution of this file or portions of this file for uses
| not covered by the License Agreement is not allowed without a written
| agreement signed by an officer of Miva Corporation.
|
| Copyright 1998-2001 Miva Corporation.  All rights reserved.
| http://www.miva.com/
|
| $Source: /home/cvs/merchant/Merchant/features/stp/stp_ad.mv,v $
|
| Prefix         : MER-STP-AD-
| Next Error Code: 8    
| Next Text ID   : 44   
|
</MvCOMMENT>

<MvFUNCTION NAME = "IsSimpleMode" PARAMETERS = "" STANDARDOUTPUTLEVEL = "">
	<MvIF EXPR = "{ ( g.STP_SWMD EQ 'on' ) OR ( g.STP_SWMD EQ 'off' ) }">
		<MvASSIGN NAME = "l.switch" VALUE = 0>
		<MvASSIGN NAME = "l.update" VALUE = 1>
		
		<MvIF EXPR = "{ g.STP_SWMD EQ 'on' }">		
			<MvASSIGN NAME = "l.switch" VALUE = 1>
			<MvASSIGN NAME = "l.IsSimpleMode" VALUE = "1">
		<MvELSE>
			<MvASSIGN NAME = "l.switch" VALUE = 0>
			<MvASSIGN NAME = "l.IsSimpleMode" VALUE = "0">
			<MvASSIGN NAME = "g.IsSimpleMode" VALUE = 0>
		</MvIF>
	<MvELSE>
		<MvIF EXPR = "{ Users.d.smod EQ 0 }">
			<MvIF EXPR = "{ g.IsSimpleMode EQ 1 }">
				<MvASSIGN NAME = "l.IsSimpleMode" VALUE = "1">
				<MvASSIGN NAME = "l.update" VALUE = "1">
				<MvASSIGN NAME = "l.switch" VALUE = "1">
			<MvELSE>
				<MvASSIGN NAME = "l.IsSimpleMode" VALUE = "0">
			</MvIF>
		<MvELSE>
			<MvASSIGN NAME = "l.IsSimpleMode" VALUE = "1">
		</MvIF>
	</MvIF>			
 
	<MvIF EXPR = "{ g.IsSimpleMode }">
		<MvASSIGN NAME = "l.IsSimpleMode" VALUE = 1>	
	</MvIF>
	
	<MvIF EXPR = "{ l.IsSimpleMode }">
		<MvASSIGN NAME = "g.sessionurl" VALUE = "{ g.sessionurl $ 'IsSimpleMode=1&' }">	
	</MvIF>

	<MvIF EXPR = "{ l.update }">
		<MvDO FILE = "{ '../../lib/db.mv' }" NAME = "l.ok" VALUE = "{ User_Update( g.Admin_User_ID, Users.d.parent_id, Users.d.page_len, Users.d.name, '', Users.d.admin, Users.d.create, Users.d.t_fails, Users.d.c_fails, Users.d.lo_date, l.switch ) }">
	</MvIF>

	<MvFUNCTIONRETURN VALUE = "{ l.IsSimpleMode }">
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Frameset" PARAMETERS = "store_code, user_id" STANDARDOUTPUTLEVEL = "text, html, compresswhitespace">
	<MvIF EXPR = "{ 'MSIE' IN s.http_user_agent }">
		<MvASSIGN NAME = "l.height" VALUE = 50>
	<MvELSE>
		<MvASSIGN NAME = "l.height" VALUE = 50>
	</MvIF>

	<MvASSIGN NAME = "l.url" VALUE = "{ g.sessionurl $ 'Screen=WLCM' }">

	<FRAMESET ROWS = "56, *" FRAMEBORDER = 0 FRAMESPACING = 0 BORDER=0>
		<FRAME NAME = "TaskTop" SRC = "{ g.sessionurl $ 'Screen=TTOP' }" SCROLLING = "no" NORESIZE MARGINWIDTH = 10 MARGINHEIGHT = 10>
		<FRAMESET COLS = "280, *" FRAMEBORDER = 0 FRAMESPACING = 0 BORDER=0>
			<FRAME NAME = "TaskList" SRC = "{ g.sessionurl $ 'Screen=TLST' }" SCROLLING = "auto" NORESIZE>
			<FRAME NAME = "Task" SRC = "{ encodeentities( l.url ) }" SCROLLING = "auto">
		</FRAMESET>

		<NOFRAMES>
			<MvLOCALIZED ID = "MER-ADM-00003">
				<MvLOCALIZED-TEXT LANGUAGE = "en-US">The Miva Merchant Administration module requires a browser that supports frames.</MvLOCALIZED-TEXT>
			</MvLOCALIZED>
		</NOFRAMES>
	</FRAMESET>
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Screen_TaskTop" STANDARDOUTPUTLEVEL = "text, html, compresswhitespace">
	<MvASSIGN NAME = "l.ok" VALUE = 1>

	<HEAD>
	<MvLOCALIZED ID = "MER-ADM-00745">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US"><TITLE>Miva Merchant Administration</TITLE></MvLOCALIZED-TEXT>
	</MvLOCALIZED>

	<MvIF EXPR = "{ g.Secure }">
		<BASE HREF = "{ g.secure_baseurl }">
	<MvELSE>
		<BASE HREF = "{ g.baseurl }">
	</MvIF>
	</HEAD>

	<BODY BGCOLOR = "#ffffff">
	<TABLE BORDER = 0 CELLPADDING = 0 CELLSPACING = 0 WIDTH = "100%">
	<TR><TD ALIGN = "left" VALIGN = "bottom">
		<IMG SRC = "{ g.AdminGraphics_Path $ 'logo4x.gif' }">
	</TD><TD ALIGN = "left" VALIGN = "middle" NOWRAP>
		<FONT FACE = "Arial, Helvetica" SIZE = "-1">
		&nbsp;&nbsp;&nbsp;
		<MvLOCALIZED ID = "MER-STP-AD-00001">
			<MvLOCALIZED-TOKEN NAME = "version" VALUE = "{ g.Merchant_Version }">
			<MvLOCALIZED-TEXT LANGUAGE = "en-US">Miva Merchant v%version% Simple Administration</MvLOCALIZED-TEXT>
		</MvLOCALIZED>					
		</FONT>
	</TD><TD ALIGN = "right" VALIGN = "middle" NOWRAP>
		<FONT FACE = "Arial, Helvetica" SIZE = "-1">
		<A TARGET = "_top" HREF = "{ g.sessionurl $ 'STP_SWMD=off' }">
		<MvLOCALIZED ID = "MER-STP-AD-00002">
			<MvLOCALIZED-TEXT LANGUAGE = "en-US">Switch to Advanced Administration</A></MvLOCALIZED-TEXT>
		</MvLOCALIZED>
		</FONT>
	</TD><TD ALIGN = "right" VALIGN = "middle" NOWRAP>
		&nbsp;
	</TD><TD ALIGN = "right" VALIGN = "middle" NOWRAP>
		<FONT FACE = "Arial, Helvetica" SIZE = "-1">
		<A TARGET = "_top" HREF = "{ g.sessionurl $ 'Screen=LOGO' }">
		<MvLOCALIZED ID = "MER-STP-AD-00003">
			<MvLOCALIZED-TEXT LANGUAGE = "en-US">Logout</A></MvLOCALIZED-TEXT>
		</MvLOCALIZED>
		</FONT>
	</TD></TR>
	</TABLE>
	</BODY>

	<MvFUNCTIONRETURN VALUE = "{ l.ok }">
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Screen_TaskList" PARAMETERS = "" STANDARDOUTPUTLEVEL = "text, html, compresswhitespace">
   <MvASSIGN NAME = "l.ok" VALUE = "1">

	<HEAD>
	<TITLE>STP_Screen_TaskList</TITLE>

	<SCRIPT LANGUAGE = "JavaScript">
<!--
function SetCurrent(id,storecode)
{
	document.STP.elements[ 'Store_Code' ].value = storecode;
	document.STP.elements[ 'Current_Task' ].value = id;
	document.STP.submit();

}
function FinishCurrent(completed,storecode,close)
{

	if ( storecode != '' ) {
		document.STP.elements[ 'Store_Code' ].value = storecode;
	}
	
	document.STP.elements[ 'Task_Completed' ].value = completed;
	document.STP.elements[ 'Task_Close' ].value = close;
	
	document.STP.submit();

}
//-->
	</SCRIPT>
	
	<MvIF EXPR = "{ NOT TaskList_OpenStore() }">
		<MvFUNCTIONRETURN VALUE = 0>
	</MvIF>		
	
	<MvIF EXPR = "{ g.Task_Completed }">
		<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.ok" VALUE = "{ STP_Task_Completed( g.Current_Task ) }">
		<MvIF EXPR = "{ NOT l.ok }">
			<MvFUNCTIONRETURN VALUE = "{ l.ok }">
		</MvIF>		

		<MvIF EXPR = "{ l.ok AND g.Task_Close }">
			<MvIF EXPR = "{ ( g.Current_Task NE 'F' ) AND ( g.Current_Task NE 'W' ) }">
				<MvIF EXPR = "{ Tasks.d.level EQ 'S' }">
					<MvASSIGN NAME = "g.Current_Store" VALUE = "{ Stores.d.code }">
				</MvIF>			

				<MvASSIGN NAME = "g.Current_Task" VALUE = "{ FindNext_Task_Notcompleted() }">
			</MvIF>

			<MvIF EXPR = "{ g.Current_Task EQ 'W' }">
				<MvASSIGN NAME = "g.Current_Task" VALUE = "{ FindFirst_Task_Notcompleted() }">
			</MvIF>

			<MvIF EXPR = "{ g.Current_Task }">
				<MvIF EXPR = "{ g.Current_Task NE 'F' }">
					<MvIF EXPR = "{ Tasks.d.level EQ 'D' }">
						<MvASSIGN NAME = "l.newtask_url" VALUE = "{ g.sessionurl $ 'Screen=WIZZ&Module_Code=' $ Tasks.d.module $ '&' $ Tasks.d.params }">
					<MvELSE>
						<MvASSIGN NAME = "g.Store_Code" VALUE = "{ g.Current_Store }">
						<MvASSIGN NAME = "l.newtask_url" VALUE = "{ g.sessionurl $ 'Store_Code=' $ g.Store_Code $ '&Screen=SWIZ&Module_Code=' $ Tasks.d.module $ '&' $ Tasks.d.params }">
					</MvIF>
				</MvIF>
			<MvELSE>
				<MvASSIGN NAME = "g.Current_Store" VALUE = "">
				<MvASSIGN NAME = "g.Current_Task" VALUE = "{ FindFirst_Task_Notcompleted() }">

				<MvIF EXPR = "{ NOT g.Current_Task }">
					<MvASSIGN NAME = "l.newtask_url" VALUE = "{ g.sessionurl $ 'Screen=FNSH' }">
					<MvASSIGN NAME = "g.Current_Task" VALUE = "F">
				<MvELSE>
					<MvASSIGN NAME = "g.Store_Code" VALUE = "{ g.Current_Store }">
					<MvIF EXPR = "{ Tasks.d.level EQ 'D' }">
						<MvASSIGN NAME = "l.newtask_url" VALUE = "{ g.sessionurl $ 'Screen=WIZZ&Module_Code=' $ Tasks.d.module $ '&' $ Tasks.d.params }">
					<MvELSE>
						<MvASSIGN NAME = "g.Store_Code" VALUE = "{ g.Current_Store }">
						<MvASSIGN NAME = "l.newtask_url" VALUE = "{ g.sessionurl $ 'Store_Code=' $ g.Store_Code $ '&Screen=SWIZ&Module_Code=' $ Tasks.d.module $ '&' $ Tasks.d.params }">
					</MvIF>
				</MvIF>
			</MvIF>

			<MvDO FILE = "{ g.Module_Admin }" NAME = "l.javascript" VALUE = "{ JavaScript_Set_A_Variable( 'newtask_url', l.newtask_url ) }">
			<MvEVAL EXPR = "{ l.javascript }">
			<SCRIPT LANGUAGE = "JavaScript">
			<!--
				parent.Task.NextTask( newtask_url );
			//-->
			</SCRIPT>
		</MvIF>
	</MvIF>

	<MvIF EXPR = "{ NOT g.Current_Task }">
		<MvASSIGN NAME = "g.Current_Task" VALUE = "W">
	</MvIF>
	
	<MvIF EXPR = "{ g.Secure }">
		<BASE HREF = "{ g.secure_baseurl }">
	<MvELSE>
		<BASE HREF = "{ g.baseurl }">
	</MvIF>
	

	</HEAD>

	<BODY BGCOLOR = "#ffffff">
	<MvDO FILE = "{ g.Module_Root $ 'site/h_tlst.mv' }">	

	<MvASSIGN NAME = "l.toplevel_task" VALUE = 1>

	<TABLE BORDER = 0 CELLPADDING = 0 CELLSPACING = 3>
	
	<!-- Welcome Task -->
	<MvASSIGN NAME = "l.toplevel_task" VALUE = "{ TaskList_Draw_TopLevelTask( 1, 'W', 'Screen=WLCM&Store_Code=' $ encodeattribute( g.Store_Code ), 'Welcome!', g.Current_Task NE 'W', 1 ) }">
	
	<!-- Top Level Tasks -->
	<MvIF EXPR = "{ g.Admin_User_Administrator }">
		<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ FindFirst_DomainTask() }">
		<MvWHILE EXPR = "{ l.found }">
			<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.ok" VALUE = "{ Module_Find_Code( Tasks.d.module ) }">
			<MvIF EXPR = "{ l.ok }">
				<MvDO FILE = "{ g.Module_Root $ Modules.d.module }" NAME = "l.can_use" VALUE = "{ WizardModule_Privileges() }">
				<MvIF EXPR = "{ l.can_use }">
					<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.is_completed" VALUE = "{ Is_DomainTaskParent_Completed() }">
					<MvIF EXPR = "{ l.is_completed }">
						<MvASSIGN NAME = "l.toplevel_task" VALUE = "{ TaskList_Draw_TopLevelTask( l.toplevel_task, Tasks.d.id, 'Screen=WIZZ&Store_Code=' $ encodeattribute( g.Store_Code ) $ '&Module_Code=' $ encodeattribute( Tasks.d.module ) $ '&' $ Tasks.d.params, Tasks.d.label, Tasks.d.completed, 1 ) }">
					<MvELSE>
						<MvASSIGN NAME = "l.toplevel_task" VALUE = "{ TaskList_Draw_TopLevelTask( l.toplevel_task, Tasks.d.id, '', Tasks.d.label, 0, 0 ) }">
					</MvIF>
				</MvIF>
			</MvIF>
			
			<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ FindNext_DomainTask() }">
		</MvWHILE>
	</MvIF>
	
	<!-- Store Tasks -->
	<MvIF EXPR = "{ g.Admin_User_Administrator }">
		<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindFirst() }">
	<MvELSE>
		<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindFirst_User( g.Admin_User_ID ) }">
	</MvIF>

	<MvIF EXPR = "{ NOT l.store_found }">
		<!-- Pseudo-Store Task -->
		<MvASSIGN NAME = "l.toplevel_task" VALUE = "{ TaskList_Draw_TopLevelTask( l.toplevel_task, -1, '', 'Configure Store', 0, 0 ) }">

		<MvASSIGN NAME = "l.store_task" VALUE = 1>
		<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.task_found" VALUE = "{ FindFirst_StoreTask_Unavailable() }">
		<MvWHILE EXPR = "{ l.task_found }">
			<MvDO FILE = "{ g.Module_Admin }" NAME = "l.can_use" VALUE = "{ CanI( Tasks.d.privilege, Tasks.d.view, Tasks.d.add, Tasks.d.modify, Tasks.d.delete ) }">
			<MvIF EXPR = "{ l.can_use }">
				<MvASSIGN NAME = "l.store_task" VALUE = "{ TaskList_Draw_StoreTask( l.store_task, Tasks.d.id, '', Tasks.d.label, 0, 0 ) }">
			</MvIF>
			
			<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.task_found" VALUE = "{ FindNext_StoreTask_Unavailable() }">
		</MvWHILE>			
	<MvELSE>
		<MvWHILE EXPR = "{ l.store_found }">
			<MvDO FILE = "{ g.Module_Admin }" NAME = "l.ok" VALUE = "{ Admin_Open_Store( Stores.d.code ) }">
			<MvIF EXPR = "{ NOT l.ok }">
				<MvFUNCTIONRETURN VALUE = "{ l.ok }">
			</MvIF>		
			<!-- Pseudo-Store Task -->
			<MvASSIGN NAME = "l.toplevel_task" VALUE = "{ TaskList_Draw_TopLevelTask( l.toplevel_task, -1, '', 'Configure Store: ' $ Stores.d.name, 0, 1 ) }">

			<MvASSIGN NAME = "l.store_task" VALUE = 1>
			<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.task_found" VALUE = "{ FindFirst_StoreTask() }">
			<MvWHILE EXPR = "{ l.task_found }">
				<MvDO FILE = "{ g.Module_Admin }" NAME = "l.can_use" VALUE = "{ CanI( Tasks.d.privilege, Tasks.d.view, Tasks.d.add, Tasks.d.modify, Tasks.d.delete ) }">
				<MvIF EXPR = "{ l.can_use }">
					<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.is_completed" VALUE = "{ Is_StoreTaskParent_Completed() }">
					<MvIF EXPR = "{ l.is_completed }">
						<MvASSIGN NAME = "l.store_task" VALUE = "{ TaskList_Draw_StoreTask( l.store_task, Tasks.d.id, 'Store_Code=' $ encodeattribute( Stores.d.code ) $'&Screen=SWIZ&Module_Code=' $ encodeattribute( Tasks.d.module ) $ '&' $ Tasks.d.params, Tasks.d.label, StoreTasks.d.completed, 1 ) }">
					<MvELSE>
						<MvASSIGN NAME = "l.store_task" VALUE = "{ TaskList_Draw_StoreTask( l.store_task, Tasks.d.id, '', Tasks.d.label, 0, 0 ) }">
					</MvIF>
				</MvIF>

				<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.task_found" VALUE = "{ FindNext_StoreTask() }">
			</MvWHILE>			

			<MvIF EXPR = "{ g.Admin_User_Administrator }">
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindNext() }">
			<MvELSE>
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindNext_User( g.Admin_User_ID ) }">
			</MvIF>
		</MvWHILE>
	</MvIF>

	<MvASSIGN NAME = "l.toplevel_task" VALUE = "{ TaskList_Draw_TopLevelTask( l.toplevel_task, 'F', 'Screen=FNSH&Store_Code=' $ encodeattribute( g.Store_Code ), 'Finished!', 0, 1 ) }">

	<MvDO FILE = "{ g.Module_Root $ 'site/f_tlst.mv' }">
	</TABLE>

	<FORM NAME = "STP" ACTION = "{ g.sessionurl }" METHOD = "POST">
		<INPUT TYPE = "hidden" NAME = "Screen" VALUE = "TLST">
		<INPUT TYPE = "hidden" NAME = "Store_Code" VALUE = "{ encodeentities( g.Store_Code ) }">
		<INPUT TYPE = "hidden" NAME = "Current_Task" VALUE = "{ encodeentities( g.Current_Task ) }">
		<INPUT TYPE = "hidden" NAME = "Task_Completed" VALUE = "0">
		<INPUT TYPE = "hidden" NAME = "Task_Close" VALUE = "0">
	</FORM>

	</BODY>
   
	<MvFUNCTIONRETURN VALUE = "{ l.ok }">
</MvFUNCTION>

<MvFUNCTION NAME = "TaskList_Draw_TopLevelTask" PARAMETERS = "task_number, id, params, label, completed, enabled" STANDARDOUTPUTLEVEL = "text, html, compresswhitespace">
	<MvIF EXPR = "{ NOT l.enabled }">
		<TR><TD>
			&nbsp;
		</TD><TD>
			<FONT FACE = "Arial, Helvetica" SIZE = "-1" COLOR = "gray">
			<MvEVAL EXPR = "{ Decimal2Roman( l.task_number ) }">.
			</FONT>
		</TD><TD COLSPAN = 2>
			<FONT FACE = "Arial, Helvetica" SIZE = "-1" COLOR = "gray">
			<MvEVAL EXPR = "{ encodeentities( l.label ) }">
			</FONT>
		</TD></TR>
	<MvELSE>
		<MvIF EXPR = "{ g.Current_Task EQ l.id }">
			<TR><TD>
				<IMG SRC = "{ g.AdminGraphics_Path $ 'right.gif' }" BORDER = 0>
			</TD><TD>
				<FONT FACE = "Arial, Helvetica" SIZE = "-1">
				<B><MvEVAL EXPR = "{ Decimal2Roman( l.task_number ) }">.</B>
				</FONT>
			</TD><TD COLSPAN = 2>
				<FONT FACE = "Arial, Helvetica" SIZE = "-1">
				<B><A HREF = "{ g.sessionurl $ l.params }" TARGET = "Task" ONCLICK = "{ 'SetCurrent( \'' $ l.id $ '\', '' )' }"><MvEVAL EXPR = "{ encodeentities( l.label ) }"></A></B>
				</FONT>
			</TD></TR>
		<MvELSE>
			<MvIF EXPR = "{ l.completed }">
				<TR><TD>
					<MvLOCALIZED NAME = "l.alt" ID = "MER-STP-AD-00022">
						<MvLOCALIZED-TEXT LANGUAGE = "en-US">Completed</MvLOCALIZED-TEXT>
					</MvLOCALIZED>
					<IMG SRC = "{ g.AdminGraphics_Path $ 'check.gif' }" BORDER = 0 ALT = "{ l.alt }">
				</TD><TD>
					<FONT FACE = "Arial, Helvetica" SIZE = "-1">
					<MvEVAL EXPR = "{ Decimal2Roman( l.task_number ) }">.
					</FONT>
				</TD><TD COLSPAN = 2>
					<FONT FACE = "Arial, Helvetica" SIZE = "-1">
					<A HREF = "{ g.sessionurl $ l.params }" TARGET = "Task" ONCLICK = "{ 'SetCurrent( \'' $ l.id $ '\', '' )' }"><MvEVAL EXPR = "{ encodeentities( l.label ) }"></A>
					</FONT>
				</TD></TR>
			<MvELSE>
				<TR><TD>
					&nbsp;
				</TD><TD>
					<FONT FACE = "Arial, Helvetica" SIZE = "-1">
					<MvEVAL EXPR = "{ Decimal2Roman( l.task_number ) }">.
					</FONT>
				</TD><TD COLSPAN = 2>
					<FONT FACE = "Arial, Helvetica" SIZE = "-1">
					<MvIF EXPR = "{ len( l.params ) }">
						<A HREF = "{ g.sessionurl $ l.params }" TARGET = "Task" ONCLICK = "{ 'SetCurrent( \'' $ l.id $ '\', '' )' }"><MvEVAL EXPR = "{ encodeentities( l.label ) }"></A>
					<MvELSE>
						<MvEVAL EXPR = "{ encodeentities( l.label ) }">
					</MvIF>
					</FONT>
				</TD></TR>
			</MvIF>
		</MvIF>
	</MvIF>
	
	<MvFUNCTIONRETURN VALUE = "{ l.task_number + 1 }">
</MvFUNCTION>

<MvFUNCTION NAME = "TaskList_Draw_StoreTask" PARAMETERS = "task_number, id, params, label, completed, enabled" STANDARDOUTPUTLEVEL = "text, html, compresswhitespace">
	<MvIF EXPR = "{ NOT l.enabled }">
		<TR><TD>
			&nbsp;
		</TD><TD>
			&nbsp;
		</TD><TD>
			<FONT FACE = "Arial, Helvetica" SIZE = "-1" COLOR = "gray">
			<MvEVAL EXPR = "{ l.task_number }">.
			</FONT>
		</TD><TD>
			<FONT FACE = "Arial, Helvetica" SIZE = "-1" COLOR = "gray">
			<MvEVAL EXPR = "{ encodeentities( l.label ) }">
			</FONT>
		</TD></TR>
	<MvELSE>
		<MvIF EXPR = "{ ( g.Store_Code EQ Stores.d.code ) AND ( g.Current_Task EQ l.id ) }">
			<TR><TD>
				&nbsp;
			</TD><TD>
				<IMG SRC = "{ g.AdminGraphics_Path $ 'right.gif' }" BORDER = 0>
			</TD><TD>
				<FONT FACE = "Arial, Helvetica" SIZE = "-1">
				<B><MvEVAL EXPR = "{ l.task_number }">.</B>
				</FONT>
			</TD><TD>
				<FONT FACE = "Arial, Helvetica" SIZE = "-1">
				<B><A HREF = "{ g.sessionurl $ l.params }" TARGET = "Task" ONCLICK = "{ 'SetCurrent( \'' $ l.id $ '\',\'' $ encodeattribute( Stores.d.code ) $ '\' );' }"><MvEVAL EXPR = "{ encodeentities( l.label ) }"></A></B>
				</FONT>
			</TD></TR>
		<MvELSE>
			<MvIF EXPR = "{ l.completed }">
				<TR><TD>
					&nbsp;
				</TD><TD>
					<MvLOCALIZED NAME = "l.alt" ID = "MER-STP-AD-00023">
						<MvLOCALIZED-TEXT LANGUAGE = "en-US">Completed</MvLOCALIZED-TEXT>
					</MvLOCALIZED>
					<IMG SRC = "{ g.AdminGraphics_Path $ 'check.gif' }" BORDER = 0 ALT = "{ l.alt }">
				</TD><TD>
					<FONT FACE = "Arial, Helvetica" SIZE = "-1">
					<MvEVAL EXPR = "{ l.task_number }">.
					</FONT>
				</TD><TD>
					<FONT FACE = "Arial, Helvetica" SIZE = "-1">
					<A HREF = "{ g.sessionurl $ l.params }" TARGET = "Task" ONCLICK = "{ 'SetCurrent( \'' $ l.id $ '\',\'' $ encodeattribute( Stores.d.code ) $ '\' );' }"><MvEVAL EXPR = "{ encodeentities( l.label ) }"></A>
					</FONT>
				</TD></TR>
			<MvELSE>
				<TR><TD>
					&nbsp;
				</TD><TD>
					&nbsp;
				</TD><TD>
					<FONT FACE = "Arial, Helvetica" SIZE = "-1">
					<MvEVAL EXPR = "{ l.task_number }">.
					</FONT>
				</TD><TD>
					<FONT FACE = "Arial, Helvetica" SIZE = "-1">
					<MvIF EXPR = "{ len( l.params ) }">
						<A HREF = "{ g.sessionurl $ l.params }" TARGET = "Task" ONCLICK = "{ 'SetCurrent( \'' $ l.id $ '\',\'' $ encodeattribute( Stores.d.code ) $ '\' );' }"><MvEVAL EXPR = "{ encodeentities( l.label ) }"></A>
					<MvELSE>
						<MvEVAL EXPR = "{ encodeentities( l.label ) }">
					</MvIF>
					</FONT>
				</TD></TR>
			</MvIF>
		</MvIF>
	</MvIF>
	
	<MvFUNCTIONRETURN VALUE = "{ l.task_number + 1 }">
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Screen_Main" PARAMETERS = "" STANDARDOUTPUTLEVEL = "">
   <MvFUNCTIONRETURN VALUE = 1>
</MvFUNCTION>

<MvFUNCTION NAME = "Simple_Navigation" STANDARDOUTPUTLEVEL = "text, html, compresswhitespace">
	<MvASSIGN NAME = "l.ok" VALUE = 1>	

	<MvLOCALIZED NAME = "l.label" ID = "MER-STP-AD-00006">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Switch to Simple Administration</MvLOCALIZED-TEXT>
	</MvLOCALIZED>

	<MvDO FILE = "{ '../../' $g.Filename_Admin }" NAME = "l.ok" VALUE = "{ LeftNavigation_Dot( 0, 'STP_SWMD=on', '_top', l.label ) }">

	<MvFUNCTIONRETURN VALUE = 1>
</MvFUNCTION>

<MvFUNCTION NAME = "Decimal2Roman" PARAMETERS = "decimal">
	<MvASSIGN NAME = "l.roman"		VALUE = "none">

	<MvIF EXPR = "{ l.decimal }">
		<MvASSIGN NAME = "l.thousands_roman"	VALUE = "">
		<MvASSIGN NAME = "l.hundreds_roman"		VALUE = "">
		<MvASSIGN NAME = "l.tens_roman"			VALUE = "">
		<MvASSIGN NAME = "l.ones_roman"			VALUE = "">

		<MvASSIGN NAME = "l.thousands"	VALUE = "{ int( l.decimal / 1000 ) }">
		<MvASSIGN NAME = "l.hundreds"	VALUE = "{ int( ( l.decimal MOD 1000 ) / 100 ) }">
		<MvASSIGN NAME = "l.tens"		VALUE = "{ int( ( l.decimal MOD 100 ) / 10 ) }">
		<MvASSIGN NAME = "l.ones"		VALUE = "{ l.decimal - ( l.thousands * 1000 ) - ( l.hundreds * 100 ) - ( l.tens * 10 ) }">

		<MvASSIGN NAME = "l.pos" VALUE = 0>
		<MvWHILE EXPR = "{ l.pos LT l.thousands }">
			<MvASSIGN NAME = "l.thousands_roman" VALUE = "{ l.thousands_roman $ 'M' }">
			<MvASSIGN NAME = "l.pos" VALUE = "{ l.pos + 1 }">
		</MvWHILE>

		<MvIF EXPR = "{ l.hundreds EQ 1 }">	<MvASSIGN NAME = "l.hundreds_roman"	VALUE = "C">	</MvIF>
		<MvIF EXPR = "{ l.hundreds EQ 2 }">	<MvASSIGN NAME = "l.hundreds_roman"	VALUE = "CC">	</MvIF>
		<MvIF EXPR = "{ l.hundreds EQ 3 }">	<MvASSIGN NAME = "l.hundreds_roman"	VALUE = "CCC">	</MvIF>
		<MvIF EXPR = "{ l.hundreds EQ 4 }">	<MvASSIGN NAME = "l.hundreds_roman"	VALUE = "CD">	</MvIF>
		<MvIF EXPR = "{ l.hundreds EQ 5 }">	<MvASSIGN NAME = "l.hundreds_roman"	VALUE = "D">	</MvIF>
		<MvIF EXPR = "{ l.hundreds EQ 6 }">	<MvASSIGN NAME = "l.hundreds_roman"	VALUE = "DC">	</MvIF>
		<MvIF EXPR = "{ l.hundreds EQ 7 }">	<MvASSIGN NAME = "l.hundreds_roman"	VALUE = "DCC">	</MvIF>
		<MvIF EXPR = "{ l.hundreds EQ 8 }">	<MvASSIGN NAME = "l.hundreds_roman"	VALUE = "DCCC">	</MvIF>
		<MvIF EXPR = "{ l.hundreds EQ 9 }">	<MvASSIGN NAME = "l.hundreds_roman"	VALUE = "CM">	</MvIF>

		<MvIF EXPR = "{ l.tens EQ 1 }">		<MvASSIGN NAME = "l.tens_roman"		VALUE = "X">	</MvIF>
		<MvIF EXPR = "{ l.tens EQ 2 }">		<MvASSIGN NAME = "l.tens_roman"		VALUE = "XX">	</MvIF>
		<MvIF EXPR = "{ l.tens EQ 3 }">		<MvASSIGN NAME = "l.tens_roman"		VALUE = "XXX">	</MvIF>
		<MvIF EXPR = "{ l.tens EQ 4 }">		<MvASSIGN NAME = "l.tens_roman"		VALUE = "XL">	</MvIF>
		<MvIF EXPR = "{ l.tens EQ 5 }">		<MvASSIGN NAME = "l.tens_roman"		VALUE = "L">	</MvIF>
		<MvIF EXPR = "{ l.tens EQ 6 }">		<MvASSIGN NAME = "l.tens_roman"		VALUE = "LX">	</MvIF>
		<MvIF EXPR = "{ l.tens EQ 7 }">		<MvASSIGN NAME = "l.tens_roman"		VALUE = "LXX">	</MvIF>
		<MvIF EXPR = "{ l.tens EQ 8 }">		<MvASSIGN NAME = "l.tens_roman"		VALUE = "LXXX">	</MvIF>
		<MvIF EXPR = "{ l.tens EQ 9 }">		<MvASSIGN NAME = "l.tens_roman"		VALUE = "XC">	</MvIF>

		<MvIF EXPR = "{ l.ones EQ 1 }">		<MvASSIGN NAME = "l.ones_roman"		VALUE = "I">	</MvIF>
		<MvIF EXPR = "{ l.ones EQ 2 }">		<MvASSIGN NAME = "l.ones_roman"		VALUE = "II">	</MvIF>
		<MvIF EXPR = "{ l.ones EQ 3 }">		<MvASSIGN NAME = "l.ones_roman"		VALUE = "III">	</MvIF>
		<MvIF EXPR = "{ l.ones EQ 4 }">		<MvASSIGN NAME = "l.ones_roman"		VALUE = "IV">	</MvIF>
		<MvIF EXPR = "{ l.ones EQ 5 }">		<MvASSIGN NAME = "l.ones_roman"		VALUE = "V">	</MvIF>
		<MvIF EXPR = "{ l.ones EQ 6 }">		<MvASSIGN NAME = "l.ones_roman"		VALUE = "VI">	</MvIF>
		<MvIF EXPR = "{ l.ones EQ 7 }">		<MvASSIGN NAME = "l.ones_roman"		VALUE = "VII">	</MvIF>
		<MvIF EXPR = "{ l.ones EQ 8 }">		<MvASSIGN NAME = "l.ones_roman"		VALUE = "VIII">	</MvIF>
		<MvIF EXPR = "{ l.ones EQ 9 }">		<MvASSIGN NAME = "l.ones_roman"		VALUE = "IX">	</MvIF>

		<MvASSIGN NAME = "l.roman" VALUE = "{ l.thousands_roman $ l.hundreds_roman $ l.tens_roman $ l.ones_roman }">
	</MvIF>

	<MvFUNCTIONRETURN VALUE = "{ l.roman }">
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Screen_Welcome" STANDARDOUTPUTLEVEL = "text,html,compresswhitespace">
	<HEAD>
	<MvIF EXPR = "{ g.Secure }">
		<BASE HREF = "{ g.secure_baseurl }">
	<MvELSE>
		<BASE HREF = "{ g.baseurl }">
	</MvIF>

	<MvDO FILE = "{ g.Module_Admin }" NAME = "l.javascript" VALUE = "{ JavaScript_SetVariables( 'g', 'sessionurl' ) }">
	<MvEVAL EXPR = "{ l.javascript }">
	<SCRIPT LANGUAGE = "JavaScript">
<!--
function PopupNote( id, store_code )
{
	if( store_code == '' ) {
		window.open( sessionurl + 'Screen=DNOT&Note_ID=' + id, 'Note', 'toolbar=no,location=no,directories=no,status=no,scrollbars=yes,resizable=yes,copyhistory=no,width=600,height=400' ).focus();
	}
	else {
		window.open( sessionurl + 'Screen=NOTE&Store_Code=' + store_code + '&Note_ID=' + id, 'Note', 'toolbar=no,location=no,directories=no,status=no,scrollbars=yes,resizable=yes,copyhistory=no,width=600,height=400' ).focus();
	}
}
//-->
	</SCRIPT>
	</HEAD>

	<BODY BGCOLOR = "#ffffff" BACKGROUND = "{ 'graphics/' $ s.miva_language $ '/wizards/blade_bg.gif' }">
		<MvDO FILE = "{ g.Module_Root $ 'site/h_simple.mv' }">	
		<FORM ACTION = "{ g.sessionurl }" METHOD = "post">
		<INPUT TYPE = "hidden" NAME = "Screen" VALUE = "STPR">
		<INPUT TYPE = "hidden" NAME = "Store_Code" VALUE = "{ encodeentities( g.Store_Code ) }">
		<TABLE BORDER = 0 CELLPADDING = 2 CELLSPACING = 0 WIDTH = "100%">
			<TR><TD VALIGN = "top" ALIGN = "left">
				<FONT FACE = "Arial, Helvetica" SIZE = "-1">
				<MvIF EXPR = "{ Users.d.t_fails EQ 1 }">
					<MvLOCALIZED ID = "MER-STP-AD-00018">
						<MvLOCALIZED-TEXT LANGUAGE = "en-US">There was 1 failed login attempt since your last login.</MvLOCALIZED-TEXT>
					</MvLOCALIZED>
				<MvELSE>
					<MvLOCALIZED ID = "MER-QST-00011">
						<MvLOCALIZED-TOKEN NAME = "failed_logins" VALUE = "{ Users.d.t_fails }">
						<MvLOCALIZED-TEXT LANGUAGE = "en-US">There were %failed_logins% failed login attempts since your last login.</MvLOCALIZED-TEXT>
					</MvLOCALIZED>
				</MvIF>
				</FONT>
			</TD></TR>

			<TR><TD ALIGN = "left">
				&nbsp;
			</TD></TR>

			<TR><TD VALIGN = "top" ALIGN = "left" COLSPAN = 2>
				<FONT FACE = "Arial, Helvetica" SIZE = "-1">
				<MvLOCALIZED ID = "MER-STP-AD-00007">
					<MvLOCALIZED-TEXT LANGUAGE = "en-US">
						<P>
 						Welcome to Simple Administration!

						This interface leads you through a series of tasks to get your store up and running quickly, 
						and allowing you to become familiar with Miva Merchant. 
						The tasks on the left indicate your current task with an arrow, 
						and completed task with a checkmark. 
						A gray link indicates a task that is not available until an associated task has been completed. 
						At each task, a wizard loads and provides you with a basic description 
						of the essential features needed for your store to operate properly.
						</P>

						<P>
						To begin please press the continue button.
						</P>
					</MvLOCALIZED-TEXT>
				</MvLOCALIZED>					
				</FONT>
			</TD></TR>

			<TR><TD VALIGN = "top" ALIGN = "left" COLSPAN = 2>
				&nbsp;
			</TD></TR>

			<TR><TD VALIGN = "top" ALIGN = "right" COLSPAN = 2>
				<FONT FACE = "Arial, Helvetica" SIZE = "-1">
				<MvLOCALIZED ID = "MER-STP-AD-00008">
					<MvLOCALIZED-TEXT LANGUAGE = "en-US">
						<INPUT TYPE = "submit" NAME = "Null" VALUE = "Continue">
					</MvLOCALIZED-TEXT>
				</MvLOCALIZED>					
				</FONT>
			</TD></TR>

			<MvIF EXPR = "{ g.Admin_User_Administrator }">
				<TR><TD>
					&nbsp;
				</TD></TR>

				<TR><TD ALIGN = "left" VALIGN = "top" COLSPAN = 2>
					<TABLE BORDER = 0 CELLPADDING = 5 CELLSPACING = 0 WIDTH = "100%">
						<TR><TD BGCOLOR = "#cccccc" NOWRAP>
							<FONT FACE = "Arial, Helvetica" SIZE = "-1" COLOR = "#000000"><B>
							<MvLOCALIZED ID = "MER-STP-AD-00009">
								<MvLOCALIZED-TEXT LANGUAGE = "en-US">Domain Notifications</MvLOCALIZED-TEXT>
							</MvLOCALIZED>
							</B></FONT>
						</TD><TD ALIGN = "right" BGCOLOR = "#cccccc" WIDTH = "100%" NOWRAP>
							<FONT FACE = "Arial, Helvetica" SIZE = "-1" COLOR = "#000000">
							<A HREF = "{ g.sessionurl $ 'Screen=WLCM&Action=NOTL' }">
								<MvLOCALIZED ID = "MER-STP-AD-00024">
									<MvLOCALIZED-TEXT LANGUAGE = "en-US">Check For New Notifications Now</MvLOCALIZED-TEXT>
								</MvLOCALIZED>
							</A>
							</FONT>
						</TD></TR>


						<MvASSIGN NAME = "l.shown" VALUE = 0>
						<MvASSIGN NAME = "l.bgcolor" VALUE = "#ffffff">

						<MvDO FILE = "{ g.Module_Feature_NOT_DB }" NAME = "l.found" VALUE = "{ Notes_FindFirst_Domain() }">
						<MvWHILE EXPR = "{ l.found }">
							<MvASSIGN NAME = "l.shown" VALUE = "{ l.shown + 1 }">

							<TR><TD ALIGN = "left" BGCOLOR = "{ l.bgcolor }" VALIGN = "middle" COLSPAN = 2 NOWRAP>
								<FONT FACE = "Arial, Helvetica" SIZE = "-1">
								<MvEVAL EXPR = "{ '<A HREF = "JavaScript:PopupNote( \'' $ Notes.d.id $ '\',' $ '\'\' );">' $ Notes.d.label $ '</A>' }">
								</FONT>
							</TD></TR>

							<MvDO FILE = "{ g.Module_Feature_NOT_DB }" NAME = "l.found" VALUE = "{ Notes_FindNext_Domain() }">
						</MvWHILE>

						<MvIF EXPR = "{ NOT l.shown }">
							<TR><TD BGCOLOR = "#ffffff" COLSPAN = 2 NOWRAP>
								<FONT FACE = "Arial, Helvetica" SIZE = "-1"><I>
								<MvLOCALIZED ID = "MER-STP-AD-00010">
									<MvLOCALIZED-TEXT LANGUAGE = "en-US">No Current Notifications Present</MvLOCALIZED-TEXT>
								</MvLOCALIZED>
								</I></FONT>
							</TD></TR>
						</MvIF>
					</TABLE>
				</TD></TR>
			</MvIF>
			
			<TR><TD>
				&nbsp;
			</TD></TR>

			<MvASSIGN NAME = "l.store_count" VALUE = 0>

			<MvIF EXPR = "{ g.Admin_User_Administrator }">
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindFirst() }">
			<MvELSE>
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindFirst_User( g.Admin_User_ID ) }">
			</MvIF>

			<MvWHILE EXPR = "{ l.found }">
				<MvASSIGN NAME = "l.store_count" VALUE = "{ l.store_count + 1 }">
				<MvASSIGN NAME = "l.store" INDEX = "{ l.store_count }" MEMBER = "code" VALUE = "{ Stores.d.code }">

				<MvIF EXPR = "{ g.Admin_User_Administrator }">
					<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindNext() }">
				<MvELSE>
					<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindNext_User( g.Admin_User_ID ) }">
				</MvIF>
			</MvWHILE>

			<MvASSIGN NAME = "l.pos" VALUE = 1>
			<MvWHILE EXPR = "{ l.pos LE l.store_count }">
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.ok" VALUE = "{ Store_Open( l.store[ l.pos ]:code ) }">
				<MvIF EXPR = "{ l.ok }">
					<MvIF EXPR = "{ g.Admin_User_Administrator OR ( Stores.d.manager_id EQ g.Admin_User_ID ) }">
						<TR><TD ALIGN = "left" VALIGN = "top" COLSPAN = 2>
							<TABLE BORDER = 0 CELLPADDING = 5 CELLSPACING = 0 WIDTH = "100%">
								<TR><TD BGCOLOR = "#cccccc" NOWRAP>
									<FONT FACE = "Arial, Helvetica" SIZE = "-1" COLOR = "#000000"><B>
									<MvLOCALIZED ID = "MER-STP-AD-00011">
										<MvLOCALIZED-TOKEN NAME = "Store_Name" VALUE = "{ Stores.d.name }">
										<MvLOCALIZED-TEXT LANGUAGE = "en-US">Notifications for store: %Store_Name%</MvLOCALIZED-TEXT>
									</MvLOCALIZED>
									</B></FONT>
								</TD></TR>

								<MvASSIGN NAME = "l.shown" VALUE = 0>
								<MvASSIGN NAME = "l.bgcolor" VALUE = "#ffffff">

								<MvDO FILE = "{ g.Module_Feature_NOT_DB }" NAME = "l.found" VALUE = "{ Notes_FindFirst_Store() }">
								<MvWHILE EXPR = "{ l.found }">
									<MvASSIGN NAME = "l.shown" VALUE = "{ l.shown + 1 }">

									<TR><TD ALIGN = "left" BGCOLOR = "{ l.bgcolor }" VALIGN = "middle" NOWRAP>
										<FONT FACE = "Arial, Helvetica" SIZE = "-1">
										<MvEVAL EXPR = "{ '<A HREF = "JavaScript:PopupNote( \'' $ StoreNotes.d.id $ '\', \'' $ Stores.d.code $ '\' );">' $ StoreNotes.d.label $ '</A>' }">
										</FONT>
									</TD></TR>

									<MvDO FILE = "{ g.Module_Feature_NOT_DB }" NAME = "l.found" VALUE = "{ Notes_FindNext_Store() }">
								</MvWHILE>

								<MvIF EXPR = "{ NOT l.shown }">
									<TR><TD BGCOLOR = "#ffffff">
										<FONT FACE = "Arial, Helvetica" SIZE = "-1"><I>
										<MvLOCALIZED ID = "MER-STP-AD-00012">
											<MvLOCALIZED-TEXT LANGUAGE = "en-US">No Current Notifications Present</MvLOCALIZED-TEXT>
										</MvLOCALIZED>
										</I></FONT>
									</TD></TR>
								</MvIF>
							</TABLE>
						</TD></TR>
					</MvIF>

					<TR><TD>
						&nbsp;
					</TD></TR>

					<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.ok" VALUE = "{ Store_Close( l.store[ l.pos ]:code ) }">
					<MvASSIGN NAME = "l.pos" VALUE = "{ l.pos + 1 }">
				</MvIF>
			</MvWHILE>
		</TABLE>
		</FORM>

		<MvDO FILE = "{ g.Module_Root $ 'site/f_simple.mv' }">	
	</BODY>

	<MvFUNCTIONRETURN VALUE = 1>
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Screen_Reload" STANDARDOUTPUTLEVEL = "text,html,compresswhitespace">
	<HEAD>

	<MvIF EXPR = "{ g.Secure }">
		<BASE HREF = "{ g.secure_baseurl }">
	<MvELSE>
		<BASE HREF = "{ g.baseurl }">
	</MvIF>

	<MvDO FILE = "{ g.Module_Admin }" NAME = "l.javascript" VALUE = "{ JavaScript_SetVariables( 'g', 'Store_Code' ) }">
	<MvEVAL EXPR = "{ l.javascript }">
	<SCRIPT LANGUAGE = "JavaScript">
<!--
	function NextTask(url) {
		document.location.replace( url );
	}

	function FinishTask() {
		parent.TaskList.FinishCurrent(1, Store_Code, 1);
	}
//-->
	</SCRIPT>
	</HEAD>

	<BODY BGCOLOR = "#ffffff" BACKGROUND = "{ 'graphics/' $ s.miva_language $ '/wizards/blade_bg.gif' }" ONLOAD = "FinishTask();">
		<TABLE BORDER = 0 CELLPADDING = 2 CELLSPACING = 0 WIDTH = "100%">
			<TR><TD VALIGN = "top" ALIGN = "left" COLSPAN = 2>
				<FONT FACE = "Arial, Helvetica" SIZE = "-1">
				<MvLOCALIZED ID = "MER-STP-AD-00013">
					<MvLOCALIZED-TEXT LANGUAGE = "en-US">
						<P>
						Please wait while the screen reloads.
						</P>
					</MvLOCALIZED-TEXT>
				</MvLOCALIZED>					
				</FONT>
			</TD></TR>
		</TABLE>
	</BODY>

	<MvFUNCTIONRETURN VALUE = 1>
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Screen_Finished" STANDARDOUTPUTLEVEL = "text,html,compresswhitespace">
	<HEAD>
		<TITLE>Finished Screen</TITLE>

		<MvIF EXPR = "{ g.Secure }">
			<BASE HREF = "{ g.secure_baseurl }">
		<MvELSE>
			<BASE HREF = "{ g.baseurl }">
		</MvIF>
	</HEAD>

	<BODY BGCOLOR = "#ffffff" BACKGROUND = "{ 'graphics/' $ s.miva_language $ '/wizards/blade_bg.gif' }">
		<FORM ACTION = "{ g.sessionurl }" METHOD = "post" TARGET = "_top">
		<INPUT TYPE = "hidden" NAME = "STP_SWMD" VALUE = "off">
		
		<TABLE BORDER = 0 CELLPADDING = 2 CELLSPACING = 0 WIDTH = "100%">
			<TR><TD VALIGN = "top" ALIGN = "left" COLSPAN = 2>
				<FONT FACE = "Arial, Helvetica" SIZE = "-1">
				<MvLOCALIZED ID = "MER-STP-AD-00014">
					<MvLOCALIZED-TEXT LANGUAGE = "en-US">
						<P>
						Congratulations! 
						You have completed all the tasks necessary to put your store online, up and running on the Internet.
						</P>
						
						<P>
						If you want to set up additional features before putting your store online, 
						click the button below to go to Advanced Administration. 
						If you want to add to or modify a completed task, click on that task now. (You can repeat completed tasks as many times as you want.)
						</P>
					</MvLOCALIZED-TEXT>
				</MvLOCALIZED>					
				</FONT>
			</TD></TR>

			<TR><TD VALIGN = "top" ALIGN = "left" COLSPAN = 2>
				&nbsp;
			</TD></TR>

			<TR><TD VALIGN = "top" ALIGN = "left" COLSPAN = 2>
				<FONT FACE = "Arial, Helvetica" SIZE = "-1">
				<MvLOCALIZED ID = "MER-STP-AD-00015">
					<MvLOCALIZED-TEXT LANGUAGE = "en-US">
						<INPUT TYPE = "submit" NAME = "Null" VALUE = "Switch To Advanced Administration">
					</MvLOCALIZED-TEXT>
				</MvLOCALIZED>					
				</FONT>
			</TD></TR>
		</TABLE>
		</FORM>
	</BODY>

	<MvFUNCTIONRETURN VALUE = 1>
</MvFUNCTION>

<MvFUNCTION NAME = "FindFirst_Task_Notcompleted" STANDARDOUTPUTLEVEL = "">
	<MvASSIGN NAME = "l.found" VALUE = 0>
	<MvIF EXPR = "{ g.Admin_User_Administrator }">
		<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ FindFirst_DomainTask_NotCompleted() }">
	</MvIF>

	<MvIF EXPR = "{ NOT l.found }">
		<MvIF EXPR = "{ g.Admin_User_Administrator }">
			<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindFirst() }">
		<MvELSE>
			<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindFirst_User( g.Admin_User_ID ) }">
		</MvIF>

		<MvWHILE EXPR = "{ l.store_found }">
			<MvDO FILE = "{ g.Module_Admin }" NAME = "l.ok" VALUE = "{ Admin_Open_Store( Stores.d.code ) }">
			<MvIF EXPR = "{ l.ok }">
				<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ FindFirst_StoreTask_NotCompleted() }">
				<MvIF EXPR = "{ l.found }">
					<MvASSIGN NAME = "g.Store_Code" VALUE = "{ Stores.d.code }">
					<MvASSIGN NAME = "g.Current_Store" VALUE = "{ Stores.d.code }">
					<MvWHILESTOP>
				</MvIF>
			</MvIF>

			<MvIF EXPR = "{ g.Admin_User_Administrator }">
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindNext() }">
			<MvELSE>
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindNext_User( g.Admin_User_ID ) }">
			</MvIF>
		</MvWHILE>
	</MvIF>

	<MvFUNCTIONRETURN VALUE = "{ l.found }">
</MvFUNCTION>

<MvFUNCTION NAME = "FindNext_Task_Notcompleted" PARAMETERS = "" STANDARDOUTPUTLEVEL = "">
	<MvASSIGN NAME = "l.found" VALUE = 0>

	<MvIF EXPR = "{ ( NOT g.Current_Store ) AND ( g.Admin_User_Administrator ) }">
		<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ FindNext_DomainTask_NotCompleted() }">
	</MvIF>

	<MvIF EXPR = "{ NOT l.found }">
		<MvIF EXPR = "{ NOT g.Current_Store }">
			<MvIF EXPR = "{ g.Admin_User_Administrator }">
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindFirst() }">
			<MvELSE>
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindFirst_User( g.Admin_User_ID ) }">
			</MvIF>

			<MvDO FILE = "{ g.Module_Admin }" NAME = "l.ok" VALUE = "{ Admin_Open_Store( Stores.d.code ) }">		
		<MvELSE>
			<MvASSIGN NAME = "l.store_found" VALUE = 1>
			<MvASSIGN NAME = "l.ok" VALUE = 1>
		</MvIF>

		<MvWHILE EXPR = "{ ( l.store_found ) AND ( l.ok ) }">
			<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ FindNext_StoreTask_NotCompleted() }">
			<MvIF EXPR = "{ l.found }">
				<MvASSIGN NAME = "g.Store_Code" VALUE = "{ Stores.d.code }">
				<MvASSIGN NAME = "g.Current_Store" VALUE = "{ Stores.d.code }">
				<MvWHILESTOP>
			</MvIF>

			<MvIF EXPR = "{ g.Admin_User_Administrator }">
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindNext() }">
			<MvELSE>
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.store_found" VALUE = "{ Store_FindNext_User( g.Admin_User_ID ) }">
			</MvIF>

			<MvDO FILE = "{ g.Module_Admin }" NAME = "l.ok" VALUE = "{ Admin_Open_Store( Stores.d.code ) }">		
		</MvWHILE>
	</MvIF>

	<MvFUNCTIONRETURN VALUE = "{ l.found }">
</MvFUNCTION>

<MvFUNCTION NAME = "TaskList_OpenStore" PARAMETERS = "" STANDARDOUTPUTLEVEL = "">
	<MvASSIGN NAME = "l.ok" VALUE = 1>
	
	<MvIF EXPR = "{ g.Store_Code }">
		<MvASSIGN NAME = "l.store_code" VALUE = "{ g.Store_Code }">
		<MvASSIGN NAME = "g.Store_Code" VALUE = "">
		<MvIF EXPR = "{ g.Admin_User_Administrator }">
			<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindFirst() }">
		<MvELSE>
			<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindFirst_User( g.Admin_User_ID ) }">
		</MvIF>

		<MvWHILE EXPR = "{ l.found }">
			<MvIF EXPR = "{ l.store_code EQ Stores.d.code }">
				<MvASSIGN NAME = "g.Store_Code" VALUE = "{ Stores.d.code }">

				<MvDO FILE = "{ g.Module_Admin }" NAME = "l.ok" VALUE = "{ Admin_Open_Store( Stores.d.code ) }">		
				<MvWHILESTOP>
			</MvIF>
		
			<MvIF EXPR = "{ g.Admin_User_Administrator }">
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindNext() }">
			<MvELSE>
				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindNext_User( g.Admin_User_ID ) }">
			</MvIF>
		</MvWHILE>
	</MvIF>

	<MvIF EXPR = "{ NOT g.Store_Code }">
		<MvIF EXPR = "{ g.Admin_User_Administrator }">
			<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindFirst() }">
		<MvELSE>
			<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindFirst_User( g.Admin_User_ID ) }">
		</MvIF>

		<MvIF EXPR = "{ l.found }">
			<MvDO FILE = "{ g.Module_Admin }" NAME = "l.ok" VALUE = "{ Admin_Open_Store( Stores.d.code ) }">		
			<MvIF EXPR = "{ l.ok }">
				<MvASSIGN NAME = "g.Store_Code" VALUE = "{ Stores.d.code }">
			</MvIF>
		</MvIF>
	</MvIF>

	<MvFUNCTIONRETURN VALUE = "{ l.ok }">
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Provision_Clear_Tasks" PARAMETERS = "version, store_code, delimiter, data" STANDARDOUTPUTLEVEL = "">
	<MvASSIGN NAME = "l.ok" VALUE = "1">

	<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ FindFirst_Task() }">
	<MvWHILE EXPR = "{ l.found }">
		<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ STP_Task_Delete( Tasks.d.id ) }">
	
		<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ FindNext_Task() }">
	</MvWHILE>

	<MvFUNCTIONRETURN VALUE = "{ l.ok }">
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Provision_Task_Delete" PARAMETERS = "version, store_code, delimiter, data" STANDARDOUTPUTLEVEL = "">
	<MvASSIGN NAME = "l.ok" VALUE = "1">

	<MvASSIGN NAME = "l.pos" VALUE = "1">
	<MvASSIGN NAME = "l.code" VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">

	<MvIF EXPR = "{ len( l.code ) EQ 0 }">
		<MvLOCALIZED NAME = "l.error" ID = "MER-STP-AD-00025">
			<MvLOCALIZED-TEXT LANGUAGE = "en-US">Code Required</MvLOCALIZED-TEXT>
		</MvLOCALIZED>

		<MvDO FILE = "{ g.Module_Library_Utilities }" NAME = "l.ok" VALUE = "{ Error( 'MER-STP-AD-00003', l.error ) }">
	</MvIF>
	
	<MvASSIGN NAME = "l.invalid_tasks" VALUE = "">

	<MvIF EXPR = "{ l.ok }">
		<MvWHILE EXPR = "{ len( l.code ) NE 0 }">
			<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ Find_TaskID( l.code ) }">
			<MvIF EXPR = "{ l.found }">
				<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.ok" VALUE = "{ STP_Task_Delete( l.found ) }">
			<MvELSE>
				<MvIF EXPR = "{ len( l.invalid_tasks ) }">
					<MvASSIGN NAME = "l.invalid_tasks" VALUE = "{ l.invalid_tasks $ ', ' $ l.code }">
				<MvELSE>
					<MvASSIGN NAME = "l.invalid_tasks" VALUE = "{ l.code }">
				</MvIF>
				
				<MvLOCALIZED NAME = "l.error" ID = "MER-STP-AD-00026">
					<MvLOCALIZED-TOKEN NAME = "tasks" VALUE = "{ encodeentities( l.invalid_tasks ) }">
					<MvLOCALIZED-TEXT LANGUAGE = "en-US">The following tasks could not be found: '%tasks%'</MvLOCALIZED-TEXT>
				</MvLOCALIZED>

				<MvDO FILE = "{ g.Module_Library_Utilities }" NAME = "l.ok" VALUE = "{ Error( 'MER-STP-AD-00004', l.error ) }">
			</MvIF>

			<MvASSIGN NAME = "l.pos" VALUE = "{ l.pos + 1 }">
			<MvASSIGN NAME = "l.code" VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
		</MvWHILE>
	</MvIF>

	<MvFUNCTIONRETURN VALUE = "{ l.ok }">
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Provision_Add_Update_Task" PARAMETERS = "version, store_code, delimiter, data" STANDARDOUTPUTLEVEL = "">
	<MvASSIGN NAME = "l.ok" VALUE = "1">
	
	<MvASSIGN NAME = "l.pos" 			VALUE = "1">
	<MvASSIGN NAME = "l.code" 			VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.parent_code" 	VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.module" 		VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.label" 			VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.level" 			VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.params" 		VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.priv" 			VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.view" 			VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.add" 			VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.modify" 		VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.delete" 		VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.completed" 		VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" 			VALUE = "{ l.pos + 1 }">

	<MvIF EXPR = "{ len( l.code ) EQ 0 }">
		<MvLOCALIZED NAME = "l.error" ID = "MER-STP-AD-00016">
			<MvLOCALIZED-TEXT LANGUAGE = "en-US">
				Code Required
			</MvLOCALIZED-TEXT>
		</MvLOCALIZED>
		<MvDO FILE = "{ g.Module_Library_Utilities }" NAME = "l.ok" VALUE = "{ Error( 'MER-STP-AD-00001', l.error ) }">
	</MvIF>
	
	<MvASSIGN NAME = "l.level" 			VALUE = "{ toupper( l.level ) }">
	<MvASSIGN NAME = "l.priv" 			VALUE = "{ toupper( l.priv ) }">

	<MvIF EXPR = "{ ( l.level NE 'D' ) OR ( l.level NE 'S' ) }">
		<MvLOCALIZED NAME = "l.error" ID = "MER-STP-AD-00027">
			<MvLOCALIZED-TEXT LANGUAGE = "en-US">Invalid task level specified</MvLOCALIZED-TEXT>
		</MvLOCALIZED>
		<MvDO FILE = "{ g.Module_Library_Utilities }" NAME = "l.ok" VALUE = "{ Error( 'MER-STP-AD-00005', l.error ) }">
	</MvIF>

	<MvIF EXPR = "{ len( l.parent_code ) }">
		<MvIF EXPR = "{ l.parent_code EQ '#COMMENT#' }">
			<MvASSIGN NAME = "l.parent_id" VALUE = "9999999999">
		<MvELSE>
			<MvIF EXPR = "{ l.parent_code EQ '#NONE#' }">
				<MvASSIGN NAME = "l.parent_id" VALUE = "0">
			<MvELSE>
				<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.parent_id" VALUE = "{ Find_TaskID( l.parent_code ) }">
			</MvIF>
		</MvIF>
	<MvELSE>
		<MvASSIGN NAME = "l.parent_id" VALUE = "0">
	</MvIF>

	<MvIF EXPR = "{ len( l.view ) }">
		<MvDO FILE = "{ g.Module_Feature_PRV_AD }" NAME = "l.view" VALUE = "{ PRV_Parse_Boolean( l.view ) }">
	</MvIF>

	<MvIF EXPR = "{ len( l.add ) }">
		<MvDO FILE = "{ g.Module_Feature_PRV_AD }" NAME = "l.add" VALUE = "{ PRV_Parse_Boolean( l.add ) }">
	</MvIF>

	<MvIF EXPR = "{ len( l.modify ) }">
		<MvDO FILE = "{ g.Module_Feature_PRV_AD }" NAME = "l.modify" VALUE = "{ PRV_Parse_Boolean( l.modify ) }">
	</MvIF>

	<MvIF EXPR = "{ len( l.delete ) }">
		<MvDO FILE = "{ g.Module_Feature_PRV_AD }" NAME = "l.delete" VALUE = "{ PRV_Parse_Boolean( l.delete ) }">
	</MvIF>

	<MvIF EXPR = "{ len( l.completed ) }">
		<MvDO FILE = "{ g.Module_Feature_PRV_AD }" NAME = "l.completed" VALUE = "{ PRV_Parse_Boolean( l.completed ) }">
	</MvIF>

	<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ Find_TaskID( l.code ) }">

	<MvIF EXPR = "{ l.found }">
		<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.ok" VALUE = "{ Task_Update( l.found, l.code, l.parent_id, l.module, l.label, l.level, l.params, l.priv, l.view, l.add, l.modify, l.delete, l.completed ) }">
	<MvELSE>
		<MvIF EXPR = "{ l.level EQ 'D' }">
			<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.ok" VALUE = "{ Task_Insert_PRV( l.code, l.parent_id, l.module, l.label, l.params, l.completed ) }">
		<MvELSE>
			<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.ok" VALUE = "{ Task_Insert( l.code, l.parent_id, l.module, l.label, l.params, 'S', l.priv, l.view, l.add, l.modify, l.delete, l.completed ) }">
			<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindFirst() }">
			<MvWHILE EXPR = "{ l.ok AND l.found }">
				<MvDO FILE = "{ g.Module_Admin }" NAME = "l.ok" VALUE = "{ Admin_Open_Store( Stores.d.code ) }">
				<MvIF EXPR = "{ l.ok }">
					<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.ok" VALUE = "{ Insert_Store_Tasks( Tasks.d.id, l.completed ) }">
				</MvIF>

				<MvDO FILE = "{ g.Module_Library_DB }" NAME = "l.found" VALUE = "{ Store_FindNext() }">
			</MvWHILE>
		</MvIF>		
	</MvIF>

	<MvFUNCTIONRETURN VALUE = "{ l.ok }">
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Provision_StoreTask_Completed" PARAMETERS = "version, store_code, delimiter, data" STANDARDOUTPUTLEVEL = "">
	<MvASSIGN NAME = "l.ok" VALUE = "1">

	<MvASSIGN NAME = "l.pos" VALUE = "1">
	<MvASSIGN NAME = "l.code" VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" VALUE = "{ l.pos + 1 }">
	<MvASSIGN NAME = "l.completed" VALUE = "{ ltrim( rtrim( gettoken( l.data, l.delimiter, l.pos ) ) ) }">
	<MvASSIGN NAME = "l.pos" VALUE = "{ l.pos + 1 }">

	<MvIF EXPR = "{ len( l.code ) EQ 0 }">
		<MvLOCALIZED NAME = "l.error" ID = "MER-STP-AD-00028">
			<MvLOCALIZED-TEXT LANGUAGE = "en-US">
				Code Required
			</MvLOCALIZED-TEXT>
		</MvLOCALIZED>

		<MvDO FILE = "{ g.Module_Library_Utilities }" NAME = "l.ok" VALUE = "{ Error( 'MER-STP-AD-00001', l.error ) }">
	</MvIF>
	
	<MvIF EXPR = "{ len( l.store_code ) EQ 0 }">
		<MvLOCALIZED NAME = "l.error" ID = "MER-STP-AD-00029">
			<MvLOCALIZED-TEXT LANGUAGE = "en-US">
				Store Code is required
			</MvLOCALIZED-TEXT>
		</MvLOCALIZED>

		<MvDO FILE = "{ g.Module_Library_Utilities }" NAME = "l.ok" VALUE = "{ Error( 'MER-STP-AD-00006', l.error ) }">
	</MvIF>

	<MvIF EXPR = "{ len( l.completed ) }">
		<MvDO FILE = "{ g.Module_Feature_PRV_AD }" NAME = "l.completed" VALUE = "{ PRV_Parse_Boolean( l.completed ) }">
	</MvIF>

	<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.found" VALUE = "{ Find_TaskID( l.code ) }">

	<MvIF EXPR = "{ l.ok AND l.found }">
		<MvDO FILE = "{ g.Module_Feature_STP_DB }" NAME = "l.ok" VALUE = "{ PRV_StoreTask_MarkCompleted( l.found, l.store_code, l.completed ) }">
	<MvELSE>
		<MvLOCALIZED NAME = "l.error" ID = "MER-STP-AD-00030">
				<MvLOCALIZED-TOKEN NAME = "code" VALUE = "{ encodeentities( l.code ) }">
				<MvLOCALIZED-TEXT LANGUAGE = "en-US">Task '%code%' not found</MvLOCALIZED-TEXT>
		</MvLOCALIZED>

		<MvDO FILE = "{ g.Module_Library_Utilities }" NAME = "l.ok" VALUE = "{ Error( 'MER-STP-AD-00007', l.error ) }">
	</MvIF>

	<MvFUNCTIONRETURN VALUE = "{ l.ok }">
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Upgrade_Setup_State" STANDARDOUTPUTLEVEL = "">
	<MvCOMMENT>
	|
	| tasks.dbf
	| *********************************************************************************************
	|
	| 4.00: Created
	|
	</MvCOMMENT>

	<MvDO FILE = "{ g.Module_Upgrade }" NAME = "l.null" VALUE = "{ Domain_DB_New_Insert( 4.00, 'tasks.dbf',
								'id 		NUMBER,
								 parent_id	NUMBER,
								 code		CHAR( 50 ),
								 module		CHAR( 50 ),
								 params		CHAR( 254 ),
								 label		CHAR( 100 ),
								 level		CHAR( 1 ),
								 completed	BOOL,
								 privilege	CHAR( 5 ),
								 view		BOOL,
								 add		BOOL,
								 modify		BOOL,
								 delete		BOOL' ) }">

	<MvDO FILE = "{ g.Module_Upgrade }" NAME = "l.null" VALUE = "{ Domain_DB_Index_Insert( 4.00, 'Tasks', 'tasks.dbf', 'task_id.mvx', 'Tasks.d.id', 'unique, ascending' ) }">
	<MvDO FILE = "{ g.Module_Upgrade }" NAME = "l.null" VALUE = "{ Domain_DB_Index_Insert( 4.00, 'Tasks', 'tasks.dbf', 'task_lid.mvx', 'toupper( Tasks.d.level ) $ \':\' $ padl( Tasks.d.id, 10, 0 )', 'unique, ascending' ) }">
	<MvDO FILE = "{ g.Module_Upgrade }" NAME = "l.null" VALUE = "{ Domain_DB_Index_Insert( 4.00, 'Tasks', 'tasks.dbf', 'task_cod.mvx', 'Tasks.d.code', 'nounique, ascending' ) }">

	<MvDO FILE = "{ g.Module_Upgrade }" NAME = "l.null" VALUE = "{ Domain_Key_New_Insert( 4.00, 'Tasks', 11 ) }">


	<MvCOMMENT>
	|
	| stasks.dbf
	| *********************************************************************************************
	|
	| 4.00: Created
	|
	</MvCOMMENT>

	<MvDO FILE = "{ g.Module_Upgrade }" NAME = "l.null" VALUE = "{ Store_DB_New_Insert( 4.00, 'stasks.dbf',
								'id 		NUMBER,
								 completed	BOOL' ) }">
	<MvDO FILE = "{ g.Module_Upgrade }" NAME = "l.null" VALUE = "{ Store_DB_Index_Insert( 4.00, 'StoreTasks', 'stasks.dbf', 'stsk_id.mvx', 'StoreTasks.d.id', 'unique, ascending' ) }">

</MvFUNCTION>

<MvFUNCTION NAME = "STP_Upgrade_Domain_DB_New_Tasks" STANDARDOUTPUTLEVEL = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "Code" 		VALUE = "CSTOR">
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "ParentID" 	VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "Module" 		VALUE = "cswizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00031">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Create Store Wizard</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "Level" 		VALUE = "D">
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "Privilege" 	VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "View" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "Add" 			VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "Modify" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "1" MEMBER = "Delete" 		VALUE = "">

	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "Code" 		VALUE = "CAWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "ParentID" 	VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "Module" 		VALUE = "cawizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00032">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Add Categories</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "Privilege" 	VALUE = "CTGY">
	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "Add" 			VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "Modify" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "2" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "Code" 		VALUE = "PAWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "ParentID" 	VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "Module" 		VALUE = "pawizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00033">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Add Products</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "Privilege" 	VALUE = "PROD">
	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "Add" 			VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "Modify" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "3" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "Code" 		VALUE = "ATWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "ParentID" 	VALUE = "3">
	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "Module" 		VALUE = "atwizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00034">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Add Attributes</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "Privilege" 	VALUE = "PROD">
	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "Add" 			VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "Modify" 		VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "4" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "Code" 		VALUE = "PCWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "ParentID" 	VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "Module" 		VALUE = "pcwizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00035">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Configure Payment</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "Privilege" 	VALUE = "PMNT">
	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "Add" 			VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "Modify" 		VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "5" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "Code" 		VALUE = "SHWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "ParentID" 	VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "Module" 		VALUE = "shwizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00036">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Configure Shipping</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "Privilege" 	VALUE = "SHIP">
	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "Add" 			VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "Modify" 		VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "6" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "Code" 		VALUE = "AFWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "ParentID" 	VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "Module" 		VALUE = "afwizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00037">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Affiliate Configuration</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "Privilege" 	VALUE = "AFLT">
	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "Add" 			VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "Modify" 		VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "7" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "Code" 		VALUE = "AAWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "ParentID" 	VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "Module" 		VALUE = "aawizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00038">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Add Affiliates</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "Privilege" 	VALUE = "AFLT">
	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "Add" 			VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "Modify" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "8" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "Code" 		VALUE = "FCWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "ParentID" 	VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "Module" 		VALUE = "fcwizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00039">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Order Fulfillment Configuration</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "Privilege" 	VALUE = "FUFL">
	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "Add" 			VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "Modify" 		VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "9" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "Code" 		VALUE = "UIWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "ParentID" 	VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "Module" 		VALUE = "uiwizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00040">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Configure Look & Feel</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "Privilege" 	VALUE = "STOR">
	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "Add" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "Modify" 		VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "10" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "Code" 		VALUE = "STWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "ParentID" 	VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "Module" 		VALUE = "stwizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00041">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Configure Sales Tax</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "Privilege" 	VALUE = "STAX">
	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "Add" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "Modify" 		VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "11" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "Code" 		VALUE = "MPWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "ParentCode" 	VALUE = "CSTOR">
	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "Module" 		VALUE = "mmp_mswizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00042">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Miva Marketplace Sign Up Wizard</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "Privilege" 	VALUE = "PROD">
	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "Add" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "Modify" 		VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "12" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "Code" 		VALUE = "LPWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "ParentCode" 	VALUE = "MPWIZ">
	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "Module" 		VALUE = "mmp_lpwizard">
	<MvLOCALIZED NAME = "l.text" ID = "MER-STP-AD-00043">
		<MvLOCALIZED-TEXT LANGUAGE = "en-US">Miva Marketplace List Product Wizard</MvLOCALIZED-TEXT>
	</MvLOCALIZED>
	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "Label" 		VALUE = "{ l.text }">
	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "Params" 		VALUE = "">
	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "Level" 		VALUE = "S">
	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "Privilege" 	VALUE = "PROD">
	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "View" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "Add" 		VALUE = "0">
	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "Modify" 		VALUE = "1">
	<MvASSIGN NAME = "TaskList" 		INDEX = "13" MEMBER = "Delete" 		VALUE = "0">

	<MvASSIGN NAME = "l.count" VALUE = 1>
	<MvWHILE EXPR = "{ l.count LE '13' }">
		<MvASSIGN NAME = "Temporary.d.id" 			VALUE = "{ l.count }">
		<MvASSIGN NAME = "Temporary.d.parent_id" 	VALUE = "{ g.TaskList[ l.count ]:ParentID }">
		<MvASSIGN NAME = "Temporary.d.code" 		VALUE = "{ g.TaskList[ l.count ]:Code }">
		<MvASSIGN NAME = "Temporary.d.module" 		VALUE = "{ g.TaskList[ l.count ]:Module }">
		<MvASSIGN NAME = "Temporary.d.params" 		VALUE = "{ g.TaskList[ l.count ]:Params }">
		<MvASSIGN NAME = "Temporary.d.label" 		VALUE = "{ g.TaskList[ l.count ]:Label }">
		<MvASSIGN NAME = "Temporary.d.level" 		VALUE = "{ g.TaskList[ l.count ]:Level }">
		<MvASSIGN NAME = "Temporary.d.completed" 	VALUE = "">
		<MvASSIGN NAME = "Temporary.d.privilege" 	VALUE = "{ g.TaskList[ l.count ]:Privilege }">
		<MvASSIGN NAME = "Temporary.d.view" 		VALUE = "{ g.TaskList[ l.count ]:View }">
		<MvASSIGN NAME = "Temporary.d.add" 			VALUE = "{ g.TaskList[ l.count ]:Add }">
		<MvASSIGN NAME = "Temporary.d.modify" 		VALUE = "{ g.TaskList[ l.count ]:Modify }">
		<MvASSIGN NAME = "Temporary.d.delete" 		VALUE = "{ g.TaskList[ l.count ]:Delete }">

		<MvADD NAME = "Temporary">

		<MvASSIGN NAME = "l.count" VALUE = "{ l.count + 1 }">
	</MvWHILE>

	<MvFUNCTIONRETURN VALUE = 1>
</MvFUNCTION>

<MvFUNCTION NAME = "STP_Upgrade_Store_DB_New_StoreTasks" STANDARDOUTPUTLEVEL = "">
	<MvASSIGN NAME = "TaskList_Level" 		INDEX = "1" VALUE = "D">
	<MvASSIGN NAME = "TaskList_Level" 		INDEX = "2" VALUE = "S">
	<MvASSIGN NAME = "TaskList_Level" 		INDEX = "3" VALUE = "S">
	<MvASSIGN NAME = "TaskList_Level" 		INDEX = "4" VALUE = "S">
	<MvASSIGN NAME = "TaskList_Level" 		INDEX = "5" VALUE = "S">
	<MvASSIGN NAME = "TaskList_Level" 		INDEX = "6" VALUE = "S">
	<MvASSIGN NAME = "TaskList_Level" 		INDEX = "7" VALUE = "S">
	<MvASSIGN NAME = "TaskList_Level" 		INDEX = "8" VALUE = "S">
	<MvASSIGN NAME = "TaskList_Level" 		INDEX = "9" VALUE = "S">
	<MvASSIGN NAME = "TaskList_Level" 		INDEX = "10" VALUE = "S">
	<MvASSIGN NAME = "g.TaskList_Count" VALUE = "10">

	<MvASSIGN NAME = "l.count" VALUE = 1>
	<MvWHILE EXPR = "{ l.count LE g.TaskList_Count }">
		<MvIF EXPR = "{ toupper( g.TaskList_Level[ l.count ] EQ 'S' ) }">
			<MvASSIGN NAME = "Temporary.d.id" VALUE = "{ l.count }">
			<MvASSIGN NAME = "Temporary.d.completed" VALUE = "">

			<MvADD NAME = "Temporary">
		</MvIF>

		<MvASSIGN NAME = "l.count" VALUE = "{ l.count + 1 }">
	</MvWHILE>

	<MvFUNCTIONRETURN VALUE = 1>
</MvFUNCTION>



