WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/inManifest_state_json.asp



<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'       inManifest_state_json
'=====================================================
%>
<%
Option explicit
' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK)

'
'   Global Filter
'
Dim showHideFilter : showHideFilter = ""
If parShow = "true" Then
    showHideFilter = showHideFilter & " AND rc.IN_MANIFEST = 'Y'" 
End If
If parShowImg = "true" Then
    showHideFilter = showHideFilter & " AND NVL2(s3.PV_ID, 1, 0) = 1" 
End If
 

 
SqlQry =  "select  count(*) as count " &_ 
            " FROM package_versions pv, " &_
            "  RELEASE_CONTENT rc, " &_
            "  PACKAGES p, " &_
            "  (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 " &_
            " WHERE rc.rtag_id = " & parRtagId &_
            "  AND rc.pv_id     = pv.pv_id " &_
            "  AND p.PKG_ID = pv.pkg_id " &_
            "  AND s3.pv_id(+) = rc.pv_id " &_
            searchString &_
            showHideFilter
 
oJSON.data("CountSqlQry") = SqlQry
On Error Resume Next

        "pv.pkg_id", _
        "p.PKG_NAME", _
        "pv.PKG_VERSION", _
        "pv.PV_DESCRIPTION", _
        "pv.v_ext", _
        "rc.IN_MANIFEST", _
        "pv.COMMENTS" )
 
 
'   Define array of colums to sort by
'       Must match user sort column request
Dim sortCols: sortCols = Array ( _
        "pv.pv_id",_
        "UPPER(p.PKG_NAME)",_
        "UPPER(pv.PKG_VERSION)",_
        "UPPER(pv.v_ext)",_
        "UPPER(pv.PV_DESCRIPTION)",_
        "UPPER(rc.IN_MANIFEST)" )
 
 
' Dim determine sorting options
'On Error goto 0
'Response.Write "<pre>"
 

Dim BasicSql
BasicSql =  "select " & colList &_ 
            " FROM package_versions pv, " &_
            "  RELEASE_CONTENT rc, " &_
            "  PACKAGES p, " &_
            "  (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 " &_
            " WHERE rc.rtag_id = " & parRtagId &_
            "  AND rc.pv_id     = pv.pv_id " &_
            "  AND p.PKG_ID = pv.pkg_id " &_
            "  AND s3.pv_id(+) = rc.pv_id " &_
            searchString &_
            showHideFilter &_
            sortString
 
