Subversion Repositories DevTools

Rev

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

Rev 7395 Rev 7417
Line 38... Line 38...
38 
Dim showHideFilter : showHideFilter = ""
 38 
Dim showHideFilter : showHideFilter = ""
39 
If parShow = "true" Then
 39 
If parShow = "true" Then
40 
    showHideFilter = showHideFilter & " AND rc.S3SYNC = 'Y'"
40 
    showHideFilter = showHideFilter & " AND rc.S3SYNC = 'Y'"
41 
End If
 41 
End If
42 
If parShowImg = "true" Then
 42 
If parShowImg = "true" Then
43 
    showHideFilter = showHideFilter & " AND NVL2(s3.file_path, 1, 0) = 1"
43 
    showHideFilter = showHideFilter & " AND NVL2(s3.PV_ID, 1, 0) = 1"
44 
End If
 44 
End If
45 
 
 45 
 
46 
' Filter (search )
 46 
' Filter (search )
47 
Dim searchString
 47 
Dim searchString
48 
If Request.QueryString("search[value]") <> "" Then
 48 
If Request.QueryString("search[value]") <> "" Then
Line 56... Line 56...
56 
 
 56 
 
57 
SqlQry =  "select  count(*) as count " &_
57 
SqlQry =  "select  count(*) as count " &_
58 
            " FROM package_versions pv, " &_
 58 
            " FROM package_versions pv, " &_
59 
            "  RELEASE_CONTENT rc, " &_
 59 
            "  RELEASE_CONTENT rc, " &_
60 
            "  PACKAGES p, " &_
 60 
            "  PACKAGES p, " &_
61 
			"  (select rcp.* from release_components rcp, release_content rc where rc.rtag_id = "& parRtagId &" and rc.pv_id = rcp.pv_id and rcp.file_name is null and rcp.file_path like 'pkg/S3TRANSFER' ) s3 " &_
 61 
			"  (select rcp.* from release_components rcp, release_content rc where rc.rtag_id = "& parRtagId &" and rc.pv_id = rcp.pv_id AND RCP.FILE_NAME = 's3Transfer.json' AND RCP.FILE_PATH IS NULL ) s3 " &_
62 
            " WHERE rc.rtag_id = " & parRtagId &_
 62 
            " WHERE rc.rtag_id = " & parRtagId &_
63 
            "  AND rc.pv_id     = pv.pv_id " &_
 63 
            "  AND rc.pv_id     = pv.pv_id " &_
64 
            "  AND p.PKG_ID = pv.pkg_id " &_
 64 
            "  AND p.PKG_ID = pv.pkg_id " &_
65 
			"  AND s3.pv_id(+) = rc.pv_id " &_
 65 
			"  AND s3.pv_id(+) = rc.pv_id " &_
66 
            searchString &_
 66 
            searchString &_
Line 107... Line 107...
107 
        "pv.PKG_VERSION", _
 107 
        "pv.PKG_VERSION", _
108 
        "pv.PV_DESCRIPTION", _
 108 
        "pv.PV_DESCRIPTION", _
109 
        "pv.v_ext", _
 109 
        "pv.v_ext", _
110 
        "rc.S3SYNC", _
 110 
        "rc.S3SYNC", _
111 
        "pv.COMMENTS", _
 111 
        "pv.COMMENTS", _
112 
		"NVL2(s3.file_path, 1, 0) as s3able" )
 112 
		"NVL2(s3.PV_ID, 1, 0) as s3able" )
113 
 
 113 
 
114 
'   Define array of colums to sort by
 114 
'   Define array of colums to sort by
115 
'       Must match user sort column request
 115 
'       Must match user sort column request
116 
Dim sortCols: sortCols = Array ( _
 116 
Dim sortCols: sortCols = Array ( _
117 
        "pv.pv_id",_
 117 
        "pv.pv_id",_
118 
        "UPPER(p.PKG_NAME)",_
 118 
        "UPPER(p.PKG_NAME)",_
119 
        "UPPER(pv.PKG_VERSION)",_
 119 
        "UPPER(pv.PKG_VERSION)",_
120 
        "UPPER(pv.v_ext)",_
 120 
        "UPPER(pv.v_ext)",_
121 
        "UPPER(pv.PV_DESCRIPTION)",_
 121 
        "UPPER(pv.PV_DESCRIPTION)",_
122 
        "UPPER(rc.S3SYNC)",_
 122 
        "UPPER(rc.S3SYNC)",_
123 
		"NVL2(s3.file_path, 1, 0)" )
 123 
		"NVL2(s3.PV_ID, 1, 0)" )
124 
 
 124 
 
125 
' Dim determine sorting options
 125 
' Dim determine sorting options
126 
'On Error goto 0
 126 
'On Error goto 0
127 
'Response.Write "<pre>"
 127 
'Response.Write "<pre>"
128 
 
 128 
 
Line 151... Line 151...
151 
Dim BasicSql
 151 
Dim BasicSql
152 
BasicSql =  "select " & colList &_
152 
BasicSql =  "select " & colList &_
153 
            " FROM package_versions pv, " &_
 153 
            " FROM package_versions pv, " &_
154 
            "  RELEASE_CONTENT rc, " &_
 154 
            "  RELEASE_CONTENT rc, " &_
155 
            "  PACKAGES p, " &_
 155 
            "  PACKAGES p, " &_
156 
			"  (select rcp.* from release_components rcp, release_content rc where rc.rtag_id = "& parRtagId &" and rc.pv_id = rcp.pv_id and rcp.file_name is null and rcp.file_path like 'pkg/UBUNTU16' ) s3 " &_
 156 
			"  (select rcp.* from release_components rcp, release_content rc where rc.rtag_id = "& parRtagId &" and rc.pv_id = rcp.pv_id AND RCP.FILE_NAME = 's3Transfer.json' AND RCP.FILE_PATH IS NULL ) s3 " &_
157 
            " WHERE rc.rtag_id = " & parRtagId &_
 157 
            " WHERE rc.rtag_id = " & parRtagId &_
158 
            "  AND rc.pv_id     = pv.pv_id " &_
 158 
            "  AND rc.pv_id     = pv.pv_id " &_
159 
            "  AND p.PKG_ID = pv.pkg_id " &_
 159 
            "  AND p.PKG_ID = pv.pkg_id " &_
160 
			"  AND s3.pv_id(+) = rc.pv_id " &_
 160 
			"  AND s3.pv_id(+) = rc.pv_id " &_
161 
            searchString &_
 161 
            searchString &_