<% response.buffer = true IF (checkPermission("pupils")="FAILED") THEN response.write("You do not have permission to view this page") response.end END IF StrError="None" cID=sanitizeRequest("view","querystring") Function displayContent(str_str) IF str_str <> "" AND Not(IsNull(str_str)) THEN str_str=replace(str_str,chr(13),"
") 'str_str=replace(str_str,chr(10),"
") str_str=replace(str_str,"&39","'") str_str=replace(str_str,"-euro-","€") str_str=replace(str_str,"-pound-","£") str_str=replace(str_str,"-percent-","%") displayContent = str_str ELSE displayContent = "" Exit Function END IF End Function Function delPupilFromRouteItenary(pID) IF pID <> "" AND IsNumeric(pID) THEN strDSTRNG="||"&pID&"||" SET rsRL=dbCBK.Execute("SELECT routeID, pupilIDS from cbk_routes WHERE pupilIDS LIKE '%"&strDSTRNG&"%' AND schoolID='"&str_u_id&"' limit 1") IF rsRL.EOF THEN res="OK" END IF DO WHILE NOT rsRL.EOF s_rid=rsRL("routeID") s_exppls=rsRL("pupilIDS") rsRL.MoveNext loop rsRL.Close SET rsRL=Nothing IF s_rid<>"" AND IsNumeric(s_rid) THEN n_ppls=replace(s_exppls,strDSTRNG,"||") IF n_ppls="||" THEN n_ppls="none" END IF dbCBK.Execute("UPDATE cbk_routes SET pupilIDS='"&n_ppls&"' WHERE routeID='"&s_rid&"' AND schoolID='"&str_u_id&"' limit 1") res="OK" ELSE Exit Function END IF delPupilFromRouteItenary=res ELSE delPupilFromRouteItenary="OK" Exit Function END IF End Function IF cID <> "" AND IsNumeric(cID) THEN 'check for any updates IF REQUEST("action")<>"" THEN var_act = sanitizeRequest("action","querystring") SELECT CASE var_act case "delete_acc": dbCBK.Execute("DELETE FROM cbk_pupils WHERE `pupilID`='"&cID&"' limit 1") IF (delPupilFromRouteItenary(cID)="OK") THEN response.redirect("/schools/control-panel/?go=pupils¬ify=Pupil+account+deleted+sucessfully&nact=success") ELSE response.redirect("/schools/control-panel/?go=pupils¬ify=Error+unlinking+pupil+from+itenary&nact=error") END IF END SELECT END IF bSQL = "SELECT `pupilID`, `roleID`, `schoolID`, `name`, `rfID`, `email`, `acpwd`, `phone`, `mobile`, `address1`, `address2`, `address3`, `countystate`, `postcode`, `country`, `signupDATE`, `origin_source`, `acc_type`, `business_accountID`, `cust_notes` from cbk_pupils WHERE `pupilID`='"&cID&"' limit 1" SET rsB = dbCBK.Execute(bSQL) IF rsB.EOF THEN StrError="Pupil data could not be found" END IF DO WHILE NOT rsB.EOF pupilID=rsB("pupilID") roleID=rsB("roleID") schoolID=rsB("schoolID") name=rsB("name") rfID=rsB("rfID") email=rsB("email") acpwd=rsB("acpwd") phone=rsB("phone") mobile=rsB("mobile") address1=rsB("address1") address2=rsB("address2") address3=rsB("address3") countystate=rsB("countystate") postcode=rsB("postcode") country=rsB("country") signupDATE=rsB("signupDATE") origin_source=rsB("origin_source") acc_type=rsB("acc_type") business_accountID=rsB("business_accountID") customerNOTES=rsB("cust_notes") rsB.MoveNext loop rsB.Close SET rsB = Nothing ELSE StrError="Pupil data invalid" END IF Function fetchSchoolName(aID, norl) IF aID = "0" THEN fbRET="No School Assigned" fetchSchoolName=fbRET ELSEIF aID <> "" AND IsNumeric(aID) THEN SET rsfbN = dbCBK.Execute("SELECT `schoolname` from cbk_schools WHERE `schoolID`='"&aID&"' limit 1") IF rsfbN.EOF THEN fbRET="School not found.." END IF DO WHILE NOT rsfbN.EOF IF norl="n" THEN fbRET=rsfbN("schoolname") ELSE fbRET="" & rsfbN("schoolname") & "" END IF rsfbN.MoveNext loop rsfbN.Close SET rsfbN = Nothing fetchSchoolName=fbRET ELSE Exit Function END IF End Function Function showAssignedRoute(pid) IF pid <> "" AND IsNumeric(pid) THEN strpas="||"&pid&"||" SET rsPAS=dbCBK.Execute("SELECT routeID, routename from cbk_routes WHERE pupilIDS LIKE '%"&strpas&"%' limit 1") IF rsPAS.EOF THEN ret="none" END IF DO WHILE NOT rspas.EOF pas_rid=rsPAS("routeID") pas_rn=rsPAS("routename") rsPAS.MoveNext loop rsPAS.CLose SET rsPAS = Nothing IF ret="none" THEN showAssignedRoute="None Assigned" ELSE showAssignedRoute=""&pas_rn&"" END IF ELSE Exit Function END IF End Function IF StrError <> "None" THEN 'print the errors %>
<%=StrError%>
<%ELSE%> <% IF pupilID <> "" AND IsNumeric(pupilID) THEN 'we are using pupilID despite the column being named roleIDS pSQL = "SELECT `parentID`,`name`,`email`,`phone` from cbk_parents WHERE `pupilROLEIDS` like'%||"&pupilID&"||%' limit 1" SET rsP = dbCBK.Execute(pSQL) IF rsP.EOF THEN 'no parent data found clpa="true" END IF DO WHILE NOT rsP.EOF clpa="false" parentid=rsP("parentID") parentname=rsP("name") parentemail=rsP("email") parentphone=rsP("phone") rsP.MoveNext loop rsP.Close SET rsP = Nothing END IF %>

View Pupil

Name: <%=PCase(name)%> (<%=roleID%>)
go back
edit pupil
<%IF clpa="true" THEN%>
create linked parent account
<%ELSE%>
create linked parent account
<%END IF%>

Parent Details

School: <%=fetchSchoolName(schoolID, "n")%>
Name: <%IF parentname <> "" THEN response.write(""&parentname&"") ELSE response.write("--") END IF%>
Email: <%IF parentemail <> "" THEN response.write(""&parentemail&"") ELSE response.write("--") END IF%>
Telephone: <%IF parentphone <> "" THEN response.write(""&parentphone&"") ELSE response.write("--") END IF%>

Tools

Manage this pupil
go
Pupil Details
Name <%=PCase(name)%>
Role # <%=roleID%>
NFC Registration
Pupil Registration ID: <%=pupilID%>
RF ID # <%=rfID%> <%IF CStr(rfID)="0" THEN response.write("  (none assigned)")%>
Additional Details
Route <%=showAssignedRoute(pupilID)%>
Contact # <%IF NOT(phone <> "") AND NOT(mobile <> "") THEN%>-<%END IF%> <%IF phone <> "" THEN response.write("" & "tel: " & phone & "")%> <%IF mobile <> "" THEN response.write("" & "mob: " & mobile & "")%>
Email <%IF email <> "" THEN%><%=email%><%ELSE%>-<%END IF%>
Signup Date <%=formatDateTime(signupDATE,vblongdate)%>
<%END IF%>