<%
%>
<%
add_nocache_headers
asp_include "include/customer_variables.asp",false
asp_include "include/xtempl.asp",false
asp_include "classes/runnerpage.asp",false
filename = ""
status = ""
message = ""
mesClass = ""
usermessage = ""
error_happened = false
readavalues = false
Set keys = (CreateDictionary())
Set showValues = (CreateDictionary())
Set showRawValues = (CreateDictionary())
Set showFields = (CreateDictionary())
Set showDetailKeys = (CreateDictionary())
IsSaved = false
HaveData = true
popUpSave = false
doAssignment sessionPrefix,strTableName
onFly = false
if bValue(postvalue("onFly")) then
onFly = true
end if
if IsEqual(GetRequestValue(Request,"editType"),"inline") then
inlineadd = ADD_INLINE
else
if IsEqual(GetRequestValue(Request,"editType"),ADD_POPUP) then
inlineadd = ADD_POPUP
if (IsEqual(GetRequestValue(RequestForm(),"a"),"added") and IsEqual(postvalue("field"),"")) and IsEqual(postvalue("category"),"") then
popUpSave = true
end if
else
if IsEqual(GetRequestValue(Request,"editType"),"addmaster") then
inlineadd = ADD_MASTER
else
if bValue(onFly) then
inlineadd = ADD_ONTHEFLY
sessionPrefix = CSmartStr(strTableName) & "_add"
else
inlineadd = ADD_SIMPLE
end if
end if
end if
end if
if IsEqual(inlineadd,ADD_INLINE) then
templatefile = "customer_inline_add.htm"
else
templatefile = "customer_add.htm"
end if
doAssignmentByRef id,postvalue("id")
if IsEqual(asp_intval(id),0) then
id = 1
end if
if not bValue(Session(CSmartStr(sessionPrefix) & "_mastertable")) and bValue(postvalue("mastertable")) then
setArrElement Session,CSmartStr(sessionPrefix) & "_mastertable",postvalue("mastertable")
end if
Set xt = (CreateClass("Xtempl",0,Empty,Empty,Empty,Empty,Empty,Empty,Empty))
xt.assign_p2 "id",id
doAssignmentByRef auditObj,GetAuditObject(strTableName)
Set params = (CreateDictionary3("pageType",PAGE_ADD,"id",id,"mode",inlineadd))
setArrElement params,"calendar",true
setArrElement params,"tName",strTableName
setArrElement params,"strOriginalTableName",strOriginalTableName
setArrElement params,"menuTablesArr",menuTablesArr
setArrElementByRef params,"xt",xt
setArrElement params,"needSearchClauseObj",false
setArrElement params,"includes_js",includes_js
setArrElement params,"includes_jsreq",includes_jsreq
setArrElement params,"includes_css",includes_css
setArrElement params,"locale_info",locale_info
setArrElement params,"pageAddLikeInline",IsEqual(inlineadd,ADD_INLINE)
setArrElement params,"useTabsOnAdd",useTabsOnAdd(strTableName)
if bValue(ArrayElement(params,"useTabsOnAdd")) then
setArrElement params,"arrAddTabs",GetAddTabs(strTableName)
end if
Set pageObject = (CreateClass("RunnerPage",1,params,Empty,Empty,Empty,Empty,Empty,Empty))
doAssignment detailKeys,pageObject.detailKeysByM
doAssignmentByRef addFields,pageObject.getFieldsByPageType()
if IsEqual(inlineadd,ADD_SIMPLE) then
pageObject.addButtonHandlers
end if
doAssignmentByRef url_page,asp_substr(GetRequestValue(Request.ServerVariables,"SCRIPT_NAME"),CSmartDbl(asp_strrpos(GetRequestValue(Request.ServerVariables,"SCRIPT_NAME"),"/",empty))+1,12)
if (IsEqual(inlineadd,ADD_SIMPLE) or IsEqual(inlineadd,ADD_MASTER)) or IsEqual(inlineadd,ADD_POPUP) then
Set dpParams = (CreateDictionary())
if bValue(pageObject.isShowDetailTables) then
doAssignment ids,id
setArrElementN pageObject.jsSettings,CreateArray3("tableSettings",strTableName,"dpParams"),CreateDictionary2("tableNames",ArrayElement(dpParams,"strTableNames"),"ids",ArrayElement(dpParams,"ids"))
if IsEqual(inlineadd,ADD_SIMPLE) then
pageObject.AddJSFile_p1 "include/detailspreview"
end if
end if
end if
if bValue(eventObj.exists_p1("BeforeProcessAdd")) then
eventObj.BeforeProcessAdd_p1 conn
end if
if (IsEqual(inlineadd,ADD_SIMPLE) or IsEqual(inlineadd,ADD_MASTER)) or IsEqual(inlineadd,ADD_POPUP) then
if bValue(pageObject.captchaExists()) then
pageObject.doCaptchaCode
end if
end if
if IsEqual(GetRequestValue(RequestForm(),"a"),"added") then
Set afilename_values = (CreateDictionary())
Set avalues = (CreateDictionary())
Set blobfields = (CreateDictionary())
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_FirstName_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_FirstName_" & CSmartStr(id))
if bValue(FieldSubmitted("FirstName_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("FirstName",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "FirstName"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"FirstName",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_LastName_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_LastName_" & CSmartStr(id))
if bValue(FieldSubmitted("LastName_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("LastName",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "LastName"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"LastName",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_Salutation_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_Salutation_" & CSmartStr(id))
if bValue(FieldSubmitted("Salutation_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("Salutation",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "Salutation"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"Salutation",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_Position_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_Position_" & CSmartStr(id))
if bValue(FieldSubmitted("Position_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("Position",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "Position"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"Position",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_Organization_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_Organization_" & CSmartStr(id))
if bValue(FieldSubmitted("Organization_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("Organization",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "Organization"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"Organization",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_Adress1_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_Adress1_" & CSmartStr(id))
if bValue(FieldSubmitted("Adress1_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("Adress1",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "Adress1"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"Adress1",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_Adress2_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_Adress2_" & CSmartStr(id))
if bValue(FieldSubmitted("Adress2_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("Adress2",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "Adress2"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"Adress2",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_City_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_City_" & CSmartStr(id))
if bValue(FieldSubmitted("City_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("City",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "City"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"City",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_State_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_State_" & CSmartStr(id))
if bValue(FieldSubmitted("State_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("State",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "State"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"State",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_Country_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_Country_" & CSmartStr(id))
if bValue(FieldSubmitted("Country_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("Country",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "Country"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"Country",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_PostalCode_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_PostalCode_" & CSmartStr(id))
if bValue(FieldSubmitted("PostalCode_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("PostalCode",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "PostalCode"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"PostalCode",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_WorkPhone_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_WorkPhone_" & CSmartStr(id))
if bValue(FieldSubmitted("WorkPhone_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("WorkPhone",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "WorkPhone"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"WorkPhone",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_CellPhone_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_CellPhone_" & CSmartStr(id))
if bValue(FieldSubmitted("CellPhone_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("CellPhone",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "CellPhone"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"CellPhone",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_FaxNumber_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_FaxNumber_" & CSmartStr(id))
if bValue(FieldSubmitted("FaxNumber_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("FaxNumber",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "FaxNumber"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"FaxNumber",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_Email_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_Email_" & CSmartStr(id))
if bValue(FieldSubmitted("Email_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("Email",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "Email"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"Email",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_DateOfBirth_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_DateOfBirth_" & CSmartStr(id))
if bValue(FieldSubmitted("DateOfBirth_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("DateOfBirth",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "DateOfBirth"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"DateOfBirth",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_PassportNo_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_PassportNo_" & CSmartStr(id))
if bValue(FieldSubmitted("PassportNo_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("PassportNo",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "PassportNo"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"PassportNo",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_VisaNo_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_VisaNo_" & CSmartStr(id))
if bValue(FieldSubmitted("VisaNo_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("VisaNo",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "VisaNo"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"VisaNo",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_VisaStatus_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_VisaStatus_" & CSmartStr(id))
if bValue(FieldSubmitted("VisaStatus_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("VisaStatus",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "VisaStatus"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"VisaStatus",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_FinancialSponsor_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_FinancialSponsor_" & CSmartStr(id))
if bValue(FieldSubmitted("FinancialSponsor_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("FinancialSponsor",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "FinancialSponsor"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"FinancialSponsor",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_PaymentChoice_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_PaymentChoice_" & CSmartStr(id))
if bValue(FieldSubmitted("PaymentChoice_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("PaymentChoice",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "PaymentChoice"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"PaymentChoice",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_TravelDate_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_TravelDate_" & CSmartStr(id))
if bValue(FieldSubmitted("TravelDate_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("TravelDate",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "TravelDate"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"TravelDate",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_AirlineOrFlight_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_AirlineOrFlight_" & CSmartStr(id))
if bValue(FieldSubmitted("AirlineOrFlight_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("AirlineOrFlight",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "AirlineOrFlight"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"AirlineOrFlight",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_HowReferred_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_HowReferred_" & CSmartStr(id))
if bValue(FieldSubmitted("HowReferred_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("HowReferred",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "HowReferred"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"HowReferred",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_RegisterCID_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_RegisterCID_" & CSmartStr(id))
if bValue(FieldSubmitted("RegisterCID_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("RegisterCID",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "RegisterCID"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"RegisterCID",value
end if
end if
inlineAddOption = true
if bValue(inlineAddOption) then
doAssignmentByRef value,postvalue("value_EssayOrCV_" & CSmartStr(id))
doAssignmentByRef var_type,postvalue("type_EssayOrCV_" & CSmartStr(id))
if bValue(FieldSubmitted("EssayOrCV_" & CSmartStr(id))) then
doAssignmentByRef value,prepare_for_db("EssayOrCV",value,var_type,"","")
else
value = false
end if
if not (IsFalse(value)) then
if (bValue(0) and "EssayOrCV"="Password") and IsEqual(url_page,"admin_users_") then
doAssignmentByRef value,md5(value)
end if
setArrElement avalues,"EssayOrCV",value
end if
end if
failed_inline_add = false
GetCollectionBounds afilename_values,add_loopIdx2,add_loopMax2
do while add_loopIdx2<=add_loopMax2
akey = GetCollectionKey(afilename_values,add_loopIdx2)
doAssignment value,ArrayElement(afilename_values,akey)
setArrElement avalues,akey,value
add_loopIdx2=add_loopIdx2+1
loop
retval = true
if bValue(eventObj.exists_p1("BeforeAdd")) then
doAssignmentByRef retval,eventObj.BeforeAdd_p3(avalues,usermessage,bValue(inlineadd))
end if
if bValue(retval) and bValue(pageObject.isCaptchaOk) then
setArrElement Session,CSmartStr(strTableName) & "_count_captcha",CSmartDbl(Session(CSmartStr(strTableName) & "_count_captcha"))+1
if bValue(DoInsertRecord(strOriginalTableName,avalues,blobfields,id,pageObject)) then
IsSaved = true
if bValue(auditObj) or bValue(eventObj.exists_p1("AfterAdd")) then
GetCollectionBounds keys,add_loopIdx3,add_loopMax3
do while add_loopIdx3<=add_loopMax3
idx = GetCollectionKey(keys,add_loopIdx3)
doAssignment val,ArrayElement(keys,idx)
setArrElement avalues,idx,val
add_loopIdx3=add_loopIdx3+1
loop
end if
if bValue(auditObj) then
auditObj.LogAdd_p3 strTableName,avalues,keys
end if
if bValue(eventObj.exists_p1("AfterAdd")) then
eventObj.AfterAdd_p3 avalues,keys,bValue(inlineadd)
end if
if IsEqual(inlineadd,ADD_SIMPLE) or IsEqual(inlineadd,ADD_MASTER) then
Set permis = (CreateDictionary())
keylink = ""
k = 0
GetCollectionBounds keys,add_loopIdx4,add_loopMax4
do while add_loopIdx4<=add_loopMax4
idx = GetCollectionKey(keys,add_loopIdx4)
doAssignment val,ArrayElement(keys,idx)
if not IsEqual(k,0) then
keylink = CSmartStr(keylink) & "&"
end if
keylink = CSmartStr(keylink) & ((("editid" & CSmartStr(preInc(k))) & "=") & CSmartStr(htmlspecialchars(asp_rawurlencode(val))))
add_loopIdx4=add_loopIdx4+1
loop
doAssignmentByRef permis,pageObject.getPermissions()
if bValue(asp_count(keys)) then
message = CSmartStr(message) & ""
if bValue(GetTableData(strTableName,".edit",false)) and bValue(ArrayElement(permis,"edit")) then
message = CSmartStr(message) & ((((" ") & CSmartStr("Edit")) & " ")
end if
if bValue(GetTableData(strTableName,".view",false)) and bValue(ArrayElement(permis,"search")) then
message = CSmartStr(message) & ((((" ") & CSmartStr("View")) & " ")
end if
end if
mesClass = "mes_ok"
end if
else
if not IsEqual(inlineadd,ADD_INLINE) then
mesClass = "mes_not"
end if
end if
else
doAssignment message,usermessage
status = "DECLINED"
readavalues = true
end if
end if
message = ((("
") & CSmartStr(message)) & "
"
if (bValue(no_output_done()) and IsEqual(inlineadd,ADD_SIMPLE)) and bValue(IsSaved) then
setArrElement Session,"message",IIF(message,message,"")
asp_header ("Location: customer_" & CSmartStr(pageObject.getPageType())) & ".asp"
Response.End
end if
if IsEqual(inlineadd,ADD_MASTER) and bValue(IsSaved) then
setArrElement Session,"message",IIF(message,message,"")
end if
if IsEqual(inlineadd,ADD_SIMPLE) and not IsEmpty(Session("message")) then
doAssignment message,Session("message")
asp_unsetElement Session,"message"
end if
Set defvalues = (CreateDictionary())
if bValue(asp_array_key_exists("copyid1",Request)) or bValue(asp_array_key_exists("editid1",Request)) then
Set copykeys = (CreateDictionary())
if bValue(asp_array_key_exists("copyid1",Request)) then
setArrElement copykeys,"ID",postvalue("copyid1")
else
setArrElement copykeys,"ID",postvalue("editid1")
end if
doAssignmentByRef strWhere,KeyWhere(copykeys,"")
doAssignmentByRef strSQL,gSQLWhere(strWhere,"")
LogInfo strSQL
doAssignmentByRef rs,db_query(strSQL,conn)
doAssignmentByRef defvalues,db_fetch_array(rs)
if not bValue(defvalues) then
Set defvalues = (CreateDictionary())
end if
setArrElement defvalues,"ID",""
if bValue(eventObj.exists_p1("CopyOnLoad")) then
eventObj.CopyOnLoad_p2 defvalues,strWhere
end if
else
end if
if bValue(readavalues) then
setArrElement defvalues,"FirstName",ArrayElement(avalues,"FirstName")
setArrElement defvalues,"LastName",ArrayElement(avalues,"LastName")
setArrElement defvalues,"Salutation",ArrayElement(avalues,"Salutation")
setArrElement defvalues,"Position",ArrayElement(avalues,"Position")
setArrElement defvalues,"Organization",ArrayElement(avalues,"Organization")
setArrElement defvalues,"Adress1",ArrayElement(avalues,"Adress1")
setArrElement defvalues,"Adress2",ArrayElement(avalues,"Adress2")
setArrElement defvalues,"City",ArrayElement(avalues,"City")
setArrElement defvalues,"State",ArrayElement(avalues,"State")
setArrElement defvalues,"Country",ArrayElement(avalues,"Country")
setArrElement defvalues,"PostalCode",ArrayElement(avalues,"PostalCode")
setArrElement defvalues,"WorkPhone",ArrayElement(avalues,"WorkPhone")
setArrElement defvalues,"CellPhone",ArrayElement(avalues,"CellPhone")
setArrElement defvalues,"FaxNumber",ArrayElement(avalues,"FaxNumber")
setArrElement defvalues,"Email",ArrayElement(avalues,"Email")
setArrElement defvalues,"DateOfBirth",ArrayElement(avalues,"DateOfBirth")
setArrElement defvalues,"PassportNo",ArrayElement(avalues,"PassportNo")
setArrElement defvalues,"VisaNo",ArrayElement(avalues,"VisaNo")
setArrElement defvalues,"VisaStatus",ArrayElement(avalues,"VisaStatus")
setArrElement defvalues,"FinancialSponsor",ArrayElement(avalues,"FinancialSponsor")
setArrElement defvalues,"PaymentChoice",ArrayElement(avalues,"PaymentChoice")
setArrElement defvalues,"TravelDate",ArrayElement(avalues,"TravelDate")
setArrElement defvalues,"AirlineOrFlight",ArrayElement(avalues,"AirlineOrFlight")
setArrElement defvalues,"HowReferred",ArrayElement(avalues,"HowReferred")
setArrElement defvalues,"RegisterCID",ArrayElement(avalues,"RegisterCID")
setArrElement defvalues,"EssayOrCV",ArrayElement(avalues,"EssayOrCV")
end if
if bValue(eventObj.exists_p1("ProcessValuesAdd")) then
eventObj.ProcessValuesAdd_p1 defvalues
end if
includes = ""
if not IsEqual(inlineadd,ADD_INLINE) then
if not IsEqual(inlineadd,ADD_ONTHEFLY) and not IsEqual(inlineadd,ADD_POPUP) then
includes = CSmartStr(includes) & "" & vbcrlf
if IsIdentical(pageObject.debugJSMode,true) then
includes = CSmartStr(includes) & "" & vbcrlf
else
includes = CSmartStr(includes) & ""
end if
includes = CSmartStr(includes) & "" & vbcrlf
includes = CSmartStr(includes) & "" & vbcrlf
end if
if not bValue(pageObject.isAppearOnTabs_p1("FirstName")) then
xt.assign_p2 "FirstName_fieldblock",true
else
xt.assign_p2 "FirstName_tabfieldblock",true
end if
xt.assign_p2 "FirstName_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "FirstName_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("LastName")) then
xt.assign_p2 "LastName_fieldblock",true
else
xt.assign_p2 "LastName_tabfieldblock",true
end if
xt.assign_p2 "LastName_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "LastName_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("Salutation")) then
xt.assign_p2 "Salutation_fieldblock",true
else
xt.assign_p2 "Salutation_tabfieldblock",true
end if
xt.assign_p2 "Salutation_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "Salutation_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("Position")) then
xt.assign_p2 "Position_fieldblock",true
else
xt.assign_p2 "Position_tabfieldblock",true
end if
xt.assign_p2 "Position_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "Position_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("Organization")) then
xt.assign_p2 "Organization_fieldblock",true
else
xt.assign_p2 "Organization_tabfieldblock",true
end if
xt.assign_p2 "Organization_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "Organization_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("Adress1")) then
xt.assign_p2 "Adress1_fieldblock",true
else
xt.assign_p2 "Adress1_tabfieldblock",true
end if
xt.assign_p2 "Adress1_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "Adress1_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("Adress2")) then
xt.assign_p2 "Adress2_fieldblock",true
else
xt.assign_p2 "Adress2_tabfieldblock",true
end if
xt.assign_p2 "Adress2_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "Adress2_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("City")) then
xt.assign_p2 "City_fieldblock",true
else
xt.assign_p2 "City_tabfieldblock",true
end if
xt.assign_p2 "City_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "City_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("State")) then
xt.assign_p2 "State_fieldblock",true
else
xt.assign_p2 "State_tabfieldblock",true
end if
xt.assign_p2 "State_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "State_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("Country")) then
xt.assign_p2 "Country_fieldblock",true
else
xt.assign_p2 "Country_tabfieldblock",true
end if
xt.assign_p2 "Country_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "Country_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("PostalCode")) then
xt.assign_p2 "PostalCode_fieldblock",true
else
xt.assign_p2 "PostalCode_tabfieldblock",true
end if
xt.assign_p2 "PostalCode_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "PostalCode_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("WorkPhone")) then
xt.assign_p2 "WorkPhone_fieldblock",true
else
xt.assign_p2 "WorkPhone_tabfieldblock",true
end if
xt.assign_p2 "WorkPhone_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "WorkPhone_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("CellPhone")) then
xt.assign_p2 "CellPhone_fieldblock",true
else
xt.assign_p2 "CellPhone_tabfieldblock",true
end if
xt.assign_p2 "CellPhone_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "CellPhone_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("FaxNumber")) then
xt.assign_p2 "FaxNumber_fieldblock",true
else
xt.assign_p2 "FaxNumber_tabfieldblock",true
end if
xt.assign_p2 "FaxNumber_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "FaxNumber_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("Email")) then
xt.assign_p2 "Email_fieldblock",true
else
xt.assign_p2 "Email_tabfieldblock",true
end if
xt.assign_p2 "Email_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "Email_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("DateOfBirth")) then
xt.assign_p2 "DateOfBirth_fieldblock",true
else
xt.assign_p2 "DateOfBirth_tabfieldblock",true
end if
xt.assign_p2 "DateOfBirth_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "DateOfBirth_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("PassportNo")) then
xt.assign_p2 "PassportNo_fieldblock",true
else
xt.assign_p2 "PassportNo_tabfieldblock",true
end if
xt.assign_p2 "PassportNo_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "PassportNo_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("VisaNo")) then
xt.assign_p2 "VisaNo_fieldblock",true
else
xt.assign_p2 "VisaNo_tabfieldblock",true
end if
xt.assign_p2 "VisaNo_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "VisaNo_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("VisaStatus")) then
xt.assign_p2 "VisaStatus_fieldblock",true
else
xt.assign_p2 "VisaStatus_tabfieldblock",true
end if
xt.assign_p2 "VisaStatus_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "VisaStatus_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("FinancialSponsor")) then
xt.assign_p2 "FinancialSponsor_fieldblock",true
else
xt.assign_p2 "FinancialSponsor_tabfieldblock",true
end if
xt.assign_p2 "FinancialSponsor_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "FinancialSponsor_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("PaymentChoice")) then
xt.assign_p2 "PaymentChoice_fieldblock",true
else
xt.assign_p2 "PaymentChoice_tabfieldblock",true
end if
xt.assign_p2 "PaymentChoice_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "PaymentChoice_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("TravelDate")) then
xt.assign_p2 "TravelDate_fieldblock",true
else
xt.assign_p2 "TravelDate_tabfieldblock",true
end if
xt.assign_p2 "TravelDate_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "TravelDate_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("AirlineOrFlight")) then
xt.assign_p2 "AirlineOrFlight_fieldblock",true
else
xt.assign_p2 "AirlineOrFlight_tabfieldblock",true
end if
xt.assign_p2 "AirlineOrFlight_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "AirlineOrFlight_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("HowReferred")) then
xt.assign_p2 "HowReferred_fieldblock",true
else
xt.assign_p2 "HowReferred_tabfieldblock",true
end if
xt.assign_p2 "HowReferred_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "HowReferred_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("RegisterCID")) then
xt.assign_p2 "RegisterCID_fieldblock",true
else
xt.assign_p2 "RegisterCID_tabfieldblock",true
end if
xt.assign_p2 "RegisterCID_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "RegisterCID_label",(""
end if
if not bValue(pageObject.isAppearOnTabs_p1("EssayOrCV")) then
xt.assign_p2 "EssayOrCV_fieldblock",true
else
xt.assign_p2 "EssayOrCV_tabfieldblock",true
end if
xt.assign_p2 "EssayOrCV_label",true
if bValue(isEnableSection508()) then
xt.assign_section_p3 "EssayOrCV_label",(""
end if
if not IsEqual(inlineadd,ADD_ONTHEFLY) and not IsEqual(inlineadd,ADD_POPUP) then
setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & CSmartStr(includes)
if bValue(pageObject.isShowDetailTables) then
setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & "
"
end if
xt.assign_p2 "backbutton_attrs",("id=""backButton" & CSmartStr(id)) & """"
xt.assign_p2 "back_button",true
else
xt.assign_p2 "cancelbutton_attrs",("id=""cancelButton" & CSmartStr(id)) & """"
xt.assign_p2 "cancel_button",true
xt.assign_p2 "header",""
end if
xt.assign_p2 "save_button",true
end if
xt.assign_p2 "savebutton_attrs",("id=""saveButton" & CSmartStr(id)) & """"
if bValue(message) then
xt.assign_p2 "message_block",true
xt.assign_p2 "message",message
end if
Set readonlyfields = (CreateDictionary())
linkdata = ""
if IsEqual(GetRequestValue(RequestForm(),"a"),"added") and IsEqual(inlineadd,ADD_ONTHEFLY) then
if not bValue(error_happened) and not IsEqual(status,"DECLINED") then
LookupSQL = ""
linkfield = ""
dispfield = ""
if bValue(LookupSQL) then
LookupSQL = CSmartStr(LookupSQL) & (" from " & CSmartStr(AddTableWrappers(strOriginalTableName)))
end if
data = 0
if bValue(asp_count(keys)) and bValue(LookupSQL) then
doAssignmentByRef where,KeyWhere(keys,"")
LookupSQL = CSmartStr(LookupSQL) & (" where " & CSmartStr(where))
doAssignmentByRef rs,db_query(LookupSQL,conn)
doAssignmentByRef data,db_fetch_numarray(rs)
end if
if bValue(data) then
Set respData = (CreateDictionary2(linkfield,ArrayElement(data,0),dispfield,ArrayElement(data,1)))
else
Set respData = (CreateDictionary2(linkfield,ArrayElement(avalues,linkfield),dispfield,ArrayElement(avalues,dispfield)))
end if
setArrElement returnJSON,"success",true
setArrElement returnJSON,"keys",keys
setArrElement returnJSON,"vals",respData
setArrElement returnJSON,"fields",showFields
else
setArrElement returnJSON,"success",false
setArrElement returnJSON,"message",message
end if
ResponseWrite (""
Response.End
end if
if IsEqual(GetRequestValue(RequestForm(),"a"),"added") and ((IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_MASTER)) or IsEqual(inlineadd,ADD_POPUP)) then
dispFieldAlias = ""
data = 0
if bValue(asp_count(keys)) then
doAssignmentByRef where,KeyWhere(keys,"")
doAssignmentByRef sqlHead,gQuery.HeadToSql()
doAssignmentByRef sqlGroupBy,gQuery.GroupByToSql()
doAssignmentByRef oHaving,gQuery.Having()
doAssignmentByRef sqlHaving,oHaving.toSql_p1(gQuery)
doAssignmentByRef dispFieldAlias,postvalue("dispFieldAlias")
doAssignmentByRef dispField,postvalue("dispField")
if bValue(dispFieldAlias) then
sqlHead = CSmartStr(sqlHead) & ((((", " & CSmartStr(dispField)) & " as ") & CSmartStr(AddFieldWrappers(dispFieldAlias))) & " ")
end if
doAssignmentByRef strSQL,gSQLWhere_having(sqlHead,gsqlFrom,gsqlWhereExpr,sqlGroupBy,sqlHaving,where,"")
LogInfo strSQL
doAssignmentByRef rs,db_query(strSQL,conn)
doAssignmentByRef data,db_fetch_array(rs)
end if
if not bValue(data) then
doAssignment data,avalues
HaveData = false
end if
masterquery = "mastertable=customer"
masterquery = CSmartStr(masterquery) & ("&masterkey1=" & CSmartStr(asp_rawurlencode(ArrayElement(data,"RegisterCID"))))
setArrElement showDetailKeys,"courses",masterquery
keylink = ""
keylink = CSmartStr(keylink) & ("&key1=" & CSmartStr(htmlspecialchars(asp_rawurlencode(ArrayElement(data,"ID")))))
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"FirstName",""),"field=FirstName" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"FirstName",value
setArrElement showFields,asp_count(showFields),"FirstName"
setArrElement showRawValues,"FirstName",asp_substr(ArrayElement(data,"FirstName"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"LastName",""),"field=LastName" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"LastName",value
setArrElement showFields,asp_count(showFields),"LastName"
setArrElement showRawValues,"LastName",asp_substr(ArrayElement(data,"LastName"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Salutation",""),"field=Salutation" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"Salutation",value
setArrElement showFields,asp_count(showFields),"Salutation"
setArrElement showRawValues,"Salutation",asp_substr(ArrayElement(data,"Salutation"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Position",""),"field=Position" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"Position",value
setArrElement showFields,asp_count(showFields),"Position"
setArrElement showRawValues,"Position",asp_substr(ArrayElement(data,"Position"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Organization",""),"field=Organization" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"Organization",value
setArrElement showFields,asp_count(showFields),"Organization"
setArrElement showRawValues,"Organization",asp_substr(ArrayElement(data,"Organization"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Adress1",""),"field=Adress1" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"Adress1",value
setArrElement showFields,asp_count(showFields),"Adress1"
setArrElement showRawValues,"Adress1",asp_substr(ArrayElement(data,"Adress1"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Adress2",""),"field=Adress2" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"Adress2",value
setArrElement showFields,asp_count(showFields),"Adress2"
setArrElement showRawValues,"Adress2",asp_substr(ArrayElement(data,"Adress2"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"City",""),"field=City" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"City",value
setArrElement showFields,asp_count(showFields),"City"
setArrElement showRawValues,"City",asp_substr(ArrayElement(data,"City"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"State",""),"field=State" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"State",value
setArrElement showFields,asp_count(showFields),"State"
setArrElement showRawValues,"State",asp_substr(ArrayElement(data,"State"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Country",""),"field=Country" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"Country",value
setArrElement showFields,asp_count(showFields),"Country"
setArrElement showRawValues,"Country",asp_substr(ArrayElement(data,"Country"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"PostalCode",""),"field=PostalCode" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"PostalCode",value
setArrElement showFields,asp_count(showFields),"PostalCode"
setArrElement showRawValues,"PostalCode",asp_substr(ArrayElement(data,"PostalCode"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"WorkPhone",""),"field=WorkPhone" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"WorkPhone",value
setArrElement showFields,asp_count(showFields),"WorkPhone"
setArrElement showRawValues,"WorkPhone",asp_substr(ArrayElement(data,"WorkPhone"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"CellPhone",""),"field=CellPhone" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"CellPhone",value
setArrElement showFields,asp_count(showFields),"CellPhone"
setArrElement showRawValues,"CellPhone",asp_substr(ArrayElement(data,"CellPhone"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"FaxNumber",""),"field=FaxNumber" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"FaxNumber",value
setArrElement showFields,asp_count(showFields),"FaxNumber"
setArrElement showRawValues,"FaxNumber",asp_substr(ArrayElement(data,"FaxNumber"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Email",""),"field=Email" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"Email",value
setArrElement showFields,asp_count(showFields),"Email"
setArrElement showRawValues,"Email",asp_substr(ArrayElement(data,"Email"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"DateOfBirth","Short Date"),"field=DateOfBirth" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"DateOfBirth",value
setArrElement showFields,asp_count(showFields),"DateOfBirth"
setArrElement showRawValues,"DateOfBirth",asp_substr(ArrayElement(data,"DateOfBirth"),0,100)
end if
display = false
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"ID",""),"field=ID" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"ID",value
setArrElement showFields,asp_count(showFields),"ID"
setArrElement showRawValues,"ID",asp_substr(ArrayElement(data,"ID"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"PassportNo",""),"field=PassportNo" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"PassportNo",value
setArrElement showFields,asp_count(showFields),"PassportNo"
setArrElement showRawValues,"PassportNo",asp_substr(ArrayElement(data,"PassportNo"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"VisaNo",""),"field=VisaNo" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"VisaNo",value
setArrElement showFields,asp_count(showFields),"VisaNo"
setArrElement showRawValues,"VisaNo",asp_substr(ArrayElement(data,"VisaNo"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"VisaStatus",""),"field=VisaStatus" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"VisaStatus",value
setArrElement showFields,asp_count(showFields),"VisaStatus"
setArrElement showRawValues,"VisaStatus",asp_substr(ArrayElement(data,"VisaStatus"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"FinancialSponsor",""),"field=FinancialSponsor" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"FinancialSponsor",value
setArrElement showFields,asp_count(showFields),"FinancialSponsor"
setArrElement showRawValues,"FinancialSponsor",asp_substr(ArrayElement(data,"FinancialSponsor"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"PaymentChoice",""),"field=PaymentChoice" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"PaymentChoice",value
setArrElement showFields,asp_count(showFields),"PaymentChoice"
setArrElement showRawValues,"PaymentChoice",asp_substr(ArrayElement(data,"PaymentChoice"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"TravelDate","Short Date"),"field=TravelDate" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"TravelDate",value
setArrElement showFields,asp_count(showFields),"TravelDate"
setArrElement showRawValues,"TravelDate",asp_substr(ArrayElement(data,"TravelDate"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"AirlineOrFlight",""),"field=AirlineOrFlight" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"AirlineOrFlight",value
setArrElement showFields,asp_count(showFields),"AirlineOrFlight"
setArrElement showRawValues,"AirlineOrFlight",asp_substr(ArrayElement(data,"AirlineOrFlight"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"HowReferred",""),"field=HowReferred" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"HowReferred",value
setArrElement showFields,asp_count(showFields),"HowReferred"
setArrElement showRawValues,"HowReferred",asp_substr(ArrayElement(data,"HowReferred"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"RegisterCID",""),"field=RegisterCID" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"RegisterCID",value
setArrElement showFields,asp_count(showFields),"RegisterCID"
setArrElement showRawValues,"RegisterCID",asp_substr(ArrayElement(data,"RegisterCID"),0,100)
end if
display = false
if IsEqual(inlineadd,ADD_MASTER) then
display = true
end if
if (IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_ONTHEFLY)) or IsEqual(inlineadd,ADD_POPUP) then
display = true
end if
if bValue(display) then
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"EssayOrCV",""),"field=EssayOrCV" & CSmartStr(keylink),"",MODE_LIST,"")
setArrElement showValues,"EssayOrCV",value
setArrElement showFields,asp_count(showFields),"EssayOrCV"
setArrElement showRawValues,"EssayOrCV",asp_substr(ArrayElement(data,"EssayOrCV"),0,100)
end if
if bValue(dispFieldAlias) then
setArrElement showValues,asp_count(showValues),ArrayElement(data,dispFieldAlias)
setArrElement showFields,asp_count(showFields),dispFieldAlias
setArrElement showRawValues,asp_count(showRawValues),asp_substr(ArrayElement(data,dispFieldAlias),0,100)
end if
if IsEqual(inlineadd,ADD_INLINE) or IsEqual(inlineadd,ADD_POPUP) then
if bValue(IsSaved) and bValue(asp_count(showValues)) then
setArrElement returnJSON,"success",true
if bValue(HaveData) then
setArrElement returnJSON,"noKeys",false
else
setArrElement returnJSON,"noKeys",true
end if
setArrElement returnJSON,"keys",keys
setArrElement returnJSON,"vals",showValues
setArrElement returnJSON,"fields",showFields
setArrElement returnJSON,"rawVals",showRawValues
setArrElement returnJSON,"detKeys",showDetailKeys
setArrElement returnJSON,"userMess",usermessage
else
setArrElement returnJSON,"success",false
setArrElement returnJSON,"message",message
end if
ResponseWrite (""
Response.End
end if
end if
if IsEqual(inlineadd,ADD_MASTER) then
Set respJSON = (CreateDictionary())
if IsEqual(GetRequestValue(RequestForm(),"a"),"added") and bValue(IsSaved) then
setArrElement respJSON,"success",true
setArrElement respJSON,"fields",showFields
setArrElement respJSON,"vals",showValues
if bValue(onFly) then
if bValue(HaveData) then
setArrElement returnJSON,"noKeys",false
else
setArrElement returnJSON,"noKeys",true
end if
setArrElement respJSON,"keys",keys
setArrElement respJSON,"rawVals",showRawValues
setArrElement respJSON,"detKeys",showDetailKeys
setArrElement respJSON,"userMess",usermessage
end if
setArrElement respJSON,"mKeys",CreateDictionary()
i = 0
do while IsLess(i,asp_count(ArrayElement(dpParams,"ids")))
data = 0
if bValue(asp_count(keys)) then
doAssignmentByRef where,KeyWhere(keys,"")
doAssignmentByRef strSQL,gSQLWhere(where,"")
LogInfo strSQL
doAssignmentByRef rs,db_query(strSQL,conn)
doAssignmentByRef data,db_fetch_array(rs)
end if
if not bValue(data) then
doAssignment data,avalues
end if
mKeyId = 1
GetCollectionBounds ArrayElement(mKeys,ArrayElement(ArrayElement(dpParams,"strTableNames"),i)),add_loopIdx6,add_loopMax6
do while add_loopIdx6<=add_loopMax6
add_arrKey6 = GetCollectionKey(ArrayElement(mKeys,ArrayElement(ArrayElement(dpParams,"strTableNames"),i)),add_loopIdx6)
doAssignment mk,ArrayElement(ArrayElement(mKeys,ArrayElement(ArrayElement(dpParams,"strTableNames"),i)),add_arrKey6)
if bValue(ArrayElement(data,mk)) then
setArrElementN respJSON,CreateArray3("mKeys",ArrayElement(ArrayElement(dpParams,"strTableNames"),i),"masterkey" & CSmartStr(postInc(mKeyId))),ArrayElement(data,mk)
else
setArrElementN respJSON,CreateArray3("mKeys",ArrayElement(ArrayElement(dpParams,"strTableNames"),i),"masterkey" & CSmartStr(postInc(mKeyId))),""
end if
add_loopIdx6=add_loopIdx6+1
loop
i = CSmartDbl(i)+1
loop
if (not IsEmpty(Session(CSmartStr(strTableName) & "_count_captcha")) or IsLess(0,Session(CSmartStr(strTableName) & "_count_captcha"))) or IsLess(Session(CSmartStr(strTableName) & "_count_captcha"),5) then
setArrElement respJSON,"hideCaptha",true
end if
else
setArrElement respJSON,"success",false
if not bValue(pageObject.isCaptchaOk) then
setArrElement respJSON,"captha",false
else
setArrElement respJSON,"error",message
end if
if bValue(onFly) then
setArrElement respJSON,"message",message
end if
end if
ResponseWrite (""
Response.End
end if
regex = ""
regexmessage = ""
regextype = ""
Set control = (CreateDictionary())
GetCollectionBounds addFields,add_loopIdx7,add_loopMax7
do while add_loopIdx7<=add_loopMax7
add_arrKey7 = GetCollectionKey(addFields,add_loopIdx7)
doAssignment fName,ArrayElement(addFields,add_arrKey7)
doAssignmentByRef gfName,GoodFieldName(fName)
Set controls = (CreateDictionary1("controls",CreateDictionary()))
if (not bValue(detailKeys) or not bValue(asp_in_array(fName,detailKeys,false))) or IsEqual(fName,postvalue("category")) then
setArrElement control,gfName,CreateDictionary()
setArrElementN control,CreateArray2(gfName,"func"),"xt_buildeditcontrol"
setArrElementN control,CreateArray2(gfName,"params"),CreateDictionary()
setArrElementN control,CreateArray3(gfName,"params","id"),id
setArrElementN control,CreateArray3(gfName,"params","field"),fName
setArrElementN control,CreateArray3(gfName,"params","value"),ArrayElement(defvalues,fName)
if bValue(UseRTE(fName,"")) then
setArrElement Session,((CSmartStr(strTableName) & "_") & CSmartStr(fName)) & "_rte",ArrayElement(defvalues,fName)
end if
doAssignmentByRef arrValidate,getValidation(fName,strTableName)
setArrElementN control,CreateArray3(gfName,"params","validate"),arrValidate
end if
setArrElementN controls,CreateArray2("controls","ctrlInd"),0
setArrElementN controls,CreateArray2("controls","id"),id
setArrElementN controls,CreateArray2("controls","fieldName"),fName
if (bValue(UseRTEFCK(fName,"")) or bValue(UseRTEInnova(fName,""))) or bValue(UseRTEBasic(fName,"")) then
if not bValue(detailKeys) or not bValue(asp_in_array(fName,detailKeys,false)) then
setArrElementN control,CreateArray3(gfName,"params","mode"),"add"
end if
setArrElementN controls,CreateArray2("controls","mode"),"add"
else
if IsEqual(inlineadd,ADD_ONTHEFLY) or IsEqual(inlineadd,ADD_POPUP) then
if (not bValue(detailKeys) or not bValue(asp_in_array(fName,detailKeys,false))) or IsEqual(fName,postvalue("category")) then
setArrElementN control,CreateArray3(gfName,"params","mode"),"inline_add"
end if
setArrElementN controls,CreateArray2("controls","mode"),"inline_add"
else
if (not bValue(detailKeys) or not bValue(asp_in_array(fName,detailKeys,false))) or IsEqual(fName,postvalue("category")) then
setArrElementN control,CreateArray3(gfName,"params","mode"),"add"
end if
setArrElementN controls,CreateArray2("controls","mode"),"add"
end if
end if
if not bValue(detailKeys) or not bValue(asp_in_array(fName,detailKeys,false)) then
xt.assignbyref_p2 CSmartStr(gfName) & "_editcontrol",ArrayElement(control,gfName)
else
if bValue(detailKeys) and bValue(asp_in_array(fName,detailKeys,false)) then
setArrElementN controls,CreateArray2("controls","value"),ArrayElement(defvalues,fName)
end if
end if
doAssignmentByRef strCategoryControl,pageObject.hasDependField_p1(fName)
if not IsFalse(strCategoryControl) and bValue(asp_in_array(strCategoryControl,addFields,false)) then
Set vals = (CreateDictionary2(fName,ArrayElement(defvalues,fName),strCategoryControl,ArrayElement(defvalues,strCategoryControl)))
else
Set vals = (CreateDictionary1(fName,ArrayElement(defvalues,fName)))
end if
doAssignmentByRef preload,pageObject.fillPreload_p2(fName,vals)
if not IsFalse(preload) then
setArrElementN controls,CreateArray2("controls","preloadData"),preload
end if
pageObject.fillControlsMap_p1 controls
pageObject.fillFieldToolTips_p1 fName
if IsEqual(GetEditFormat(fName,""),"Time") then
pageObject.fillTimePickSettings_p2 fName,ArrayElement(defvalues,fName)
end if
if (bValue(detailKeys) and bValue(asp_in_array(fName,detailKeys,false)) or IsEqual(fName,postvalue("category"))) and bValue(asp_array_key_exists(fName,defvalues)) then
if (IsEqual(GetEditFormat(fName,""),EDIT_FORMAT_LOOKUP_WIZARD) or IsEqual(GetEditFormat(fName,""),EDIT_FORMAT_RADIO)) and IsEqual(GetpLookupType(fName,""),LT_LOOKUPTABLE) then
doAssignmentByRef value,DisplayLookupWizard(fName,ArrayElement(defvalues,fName),defvalues,"",MODE_VIEW)
else
if bValue(NeedEncode(fName,"")) then
doAssignmentByRef value,ProcessLargeText(GetData(defvalues,fName,ViewFormat(fName,"")),"field=" & CSmartStr(asp_rawurlencode(htmlspecialchars(fName))),"",MODE_VIEW,"")
else
doAssignmentByRef value,GetData(defvalues,fName,ViewFormat(fName,""))
end if
end if
xt.assign_p2 CSmartStr(gfName) & "_editcontrol",value
end if
add_loopIdx7=add_loopIdx7+1
loop
pageObject.fillCntrlTabGroups
pageObject.fillSetCntrlMaps
if bValue(pageObject.isShowDetailTables) and (IsEqual(inlineadd,ADD_SIMPLE) or IsEqual(inlineadd,ADD_POPUP)) then
Set options = (CreateDictionary())
setArrElement options,"mode",LIST_DETAILS
setArrElement options,"pageType",PAGE_LIST
setArrElement options,"masterPageType",PAGE_ADD
setArrElement options,"mainMasterPageType",PAGE_ADD
setArrElement options,"masterTable",strTableName
setArrElement options,"firstTime",1
if bValue(asp_count(ArrayElement(dpParams,"ids"))) then
xt.assign_p2 "detail_tables",true
asp_include "classes/listpage.asp",false
asp_include "classes/listpage_embed.asp",false
asp_include "classes/listpage_dpinline.asp",false
asp_include "classes/searchclause.asp",false
end if
Set dControlsMap = (CreateDictionary())
flyId = CSmartDbl(ids)+1
d = 0
do while IsLess(d,asp_count(ArrayElement(dpParams,"ids")))
doAssignment strTableName,ArrayElement(ArrayElement(dpParams,"strTableNames"),d)
asp_include ("include/" & CSmartStr(GetTableURL(strTableName))) & "_settings.asp",false
setArrElement options,"xt",CreateClass("Xtempl",0,Empty,Empty,Empty,Empty,Empty,Empty,Empty)
setArrElement options,"id",ArrayElement(ArrayElement(dpParams,"ids"),d)
setArrElement options,"flyId",postInc(flyId)
mkr = 1
GetCollectionBounds ArrayElement(mKeys,strTableName),add_loopIdx9,add_loopMax9
do while add_loopIdx9<=add_loopMax9
add_arrKey9 = GetCollectionKey(ArrayElement(mKeys,strTableName),add_loopIdx9)
doAssignment mk,ArrayElement(ArrayElement(mKeys,strTableName),add_arrKey9)
if bValue(ArrayElement(defvalues,mk)) then
setArrElementN options,CreateArray2("masterKeysReq",postInc(mkr)),ArrayElement(defvalues,mk)
else
setArrElementN options,CreateArray2("masterKeysReq",postInc(mkr)),""
end if
add_loopIdx9=add_loopIdx9+1
loop
doAssignmentByRef listPageObject,method_ListPage_createListPage(this_object,strTableName,options)
listPageObject.prepareForBuildPage
flyId = CSmartDbl(listPageObject.recId)+1
if bValue(listPageObject.isDispGrid()) then
listPageObject.fillSetCntrlMaps
setArrElementN pageObject.jsSettings,CreateArray2("tableSettings",strTableName),ArrayElement(ArrayElement(listPageObject.jsSettings,"tableSettings"),strTableName)
setArrElementN dControlsMap,CreateArray2(strTableName,"gridRows"),ArrayElement(ArrayElement(ArrayElement(ArrayElement(listPageObject.controlsHTMLMap,strTableName),PAGE_LIST),ArrayElement(ArrayElement(dpParams,"ids"),d)),"gridRows")
setArrElementN dControlsMap,CreateArray2(strTableName,"video"),ArrayElement(ArrayElement(ArrayElement(ArrayElement(listPageObject.controlsHTMLMap,strTableName),PAGE_LIST),ArrayElement(ArrayElement(dpParams,"ids"),d)),"video")
setArrElementN dControlsMap,CreateArray2(strTableName,"gMaps"),ArrayElement(ArrayElement(ArrayElement(ArrayElement(listPageObject.controlsHTMLMap,strTableName),PAGE_LIST),ArrayElement(ArrayElement(dpParams,"ids"),d)),"gMaps")
GetCollectionBounds ArrayElement(ArrayElement(listPageObject.jsSettings,"global"),"shortTNames"),add_loopIdx10,add_loopMax10
do while add_loopIdx10<=add_loopMax10
key = GetCollectionKey(ArrayElement(ArrayElement(listPageObject.jsSettings,"global"),"shortTNames"),add_loopIdx10)
doAssignment val,ArrayElement(ArrayElement(ArrayElement(listPageObject.jsSettings,"global"),"shortTNames"),key)
if not bValue(asp_array_key_exists(key,ArrayElement(ArrayElement(pageObject.jsSettings,"global"),"shortTNames"))) then
setArrElementN pageObject.jsSettings,CreateArray3("global","shortTNames",key),val
end if
add_loopIdx10=add_loopIdx10+1
loop
pageObject.copyAllJSFiles_p1 listPageObject.grabAllJSFiles()
pageObject.copyAllCSSFiles_p1 listPageObject.grabAllCSSFiles()
end if
xt.assign_p2 "displayDetailTable_" & CSmartStr(GoodFieldName(strTableName)),CreateDictionary2("func","showDetailTable","params",CreateDictionary2("dpObject",listPageObject,"dpParams",strTableName))
d = CSmartDbl(d)+1
loop
strTableName = "customer"
setArrElementN pageObject.controlsHTMLMap,CreateArray4(strTableName,PAGE_ADD,id,"dControlsMap"),dControlsMap
end if
if IsEqual(inlineadd,ADD_SIMPLE) then
setArrElement pageObject.body,"end",CSmartStr(ArrayElement(pageObject.body,"end")) & ""
else
setArrElement returnJSON,"controlsMap",pageObject.controlsHTMLMap
setArrElement returnJSON,"settings",pageObject.jsSettings
end if
pageObject.addCommonJs
doAssignmentByRef jscode,pageObject.PrepareJS()
if IsEqual(inlineadd,ADD_SIMPLE) then
setArrElement pageObject.body,"end",CSmartStr(ArrayElement(pageObject.body,"end")) & (("")
xt.assign_p2 "body",pageObject.body
xt.assign_p2 "flybody",true
else
if (IsEqual(inlineadd,ADD_ONTHEFLY) or IsEqual(inlineadd,ADD_MASTER)) or IsEqual(inlineadd,ADD_POPUP) then
xt.assign_p2 "footer",""
xt.assign_p2 "flybody",pageObject.body
xt.assign_p2 "body",true
end if
end if
xt.assign_p2 "style_block",true
pageObject.xt.assign_p2 "legendBreak"," "
if bValue(eventObj.exists_p1("BeforeShowAdd")) then
eventObj.BeforeShowAdd_p2 xt,templatefile
end if
if IsEqual(inlineadd,ADD_ONTHEFLY) or IsEqual(inlineadd,ADD_POPUP) then
xt.load_template_p1 templatefile
setArrElement returnJSON,"html",CSmartStr(xt.fetch_loaded_p1("style_block")) & CSmartStr(xt.fetch_loaded_p1("flybody"))
if IsEqual(inlineadd,ADD_POPUP) and bValue(pageObject.isShowDetailTables) then
setArrElement returnJSON,"html",CSmartStr(ArrayElement(returnJSON,"html")) & CSmartStr(xt.fetch_loaded_p1("detail_tables"))
end if
setArrElement returnJSON,"idStartFrom",CSmartDbl(id)+1
ResponseWrite my_json_encode(returnJSON)
else
if IsEqual(inlineadd,ADD_INLINE) then
xt.load_template_p1 templatefile
setArrElement returnJSON,"html",CreateDictionary()
GetCollectionBounds addFields,add_loopIdx11,add_loopMax11
do while add_loopIdx11<=add_loopMax11
add_arrKey11 = GetCollectionKey(addFields,add_loopIdx11)
doAssignment fName,ArrayElement(addFields,add_arrKey11)
setArrElementN returnJSON,CreateArray2("html",fName),xt.fetchVar_p1(CSmartStr(GoodFieldName(fName)) & "_editcontrol")
add_loopIdx11=add_loopIdx11+1
loop
ResponseWrite my_json_encode(returnJSON)
else
xt.display_p1 templatefile
end if
end if
%>