<%
IF (checkPermission("settings")="FAILED") THEN
response.write("You do not have permission to view this page")
response.end
END IF
%>
<%
response.buffer = true
StrError="None"
IF REQUEST("update")="system.settings" THEN
str_school_id=str_u_id
IF REQUEST("parent_setting_routes")="yes" THEN
parent_s1="yes"
ELSE
parent_s1="no"
END IF
IF REQUEST("parent_setting_location")="yes" THEN
parent_s2="yes"
ELSE
parent_s2="no"
END IF
IF REQUEST("parent_setting_reporting")="yes" THEN
parent_s3="yes"
ELSE
parent_s3="no"
END IF
IF REQUEST("parent_setting_support")="yes" THEN
parent_s4="yes"
ELSE
parent_s4="no"
END IF
IF StrError <> "None" THEN
'print the errors
ELSE
'update settings
dbCBK.Execute("UPDATE cbk_schools SET parent_setting_routes='"&parent_s1&"', parent_setting_location='"&parent_s2&"', parent_setting_reporting='"&parent_s3&"',parent_setting_support='"&parent_s4&"' WHERE schoolID='"&str_u_id&"' limit 1")
response.redirect("/schools/control-panel/?go=settings¬ify=System+settings+updated+successfuly&nact=success")
END IF
END IF
SET rsSettings = dbCBK.Execute("SELECT parent_setting_routes,parent_setting_location,parent_setting_reporting,parent_setting_support from cbk_schools WHERE schoolID='"&str_u_id&"' limit 1")
DO WHILE NOT rsSettings.EOF
parent_setting_routes=rsSettings("parent_setting_routes")
parent_setting_location=rsSettings("parent_setting_location")
parent_setting_reporting=rsSettings("parent_setting_reporting")
parent_setting_support=rsSettings("parent_setting_support")
rsSettings.MoveNext
loop
rsSettings.Close
SET rsSettings = Nothing
Function sanitizeN(requestVariable)
Set regEx = New RegExp
regEx.Global = true
regEx.Pattern = "[^0-9]"
sanitizeN = regEx.Replace(requestVariable, "")
End Function
%>
<%IF StrError <> "None" THEN%>