| Line 89... |
Line 89... |
| 89 |
"pv.PV_DESCRIPTION", _
|
89 |
"pv.PV_DESCRIPTION", _
|
| 90 |
"pv.COMMENTS", _
|
90 |
"pv.COMMENTS", _
|
| 91 |
"NVL(pv.V_EXT, '') as V_EXT", _
|
91 |
"NVL(pv.V_EXT, '') as V_EXT", _
|
| 92 |
"TO_CHAR(bi.TIMESTAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as TIMESTAMPTXT", _
|
92 |
"TO_CHAR(bi.TIMESTAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as TIMESTAMPTXT", _
|
| 93 |
"DECODE(bi.reason, 'N', 'New Version', 'R', 'Ripple', 'T', 'Test', 'P', 'Restored', 'Unknown') as REASON" ,_
|
93 |
"DECODE(bi.reason, 'N', 'New Version', 'R', 'Ripple', 'T', 'Test', 'P', 'Restored', 'Unknown') as REASON" ,_
|
| 94 |
"DECODE(bi.state, 'B', 'Buiding', 'C', 'Complete', 'E', 'Error', 'S', 'SysErr', 'Unknown') as STATE" )
|
94 |
"DECODE(bi.state, 'B', 'Buiding', 'C', 'Complete', 'E', 'Error', 'S', 'SysErr', 'Unknown') as STATE" ,_
|
| 95 |
|
- |
|
| - |
|
95 |
"(SELECT COUNT(*) from TEST_RUN tr WHERE tr.build_id = bi.build_id) AS test_count" )
|
| 96 |
|
96 |
|
| 97 |
' Define array of colums to sort by
|
97 |
' Define array of colums to sort by
|
| 98 |
' Must match user sort column request
|
98 |
' Must match user sort column request
|
| 99 |
Dim sortCols: sortCols = Array ( _
|
99 |
Dim sortCols: sortCols = Array ( _
|
| 100 |
"UPPER(pj.PROJ_NAME)",_
|
100 |
"UPPER(pj.PROJ_NAME)",_
|
| 101 |
"UPPER(rt.RTAG_NAME)",_
|
101 |
"UPPER(rt.RTAG_NAME)",_
|
| 102 |
"UPPER(p.PKG_NAME)",_
|
102 |
"UPPER(p.PKG_NAME)",_
|
| 103 |
"UPPER(pv.PKG_VERSION)",_
|
103 |
"UPPER(pv.PKG_VERSION)",_
|
| 104 |
"bi.BUILD_ID",_
|
104 |
"bi.BUILD_ID",_
|
| 105 |
"UPPER(bi.reason)",_
|
105 |
"UPPER(bi.reason)",_
|
| 106 |
"UPPER(bi.state)" )
|
106 |
"UPPER(bi.state)",_
|
| - |
|
107 |
"test_count" )
|
| 107 |
|
108 |
|
| 108 |
' Dim determine sorting options
|
109 |
' Dim determine sorting options
|
| 109 |
'On Error goto 0
|
110 |
'On Error goto 0
|
| 110 |
'Response.Write "<pre>"
|
111 |
'Response.Write "<pre>"
|
| 111 |
Dim sortString
|
112 |
Dim sortString
|
| Line 185... |
Line 186... |
| 185 |
Dim comments : comments = Server.HTMLEncode(fields(9))
|
186 |
Dim comments : comments = Server.HTMLEncode(fields(9))
|
| 186 |
Dim pkg_version : pkg_version = fields(7)
|
187 |
Dim pkg_version : pkg_version = fields(7)
|
| 187 |
Dim timestamp : timestamp = fields(11)
|
188 |
Dim timestamp : timestamp = fields(11)
|
| 188 |
Dim reason : reason = fields(12)
|
189 |
Dim reason : reason = fields(12)
|
| 189 |
Dim state : state = fields(13)
|
190 |
Dim state : state = fields(13)
|
| - |
|
191 |
Dim tcount : tcount = fields(14)
|
| 190 |
|
192 |
|
| 191 |
Set fields = nothing
|
193 |
Set fields = nothing
|
| 192 |
|
194 |
|
| 193 |
newitem(0) = "<a href='rtree.asp?proj_id=" & proj_id & "'>" & proj_name & "</a>"
|
195 |
newitem(0) = "<a href='rtree.asp?proj_id=" & proj_id & "'>" & proj_name & "</a>"
|
| 194 |
newitem(1) = rtag_name
|
196 |
newitem(1) = rtag_name
|
| 195 |
newitem(2) = "<a href=view_by_version.asp?pkg_id=" & pkg_id & "&fpkgversion=*" & v_ext & " title=""" & description & """>" & pkg_name & "</a>"
|
197 |
newitem(2) = "<a href=view_by_version.asp?pkg_id=" & pkg_id & "&fpkgversion=*" & v_ext & " title=""" & description & """>" & pkg_name & "</a>"
|
| 196 |
newitem(3) = "<a href='dependencies.asp?pv_id=" & pv_id & "&rtag_id=" & rtag_id &"' title=""" & comments & """>" & pkg_version & "</a>"
|
198 |
newitem(3) = "<a href='dependencies.asp?pv_id=" & pv_id & "&rtag_id=" & rtag_id &"' title=""" & comments & """>" & pkg_version & "</a>"
|
| 197 |
newitem(4) = timestamp
|
199 |
newitem(4) = timestamp
|
| 198 |
newitem(5) = reason
|
200 |
newitem(5) = reason
|
| 199 |
newitem(6) = state
|
201 |
newitem(6) = state
|
| - |
|
202 |
If tcount <= 0 Then tcount = ""
|
| - |
|
203 |
newitem(7) = tcount
|
| 200 |
|
204 |
|
| 201 |
rsQry.MoveNext
|
205 |
rsQry.MoveNext
|
| 202 |
Wend
|
206 |
Wend
|
| 203 |
End IF
|
207 |
End IF
|
| 204 |
|
208 |
|