Subversion Repositories DevTools

Rev

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

Rev 5009 Rev 5018
Line 26... Line 26...
26
'------------ ACCESS CONTROL ------------------
26
'------------ ACCESS CONTROL ------------------
27
%>
27
%>
28
<!--#include file="_access_control_general.asp"-->
28
<!--#include file="_access_control_general.asp"-->
29
<%
29
<%
30
'------------ Variable Definition -------------
30
'------------ Variable Definition -------------
31
Dim biQry
-
 
32
Dim utQry
-
 
33
Dim rsQry
-
 
34
'------------ Constants Declaration -----------
31
'------------ Constants Declaration -----------
35
'------------ Variable Init -------------------
32
'------------ Variable Init -------------------
36
'----------------------------------------------
33
'----------------------------------------------
37
'   Get a set of Build Instances for the current package
-
 
38
'       Populates biQry
-
 
39
Sub getBuildInstances
-
 
40
   Dim query
-
 
41
   query = _
-
 
42
        "select bi.BUILD_ID, bi.PV_ID, bi.RTAG_ID,pv.pkg_id," &_
-
 
43
        "  SUBSTR(pj.PROJ_NAME, 0, 60) as PROJ_NAME, " &_
-
 
44
        "  pj.PROJ_ID, " &_
-
 
45
        "  SUBSTR(rt.RTAG_NAME, 0, 60) as RTAG_NAME, " &_
-
 
46
        "  TO_CHAR(bi.TIMESTAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as TIMESTAMP, " &_
-
 
47
        "  DECODE(bi.reason, 'N', 'New Version', 'R', 'Ripple', 'Unknown') as REASON" &_
-
 
48
        " from BUILD_INSTANCES bi, " &_
-
 
49
        "     projects pj, " &_
-
 
50
        "     RELEASE_TAGS rt, " &_
-
 
51
        "     packages p, " &_
-
 
52
        "     PACKAGE_VERSIONS pv" &_
-
 
53
        " where bi.PV_ID = pv.pv_id " &_
-
 
54
        "  and pv.PKG_ID = p.PKG_ID" &_
-
 
55
        "  and bi.RTAG_ID = rt.RTAG_ID" &_
-
 
56
        "  and rt.proj_id = pj.proj_id" &_
-
 
57
        "  and bi.PV_ID = :PV_ID" &_
-
 
58
        " order by bi.BUILD_ID desc"
-
 
59
 
-
 
60
   Set biQry = nothing
-
 
61
 
-
 
62
   OraDatabase.Parameters.Add "PV_ID",   parPv_id,    ORAPARM_INPUT, ORATYPE_NUMBER
-
 
63
   Set biQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
-
 
64
   OraDatabase.Parameters.Remove "PV_ID"
-
 
65
End Sub
-
 
66
 
-
 
67
'   Get a set of test results for a specified build instance
-
 
68
'       Populates utQry
-
 
69
Sub getTestResults(nBuildId)
-
 
70
   Dim query
-
 
71
   query = _
-
 
72
        "select * from " &_
-
 
73
        " TEST_RUN tr" &_
-
 
74
        " where tr.BUILD_ID = :BUILD_ID" &_
-
 
75
        " order by PLATFORM desc,TYPE desc"
-
 
76
 
-
 
77
   Set utQry = nothing
-
 
78
 
-
 
79
   OraDatabase.Parameters.Add "BUILD_ID",   nBuildId,    ORAPARM_INPUT, ORATYPE_NUMBER
-
 
80
   Set utQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
-
 
81
   OraDatabase.Parameters.Remove "BUILD_ID"
-
 
82
End Sub
-
 
83
 
-
 
84
%>
34
%>
85
<html>
35
<html>
86
<title><%=Title(Request("rtag_id"))%></title>
36
<title><%=Title(Request("rtag_id"))%></title>
87
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
37
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
88
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
38
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
89
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
39
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
90
<link rel="stylesheet" href="images/navigation.css" type="text/css">
40
<link rel="stylesheet" href="images/navigation.css" type="text/css">
91
<script language="JavaScript" src="images/common.js"></script>
41
<script language="JavaScript" src="images/common.js"></script>
92
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
-
 
93
 
42
 
94
<!-- DROPDOWN MENUS -->
43
<!-- DROPDOWN MENUS -->
95
<!--#include file="_menu_def.asp"-->
44
<!--#include file="_menu_def.asp"-->
96
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
45
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
97
</head>
46
</head>
Line 149... Line 98...
149
            <td></td>
98
            <td></td>
150
            <td valign="top">
99
            <td valign="top">
151
            <!-- DETAILS ------------------------------------------------->
100
            <!-- DETAILS ------------------------------------------------->
152
            <br>                      
101
            <br>                      
