Subversion Repositories DevTools

Rev

Rev 5050 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5050 Rev 5052
Line 23... Line 23...
23 
'------------ Variable Definition -------------
 23 
'------------ Variable Definition -------------
24 
Dim result : result = -1
 24 
Dim result : result = -1
25 
Dim SqlQry
 25 
Dim SqlQry
26 
Dim rsQry
 26 
Dim rsQry
27 
Dim sdktag_id : sdktag_id = Request("sdktag_id")
 27 
Dim sdktag_id : sdktag_id = Request("sdktag_id")
- 
 
 28 
Dim sdk_statefilter : sdk_statefilter = Request("sdk_statefilter")
28 
 
 29 
 
29 
' Init the output JSON class
 30 
' Init the output JSON class
30 
'   Operations can add data
 31 
'   Operations can add data
31 
'   Default data will be added at the end
 32 
'   Default data will be added at the end
32 
Dim oJSON :Set oJSON = New aspJSON
 33 
Dim oJSON :Set oJSON = New aspJSON
Line 95... Line 96...
95 
'Response.Write "<pre>"
 96 
'Response.Write "<pre>"
96 
Dim sortString
 97 
Dim sortString
97 
If Request.QueryString("iSortCol_0") <> "" Then
 98 
If Request.QueryString("iSortCol_0") <> "" Then
98 
    sortString = " ORDER BY " & sortCols(CInt(Request.QueryString("iSortCol_0")))
 99 
    sortString = " ORDER BY " & sortCols(CInt(Request.QueryString("iSortCol_0")))
99 
    sortString = sortString & " " & Request.QueryString("sSortDir_0")
 100 
    sortString = sortString & " " & Request.QueryString("sSortDir_0")
- 
 
 101 
    sortString = sortString & "," & sortCols(CInt(1)) & " asc"
100 
Else
 102 
Else
101 
    sortString = " ORDER BY " & sortCols(CInt(1)) & " asc"
 103 
    sortString = " ORDER BY " & sortCols(CInt(1)) & " asc"
102 
End If
 104 
End If
103 
 
 105 
 
104 
' Filter (search )
 106 
' Filter (search )
105 
Dim searchString
 107 
Dim searchString : searchString = ""
106 
If Request.QueryString("sSearch") <> "" Then
 108 
If Request.QueryString("sSearch") <> "" Then
107 
    searchString = " AND upper(pkg_name) LIKE upper('%" & Request.QueryString("sSearch") & "%')"
109 
    searchString = " AND upper(pkg_name) || '_' || UPPER(pv.pkg_version) LIKE upper('%" & Request.QueryString("sSearch") & "%')"
- 
 
 110 
End If
- 
 
 111 
 
- 
 
 112 
If sdk_statefilter Then
- 
 
 113 
    searchString = searchString & " AND sc.sdkpkg_state in ('E')"
108 
End If
 114 
End If
109 
 
 115 
 
110 
' Create a list of cols that we need. Avoids ambiguity in selections
 116 
' Create a list of cols that we need. Avoids ambiguity in selections
111 
Dim x,colList,colListJoin
 117 
Dim x,colList,colListJoin
112 
For x = Lbound(dataCols) to Ubound(dataCols)
 118 
For x = Lbound(dataCols) to Ubound(dataCols)