Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5751
Line 26... Line 26...
26 
Dim SqlQry
 26 
Dim SqlQry
27 
Dim rsQry
 27 
Dim rsQry
28 
Dim sdktag_id : sdktag_id = Request("sdktag_id")
 28 
Dim sdktag_id : sdktag_id = Request("sdktag_id")
29 
Dim sdk_reftag_id : sdk_reftag_id = Request("sdk_reftag_id") : if sdk_reftag_id = "" Then sdk_reftag_id = 0
 29 
Dim sdk_reftag_id : sdk_reftag_id = Request("sdk_reftag_id") : if sdk_reftag_id = "" Then sdk_reftag_id = 0
30 
Dim sdk_statefilter : sdk_statefilter = Request("sdk_statefilter")
 30 
Dim sdk_statefilter : sdk_statefilter = Request("sdk_statefilter")
- 
 
 31 
Dim sdk_difffilter : sdk_difffilter = Request("sdk_difffilter")
31 
 
 32 
 
32 
' Init the output JSON class
 33 
' Init the output JSON class
33 
'   Operations can add data
 34 
'   Operations can add data
34 
'   Default data will be added at the end
 35 
'   Default data will be added at the end
35 
Dim oJSON :Set oJSON = New aspJSON
 36 
Dim oJSON :Set oJSON = New aspJSON
36 
Dim newitem
 37 
Dim newitem
37 
 
 38 
 
38 
'
 39 
'
39 
' Determine the size of the record set
 40 
' Determine the size of the record set
40 
'   Gives bad results when searching
 41 
'   Gives bad results when searching or with diff filter
41 
Dim MaxCount : MaxCount = 0
 42 
Dim MaxCount : MaxCount = 0
42 
 
 43 
 
43 
SqlQry = "select count(*) as count from SDK_CONTENT skc where SDKTAG_ID = '" & sdktag_id &"'"
 44 
SqlQry = "select count(*) as count from SDK_CONTENT skc where SDKTAG_ID = '" & sdktag_id &"'"
44 
If sdk_statefilter Then
 45 
If sdk_statefilter Then
45 
    SqlQry = SqlQry & " AND skc.sdkpkg_state in ('E')"
 46 
    SqlQry = SqlQry & " AND skc.sdkpkg_state in ('E')"
Line 118... Line 119...
118 
    searchJoin = " AND "
 119 
    searchJoin = " AND "
119 
End If
 120 
End If
120 
 
 121 
 
121 
If sdk_statefilter Then
 122 
If sdk_statefilter Then
122 
    searchString = searchString & searchJoin & "sdkpkg_state in ('E') OR REF_SDKPKG_STATE in ('E')"
 123 
    searchString = searchString & searchJoin & "sdkpkg_state in ('E') OR REF_SDKPKG_STATE in ('E')"
- 
 
 124 
    searchJoin = " AND "
- 
 
 125 
End If
- 
 
 126 
 
- 
 
 127 
If sdk_difffilter Then
- 
 
 128 
    searchString = searchString & searchJoin & "diff != 0"
123 
End If
 129 
End If
124 
 
 130 
 
125 
Dim BasicSql
 131 
Dim BasicSql
126 
BasicSql =  "SELECT * from (" &_
 132 
BasicSql =  "SELECT * from (" &_
127 
            "SELECT  " &_
 133 
            "SELECT  " &_
128 
            "A.PV_ID," &_
 134 
            "A.PV_ID," &_
129 
            "NVL(A.PKG_NAME, B.PKG_NAME) as PKG_NAME," &_
 135 
            "NVL(A.PKG_NAME, B.PKG_NAME) as PKG_NAME," &_
130 
            "A.PKG_VERSION," &_
 136 
            "A.PKG_VERSION," &_
131 
            "B.PKG_VERSION as REF_PKG_VERSION," &_
 137 
            "B.PKG_VERSION as REF_PKG_VERSION," &_
132 
            "A.sdkpkg_state," &_
 138 
            "A.sdkpkg_state," &_
133 
            "B.sdkpkg_state as REF_SDKPKG_STATE" &_
 139 
            "B.sdkpkg_state as REF_SDKPKG_STATE," &_
- 
 
 140 
            "CASE " &_
- 
 
 141 
            "  WHEN "& sdk_reftag_id &" = 0 THEN 0 " &_
- 
 
 142 
            "  WHEN A.PV_ID is null THEN 1 " &_
- 
 
 143 
            "  WHEN B.PV_ID is null THEN 2 " &_
- 
 
 144 
            "  WHEN A.PKG_VERSION != B.PKG_VERSION THEN 3 " &_
- 
 
 145 
            "  WHEN A.sdkpkg_state != B.sdkpkg_state THEN 4 " &_
- 
 
 146 
            "  ELSE 0 " &_
- 
 
 147 
            " END AS diff " &_
134 
            " FROM " &_
 148 
            " FROM " &_
135 
            "(SELECT p.pkg_name || pv.v_ext as mname," &_
 149 
            "(SELECT p.pkg_name || pv.v_ext as mname," &_
136 
            "  sc.pv_id," &_
 150 
            "  sc.pv_id," &_
137 
            "  p.pkg_name," &_
 151 
            "  p.pkg_name," &_
138 
            "  pv.pkg_version," &_
 152 
            "  pv.pkg_version," &_