SqlQry = "select * from ( "&_

        Dim pkg_version  : pkg_version = fields(3)
        Dim description  : description = Server.HTMLEncode(fields(4))
        Dim v_ext        : v_ext = fields(5)
        Dim state        : state = fields(6)
        Dim comments     : comments = CleanUpJson(Server.HTMLEncode(fields(7)))
 
 
        Set fields = nothing
 
        newitem(0) = pv_id
        newitem(1) = "<a href=view_by_version.asp?pkg_id=" & pkg_id & "&fpkgversion=*" & v_ext & " title=""" & description & """>" & pkg_name & "</a>"
        newitem(2) = "<a href='fixed_issues.asp?pv_id=" & pv_id & "&rtag_id=" & parRtagId &"' title=""" & comments & """>" & pkg_version & "</a>"
        newitem(3) = v_ext
        newitem(4) = description
        newitem(5) = state
 
 
        rsQry.MoveNext
   Wend
End IF
 

Rev 7417	Rev 7468
Line 1...	Line 1...
1	`<%@LANGUAGE="VBSCRIPT"%>`	1	`<%@LANGUAGE="VBSCRIPT"%>`
2	`<%`	2	`<%`
3	`'=====================================================`	3	`'=====================================================`
4	`' s3Sync_state_json`	4	`' inManifest_state_json`
5	`'=====================================================`	5	`'=====================================================`
6	`%>`	6	`%>`
7	`<%`	7	`<%`
8	`Option explicit`	8	`Option explicit`
9	`' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK)`	9	`' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK)`
Line 35...	Line 35...
35	`'`	35	`'`
36	`' Global Filter`	36	`' Global Filter`
37	`'`	37	`'`
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.IN_MANIFEST = 'Y'"`
41	`End If`	41	`End If`
42	`If parShowImg = "true" Then`	42	`If parShowImg = "true" Then`
43	`showHideFilter = showHideFilter & " AND NVL2(s3.PV_ID, 1, 0) = 1"`	43	`showHideFilter = showHideFilter & " AND NVL2(s3.PV_ID, 1, 0) = 1"`
44	`End If`	44	`End If`
45		45
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 = 's3Transfer.json' AND RCP.FILE_PATH IS NULL ) 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 &_`
67	`showHideFilter`	67	`showHideFilter`
68		68
69	`oJSON.data("CountSqlQry") = SqlQry`	69	`oJSON.data("CountSqlQry") = SqlQry`
70	`On Error Resume Next`	70	`On Error Resume Next`
Line 105...	Line 105...
105	`"pv.pkg_id", _`	105	`"pv.pkg_id", _`
106	`"p.PKG_NAME", _`	106	`"p.PKG_NAME", _`
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.IN_MANIFEST", _`
111	`"pv.COMMENTS", _`	111	`"pv.COMMENTS" )`
112	`"NVL2(s3.PV_ID, 1, 0) as s3able" )`	-
113		112
114	`' Define array of colums to sort by`	113	`' Define array of colums to sort by`
115	`' Must match user sort column request`	114	`' Must match user sort column request`
116	`Dim sortCols: sortCols = Array ( _`	115	`Dim sortCols: sortCols = Array ( _`
117	`"pv.pv_id",_`	116	`"pv.pv_id",_`
118	`"UPPER(p.PKG_NAME)",_`	117	`"UPPER(p.PKG_NAME)",_`
119	`"UPPER(pv.PKG_VERSION)",_`	118	`"UPPER(pv.PKG_VERSION)",_`
120	`"UPPER(pv.v_ext)",_`	119	`"UPPER(pv.v_ext)",_`
121	`"UPPER(pv.PV_DESCRIPTION)",_`	120	`"UPPER(pv.PV_DESCRIPTION)",_`
122	`"UPPER(rc.S3SYNC)",_`	121	`"UPPER(rc.IN_MANIFEST)" )`
123	`"NVL2(s3.PV_ID, 1, 0)" )`	-
124		122
125	`' Dim determine sorting options`	123	`' Dim determine sorting options`
126	`'On Error goto 0`	124	`'On Error goto 0`
127	`'Response.Write "<pre>"`	125	`'Response.Write "<pre>"`
128		126
Line 151...	Line 149...
151	`Dim BasicSql`	149	`Dim BasicSql`
152	`BasicSql = "select " & colList &_`	150	`BasicSql = "select " & colList &_`
153	`" FROM package_versions pv, " &_`	151	`" FROM package_versions pv, " &_`
154	`" RELEASE_CONTENT rc, " &_`	152	`" RELEASE_CONTENT rc, " &_`
155	`" PACKAGES p, " &_`	153	`" 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 = 's3Transfer.json' AND RCP.FILE_PATH IS NULL ) s3 " &_`	154	`" (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 &_`	155	`" WHERE rc.rtag_id = " & parRtagId &_`
158	`" AND rc.pv_id = pv.pv_id " &_`	156	`" AND rc.pv_id = pv.pv_id " &_`
159	`" AND p.PKG_ID = pv.pkg_id " &_`	157	`" AND p.PKG_ID = pv.pkg_id " &_`
160	`" AND s3.pv_id(+) = rc.pv_id " &_`	158	`" AND s3.pv_id(+) = rc.pv_id " &_`
161	`searchString &_`	159	`searchString &_`
162	`showHideFilter &_`	160	`showHideFilter &_`
163	`sortString`	161	`sortString`
164		162
165	`SqlQry = "select * from ( "&_`	163	`SqlQry = "select * from ( "&_`
Line 195...	Line 193...
195	`Dim pkg_version : pkg_version = fields(3)`	193	`Dim pkg_version : pkg_version = fields(3)`
196	`Dim description : description = Server.HTMLEncode(fields(4))`	194	`Dim description : description = Server.HTMLEncode(fields(4))`
197	`Dim v_ext : v_ext = fields(5)`	195	`Dim v_ext : v_ext = fields(5)`
198	`Dim state : state = fields(6)`	196	`Dim state : state = fields(6)`
199	`Dim comments : comments = CleanUpJson(Server.HTMLEncode(fields(7)))`	197	`Dim comments : comments = CleanUpJson(Server.HTMLEncode(fields(7)))`
200	`Dim s3Able : s3Able = fields(8)`	-
201		198
202	`Set fields = nothing`	199	`Set fields = nothing`
203		200
204	`newitem(0) = pv_id`	201	`newitem(0) = pv_id`
205	`newitem(1) = "<a href=view_by_version.asp?pkg_id=" & pkg_id & "&fpkgversion=*" & v_ext & " title=""" & description & """>" & pkg_name & "</a>"`	202	`newitem(1) = "<a href=view_by_version.asp?pkg_id=" & pkg_id & "&fpkgversion=*" & v_ext & " title=""" & description & """>" & pkg_name & "</a>"`
206	`newitem(2) = "<a href='fixed_issues.asp?pv_id=" & pv_id & "&rtag_id=" & parRtagId &"' title=""" & comments & """>" & pkg_version & "</a>"`	203	`newitem(2) = "<a href='fixed_issues.asp?pv_id=" & pv_id & "&rtag_id=" & parRtagId &"' title=""" & comments & """>" & pkg_version & "</a>"`
207	`newitem(3) = v_ext`	204	`newitem(3) = v_ext`
208	`newitem(4) = description`	205	`newitem(4) = description`
209	`newitem(5) = state`	206	`newitem(5) = state`
210	`newitem(6) = s3Able`	-
211		207
212	`rsQry.MoveNext`	208	`rsQry.MoveNext`
213	`Wend`	209	`Wend`
214	`End IF`	210	`End IF`
215		211

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/inManifest_state_json.asp – Rev 7417 → 7468