Subversion Repositories DevTools

Rev

Rev 6594 | Rev 6883 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6594 Rev 6879
Line 20... Line 20...
20 
<%
 20 
<%
21 
'------------ Variable Definition -------------
 21 
'------------ Variable Definition -------------
22 
Dim result : result = -1
 22 
Dim result : result = -1
23 
Dim SqlQry
 23 
Dim SqlQry
24 
Dim rsQry
 24 
Dim rsQry
25 
Dim parRtagId : parRtagId = Request("rtag_id")
 25 
Dim parRtagId : parRtagId = Request.Form("rtag_id")
- 
 
 26 
Dim parOnlyNew : parOnlyNew = RequestBool("onlyNew", False)
- 
 
 27 
Dim parOnlyComplete : parOnlyComplete = RequestBool("onlyComplete", False)
26 
 
 28 
 
27 
' Init the output JSON class
 29 
' Init the output JSON class
28 
'   Operations can add data
 30 
'   Operations can add data
29 
'   Default data will be added at the end
 31 
'   Default data will be added at the end
30 
Dim oJSON :Set oJSON = New aspJSON
 32 
Dim oJSON :Set oJSON = New aspJSON
Line 53... Line 55...
53 
 
 55 
 
54 
' Basic Header
 56 
' Basic Header
55 
'   recordsTotal = total records without any filtering/limits
 57 
'   recordsTotal = total records without any filtering/limits
56 
'   recordsFiltered = filtered result count
 58 
'   recordsFiltered = filtered result count
57 
 
 59 
 
58 
oJSON.data("draw") = CLng(Request.QueryString("draw"))
 60 
oJSON.data("draw") = CLng(Request.Form("draw"))
59 
oJSON.data("recordsTotal") = CLng(MaxCount)
 61 
oJSON.data("recordsTotal") = CLng(MaxCount)
60 
oJSON.data("recordsFiltered") = CLng(MaxCount)
 62 
oJSON.data("recordsFiltered") = CLng(MaxCount)
61 
 
 63 
 
62 
' Assist in debug
 64 
' Assist in debug
63 
oJSON.data("start") = CLng(Request.QueryString("start"))
 65 
oJSON.data("start") = CLng(Request.Form("start"))
64 
oJSON.data("length") = CLng(Request.QueryString("length"))
 66 
oJSON.data("length") = CLng(Request.Form("length"))
65 
 
 67 
 
66 
Dim vName
 68 
Dim vName
67 
for each vName in Request.QueryString
 69 
for each vName in Request.QueryString
68 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
 70 
    oJSON.data("sReq_" & vName) = Request.Form(vName)
69 
next
 71 
next
70 
 
 72 
 
71 
' Extract selected range
 73 
' Extract selected range
72 
result = 0
 74 
result = 0
73 
dim firstRow,lastRow,noBuildTime
 75 
dim firstRow,lastRow,noBuildTime
74 
firstRow = CLng(Request.QueryString("start"))
 76 
firstRow = CLng(Request.Form("start"))
75 
lastRow = firstRow + CLng(Request.QueryString("length"))
 77 
lastRow = firstRow + CLng(Request.Form("length"))
76 
 
 78 
 
77 
'   Define array of colums to sort by
 79 
'   Define array of colums to sort by
78 
'       Must match user sort column request
 80 
