%
On Error Resume Next
IF (checkPermission("customers")="FAILED") THEN
response.write("You do not have permission to view this page")
response.end
END IF
Function openTicketCount(c)
SET rsC=dbCBK.Execute("SELECT COUNT(*) As OTC FROM cbk_support_tickets WHERE `schoolID`='"&str_u_id&"' AND `parentID`='"&str_parent_id&"' AND `status`<>'closed' limit 1")
IF rsC.EOF THEN
ret_tc="0"
END IF
do while not rsC.EOF
ret_tc=rsC("OTC")
rsC.MoveNext
loop
rsC.Close
SET rsC= Nothing
openTicketCount="You have ("&ret_tc&") tickets open"
End Function
Function repliedTicketCount(c)
SET rsC=dbCBK.Execute("SELECT COUNT(*) As OTC FROM cbk_support_tickets WHERE `schoolID`='"&str_u_id&"' AND `parentID`='"&str_parent_id&"' AND `status`='replied' limit 1")
IF rsC.EOF THEN
ret_tc="0"
END IF
do while not rsC.EOF
ret_tc=rsC("OTC")
rsC.MoveNext
loop
rsC.Close
SET rsC= Nothing
repliedTicketCount="You have ("&ret_tc&") tickets with new replies."
End Function
%>
<%
IF request("cType")<>"" THEN
cT=sanitizeRequest("cType","querystring")
SELECT CASE cT
case "std":
osqlSTR=" AND `acc_type`='std'"
case "acc":
osqlSTR=" AND `acc_type`='acc'"
case else:
osqlSTR=""
END SELECT
ELSE
o=""
osqlSTR=""
END IF
strSQL = "SELECT ticketID,status,dateCREATED,subject,lastUPDATED FROM cbk_support_tickets WHERE schoolID='"&str_u_id&"' AND parentID='"&str_parent_id&"' order by dateCREATED desc"
strCSQL = replace(strSQL,"SELECT ticketID,status,dateCREATED,subject,lastUPDATED","SELECT count(*) AS rCount")
SET rsBC = dbCBK.Execute(strCSQL)
rCount=0
DO WHILE NOT rsBC.EOF
rCount=CInt(rsBC("rCount"))
rsBC.MoveNext
loop
rsBC.Close
SET rsBC = Nothing
'results per page
perpage=100
'number of pages
nPages=CInt(rCount/perpage)
IF nPages < 1 THEN nPages=1 END IF
'current page
curPage=sanitizeRequest("page","querystring")
IF (curPage <> "") THEN
IF IsNumeric(curPage) AND curPage > "0" THEN
curPage=Cint(curPage)
ELSE
curPage=1
END IF
ELSE
curPage=1
END IF
IF curPage > nPages THEN
curPage=nPages
END IF
endPoint=perPage*curPage
startPoint=endPoint-perPage
strSQL=strSQL & " limit " & startPoint & ", " & perpage
'response.write(strSQL)
SET rsB=dbCBK.Execute(strSQL)
%>
<%IF rsB.EOF THEN%>
|
None found.
|
<%ELSE%>
|
<%IF curPage > 1 THEN%>
previous
<%ELSE%>
previous
<%END IF%>
|
Page <%=curPage%> of <%=nPages%> |
<%IF npages > curPage THEN%>
next
<%ELSE%>
next
<%END IF%>
|
| Status |
Subject |
Created On |
Last Udated |
<%END IF%>
<% rowN=1
DO WHILE NOT rsB.EOF
%>
" data-link="/parents/control-panel/?go=support&support=viewticket&ticket=<%=rsB("ticketID")%>">
|
<%
SELECT CASE rsB("status")
case "new":
response.write("")
case "replied":
response.write("")
case "waiting":
response.write("")
case "closed":
response.write(" ✅ Closed ")
case else:
response.write("")
END SELECT
%>
|
<%=rsB("subject")%> |
<%=formatDateTime(rsB("dateCREATED"),vblongdate)%> |
<%IF IsNull(rsB("lastUPDATED")) THEN response.write(formatDateTime(rsB("dateCREATED"),vblongdate)) ELSE response.write(formatDateTime(rsB("lastUPDATED"),vblongdate)) END IF%> |
<%
rowN=rowN+1
rsB.MoveNext
loop
rsB.Close
SET rsB=Nothing
%>