153
                        <span class="body_colb">Build and Unit Test Results</span><br>
102
                        <span class="body_colb">Build and Unit Test Results</span><br>
154
                          <table class="full_table">
-
 
155
                          <tr class="form_field_hdr"> 
-
 
156
                            <td nowrap">Project&nbsp;</td>
-
 
157
                            <td nowrap">Release&nbsp;</td>
-
 
158
                            <td nowrap">Time&nbsp;</td>
-
 
159
                            <td nowrap">Reason&nbsp;</td>
-
 
160
                          </tr>
-
 
161
                          <%
-
 
162
                           Call getBuildInstances                          
-
 
163
                          %>
-
 
164
                          <%If biQry.RecordCount < 1 Then%>
-
 
165
                          <tr class="form_item_grey" > 
-
 
166
                            <td nowrap>&nbsp;</td>
-
 
167
                            <td nowrap>&nbsp;</td>
-
 
168
                            <td nowrap>&nbsp;</td>
-
 
169
                            <td nowrap>&nbsp;</td>
-
 
170
                          </tr>
-
 
171
                          <%End If%>
-
 
172
                          <%While ((NOT biQry.BOF) AND (NOT biQry.EOF))%>
-
 
173
                          <tr class="form_item_grey" > 
-
 
174
                            <td nowrap><%=biQry("proj_name")%></td>
-
 
175
                            <td nowrap><%=biQry("rtag_name")%></td>
-
 
176
                            <td nowrap><%=biQry("timestamp")%></td>
-
 
177
                            <td nowrap><%=biQry("reason")%></td>
-
 
178
                          </tr>
-
 
179
                          <tr>
-
 
180
                            <!-- Display the Unit Test Results -->
103
                            <!--#include file="_unit_test_log.asp"-->  
181
                            <td colspan="4">
-
 
182
                                <table class="full_table">
-
 
183
                                    <tr>
-
 
184
                                    <td width="1%" class="form_field_hdrgap" nowrap">&nbsp;&nbsp;&nbsp;&nbsp;</td>
-
 
185
                                    <td>
-
 
186
                                <table class="full_table">
-
 
187
                                  <%
-
 
188
                                   Call getTestResults(biQry("BUILD_ID"))                          
-
 
189
                                   If utQry.RecordCount < 1 Then
-
 
190
                                   %>
-
 
191
                                  <tr class="form_item_grey" >
-
 
192
                                    <td nowrap>No Test Results for build <%=biQry("BUILD_ID")%></td>
-
 
193
                                  </tr>
-
 
194
                                  <%Else%>
-
 
195
                                  <tr class="form_field_hdr"> 
-
 
196
                                    <td width="1%" nowrap">Platform&nbsp;</td>
-
 
197
                                    <td width="1%" nowrap">Type&nbsp;</td>
-
 
198
                                    <td width="95%" nowrap">Test Name&nbsp;</td>
-
 
199
                                    <td width="1%" nowrap">Duration&nbsp;</td>
-
 
200
                                    <td width="1%" nowrap">Outcome&nbsp;</td>
-
 
201
                                  </tr>
-
 
202
                                  <%End If%>
-
 
203
                                  <%While ((NOT utQry.BOF) AND (NOT utQry.EOF))%>
-
 
204
                                  <tr class="form_item_grey" > 
-
 
205
                                    <td nowrap><%=utQry("platform")%></td>
-
 
206
                                    <td nowrap><%=utQry("type")%></td>
-
 
207
                                    <td nowrap><%=utQry("test_name")%></td>
-
 
208
                                    <td nowrap><%=utQry("time_taken")%></td>
-
 
209
                                    <td nowrap><%=utQry("test_outcome")%></td>
-
 
210
                                  </tr>
-
 
211
                                  <%
-
 
212
                                  utQry.MoveNext
-
 
213
                                  WEnd
-
 
214
                                  utQry.Close
-
 
215
                                  Set utQry = nothing
-
 
216
                                  %>
-
 
217
                                </table>
-
 
218
                                </tr>
-
 
219
                                </table>
-
 
220
                            </td>
-
 
221
                            <!-- End Display the Unit Test Results -->
-
 
222
                          </tr>
-
 
223
                          <%
-
 
224
                          biQry.MoveNext
-
 
225
                          WEnd
-
 
226
                          biQry.Close
-
 
227
                          Set biQry = nothing
-
 
228
                          %>
-
 
229
                        </table>
-
 
230
                        <!------------------------------------------------------------>
104
                        <!------------------------------------------------------------>
231
           <br>
105
           <br>
232
           
106
           
233
            <!-- END DETAILS ------------------------------------------------->
107
            <!-- END DETAILS ------------------------------------------------->
234
            </td>
108
            </td>