'       Must match user sort column request
79 
Dim sortCols: sortCols = Array ( _
 81 
Dim sortCols: sortCols = Array ( _
80 
        "UPPER(pj.PROJ_NAME)",_
 82 
        "UPPER(pj.PROJ_NAME)",_
Line 89... Line 91...
89 
 
 91 
 
90 
' Dim determine sorting options
 92 
' Dim determine sorting options
91 
'On Error goto 0
 93 
'On Error goto 0
92 
'Response.Write "<pre>"
 94 
'Response.Write "<pre>"
93 
Dim sortString
 95 
Dim sortString
94 
If Request.QueryString("order[0][column]") <> "" Then
 96 
If Request.Form("order[0][column]") <> "" Then
95 
 
 97 
 
96 
    Dim sortCol : sortCol = CInt(Request.QueryString("order[0][column]"))
 98 
    Dim sortCol : sortCol = CInt(Request.Form("order[0][column]"))
97 
    Dim sortDir : sortDir = " " & Request.QueryString("order[0][dir]")
 99 
    Dim sortDir : sortDir = " " & Request.Form("order[0][dir]")
98 
 
 100 
 
99 
    Dim splitArg: splitArg = Split( sortCols(sortCol), "," )
 101 
    Dim splitArg: splitArg = Split( sortCols(sortCol), "," )
100 
    Dim splitItem, joiner
 102 
    Dim splitItem, joiner
101 
    joiner = ""
 103 
    joiner = ""
102 
    for each splitItem in splitArg
 104 
    for each splitItem in splitArg
Line 110... Line 112...
110 
    sortString = " ORDER BY " & sortString
 112 
    sortString = " ORDER BY " & sortString
111 
End If
 113 
End If
112 
 
 114 
 
113 
' Filter (search )
 115 
' Filter (search )
114 
Dim searchString
 116 
Dim searchString
115 
If Request.QueryString("search[value]") <> "" Then
 117 
If Request.Form("search[value]") <> "" Then
116 
    searchString = " AND upper(p.PKG_NAME) LIKE upper('%" & Request.QueryString("search[value]") & "%')"
118 
    searchString = " AND upper(p.PKG_NAME) LIKE upper('%" & Request.Form("search[value]") & "%')"
117 
End If
 119 
End If
118 
 
 120 
 
119 
Dim whereString
 121 
Dim whereString
120 
If parRtagId <> "" Then
 122 
If parRtagId <> "" Then
121 
    whereString = " AND bi.rtag_id = " &  parRtagId
 123 
    whereString = " AND bi.rtag_id = " &  parRtagId
122 
End If
 124 
End If
123 
 
 125 
 
- 
 
 126 
' Limit to only new packages
- 
 
 127 
Dim onlyNewString : onlyNewString = ""
- 
 
 128 
If parOnlyNew Then
- 
 
 129 
    onlyNewString = onlyNewString & " AND bi.reason = 'N' "
- 
 
 130 
End If
- 
 
 131 
If parOnlyComplete Then
- 
 
 132 
    onlyNewString = onlyNewString & " AND bi.state = 'C' "
- 
 
 133 
End If
- 
 
 134 
 
124 
Dim BasicSql
 135 
Dim BasicSql
125 
BasicSql =  "SELECT bi.PV_ID, " &_
 136 
BasicSql =  "SELECT bi.PV_ID, " &_
126 
            "  bi.RTAG_ID, " &_
 137 
            "  bi.RTAG_ID, " &_
127 
            "  pv.pkg_id, " &_
 138 
            "  pv.pkg_id, " &_
128 
            "  pj.PROJ_NAME, " &_
 139 
            "  pj.PROJ_NAME, " &_
Line 141... Line 152...
141 
            "  PACKAGE_VERSIONS pv " &_
 152 
            "  PACKAGE_VERSIONS pv " &_
142 
            "WHERE bi.PV_ID = pv.pv_id " &_
 153 
            "WHERE bi.PV_ID = pv.pv_id " &_
143 
            "AND pv.PKG_ID  = p.PKG_ID " &_
 154 
            "AND pv.PKG_ID  = p.PKG_ID " &_
144 
            "AND bi.RTAG_ID = rt.RTAG_ID " &_
 155 
            "AND bi.RTAG_ID = rt.RTAG_ID " &_
145 
            "AND rt.proj_id = pj.proj_id " &_
 156 
            "AND rt.proj_id = pj.proj_id " &_
- 
 
 157 
            onlyNewString &_
146 
            noBuildTime &_
 158 
            noBuildTime &_
147 
            whereString &_
 159 
            whereString &_
148 
            searchString &_
 160 
            searchString &_
149 
            sortString
 161 
            sortString
150 
 
 162