Subversion Repositories DevTools

Rev

Rev 6790 | Rev 7286 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
Option explicit
4
Response.Expires = 0   ' always load the page, dont store
5
%>
6
<%
7
'=====================================================
8
'              Unit Test
9
'=====================================================
10
%>
11
<!--#include file="common/conf.asp"-->
12
<!--#include file="common/globals.asp"-->
13
<!--#include file="common/formating.asp"-->
14
<!--#include file="common/qstr.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="common/common_dbedit.asp"-->
17
<!--#include file="_tabs.asp"-->
18
<!--#include file="common/_popup_window_common.asp"-->
19
<%
20
' Set rfile parameter. This is a return page after Login
21
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
22
'------------ ACCESS CONTROL ------------------
23
%>
24
<!--#include file="_access_control_login.asp"-->
25
<!--#include file="_access_control_general.asp"-->
26
<!--#include file="_access_control_project.asp"-->
27
<%
28
'------------ Variable Definition -------------
29
Dim parPv_id
30
Dim parTest_Type_id
31
Dim rsQry
32
Dim sPkgName
33
Dim sPkgVersion
34
Dim isDLocked
35
Dim criticalSectionIsEditable
36
'------------ Constants Declaration -----------
37
'------------ Variable Init -------------------
38
parPv_id = Request("pv_id")
39
parTest_Type_id = Request("test_type_id")
6873 dpurdie 40
If parTest_Type_id = "" Then parTest_Type_id = enumTEST_TYPE_AUTOBUILD_UTF
5357 dpurdie 41
'----------------------------------------------
42
%>
43
<%
44
Function SQL_GetTestTypes ( )
45
   SQL_GetTestTypes = _
46
   "   SELECT tt.TEST_TYPE_ID, tt.TEST_TYPE_NAME"&_
47
   "    FROM TEST_TYPES tt"&_
48
   "   WHERE NOT tt.DISPLAY_ORDER IS NULL "&_
49
   "   ORDER BY tt.DISPLAY_ORDER"
50
End Function
51
%>
52
<%
53
'------------ Action Requirements -------------------
54
Call Get_Pkg_Short_Info(  Request("pv_id"), NULL, sPkgName, sPkgVersion, NULL, NULL, isDLocked )
55
criticalSectionIsEditable = Is_Critical_Section_Editable ( isDLocked )
56
 
57
%>
58
<html>
59
<head>
60
<title>Release Manager</title>
61
<link rel="shortcut icon" href="<%=FavIcon%>"/>
62
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
63
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 64
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
65
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
66
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
67
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 68
<!--#include file="_menu_def.asp"-->
69
<script language="JavaScript" type="text/javascript">
70
<!--
71
function ShowField()
72
{
73
   if ( MM_findObj("test_type_id").value == 7 ) {
74
      MM_findObj("DIV_REG_TEST").style.display = "none";
75
      MM_findObj("DIV_AUTOBUILD_TEST").style.display = "block";
76
 
77
   } else {
78
 
79
      MM_findObj("DIV_REG_TEST").style.display = "block";
80
      MM_findObj("DIV_AUTOBUILD_TEST").style.display = "none";
81
 
82
      if ( MM_findObj("test_type_id").value == 5 ) {
83
         // Switch on URL attachment
84
         MM_findObj("spanResultsAttachment").style.display = "none";
85
         MM_findObj("spanResultsUrl").style.display = "block";
86
      } else {
87
         // Switch on File attachment
88
         MM_findObj("spanResultsAttachment").style.display = "block";
89
         MM_findObj("spanResultsUrl").style.display = "none";
90
 
91
      }
92
   }
5590 dpurdie 93
 
94
   // Update iframe size
95
   parent.resizeIframe();
5357 dpurdie 96
}
97
 
98
//-->
99
</script>
100
<!-- TIPS -->
6579 dpurdie 101
<script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>
102
<script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 103
</head>
104
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();ShowField();">
5590 dpurdie 105
<form class="form_tight" action="_new_unit_test.asp" method="post" enctype="multipart/form-data" name="unittest" onSubmit="MM_validateForm('completion_date','Completion Date','RisDate','test_summary','Test Summary','maxLength:4000');return document.MM_returnValue;">
106
   <table border="0" cellspacing="0" cellpadding="2">
5357 dpurdie 107
      <tr>
108
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
109
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
110
               <tr>
111
                  <td width="1%" nowrap class="sublbox_hitem"><img src="images/h_trsp_dot.gif" width="10" height="30">
112
                     <%If Request("save_stat") <> "" Then%>
113
                        Saving complete.
114
                     <%End If%>
115
                  </td>
6790 dpurdie 116
                  <td width="100%" align="left" valign="bottom">
5357 dpurdie 117
                     <!-- TABS ------------------------------------->
118
                     <%Call Generate_Tab_Menu ( TABarray6D, "Unit Test Details", "blue" )%>
119
                  </td>
120
               </tr>
121
               <tr>
122
                  <td background="images/lbox_bg_blue.gif"></td>
123
                  <td background="images/lbox_bg_blue.gif">&nbsp;</td>
124
               </tr>
125
            </table>
126
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
127
               <tr>
128
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Test Type <%=Quick_Help ( "ut_test_type" )%></td>
129
               </tr>
130
               <tr>
131
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
132
                     <select name="test_type_id" class="form_item" onchange="ShowField();">
133
                        <%
134
                        Set rsQry = OraDatabase.CreateDynaset( SQL_GetTestTypes(), cint(0))
135
 
136
                        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
137
                           If (isDLocked <> "Y") OR _
138
                              (rsQry("test_type_id") <> CStr(enumTEST_TYPE_AUTOBUILD_UTF)) OR _
139
                              ((rsQry("test_type_id") = CStr(enumTEST_TYPE_AUTOBUILD_UTF)) AND (isDLocked = "Y" AND criticalSectionIsEditable)) Then
140
                              %>
141
                              <option value="<%=rsQry("test_type_id")%>" <%If CInt(parTest_Type_id) = CInt(rsQry("test_type_id")) Then%>SELECTED<%End If%>><%=rsQry("test_type_name")%></option>
142
                              <%
143
                           End If
144
                           rsQry.MoveNext
145
                        WEnd
146
 
147
                        rsQry.Close
148
                        Set rsQry = Nothing
149
                        %>
150
                     </select>
151
                  </td>
152
               </tr>
153
            </table>
154
            <br>
155
 
156
            <DIV id="DIV_REG_TEST" style="display:block;">
157
               <table width="100%" border="0" cellspacing="1" cellpadding="2">
158
                  <tr>
159
                     <td width="1%">&nbsp;</td>
160
                     <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
161
                     <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">
162
                        <SPAN name="spanResultsAttachment" id="spanResultsAttachment">
163
                           Results File Attachment <br><input name="results_file" type="file" class="form_item" size="65" class="form_txt">
164
                        </SPAN>
165
                        <SPAN name="spanResultsUrl" id="spanResultsUrl" style="display:none;">
166
                           Results URL <br><input name="results_url" type="text" class="form_item" id="results_url" size="80" maxlength="2000" class="form_txt" value="<%=dpkg_archiveURL & sPkgName &"/"& sPkgVersion &"/doc/"%>"><br>
167
                           <span class="rep_small">NOTE: Root dpkg_archive URL is <%=dpkg_archiveURL%></span>
168
                        </SPAN>
169
                     </td>
170
                  </tr>
171
                  <tr>
172
                     <td>&nbsp;</td>
173
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">
174
                        Passed
175
                        <br>
176
                        # / Total <%=Quick_Help ( "ut_passed" )%>
177
                     </td>
178
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
179
                        <input name="numof_test" type="text" class="form_item" id="numof_test" size="20">
180
                     </td>
181
                  </tr>
182
                  <tr>
183
                     <td>&nbsp;</td>
184
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Completion Date </td>
185
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
186
                        <input name="completion_date" type="text" class="form_item" id="completion_date" value="<%=EuroDate (Date) %>" size="20" maxlength="10">
187
                     </td>
188
                  </tr>
189
                  <tr>
190
                     <td width="1%">&nbsp;</td>
191
                     <td nowrap width="1%" valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Test Summary <%=Quick_Help ( "ut_summary" )%></td>
192
                     <td width="100%" valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
193
                        <textarea cols="80" rows="20" name="test_summary" class="form_item" id="test_summary"></textarea>
194
                     </td>
195
                  </tr>
196
               </table>
197
            </DIV>
198
 
199
            <DIV id="DIV_AUTOBUILD_TEST" style="display:none;">
200
               <table width="100%" border="0" cellspacing="1" cellpadding="2">
201
                  <tr>
202
                     <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
203
                        Refer to <a href="<%=BMS_QUALITY_URL%>" class="txt_linked" target="_blank">VIX Quality Management System</a>
204
                        <p>Navigate to <a href="<%=DocBrowseLink%>?pgid=2&pid=51&cid=1426" class="txt_linked" target="_blank">Technical Solution Process Area</a> and read documents related to Unit Testing. ie:<ul>
205
                        <li><a href="<%=DocRepositiryLink%>bms-00369" class="txt_linked" target="_blank">Unit Test Guidelines</a> [BMS-00369]
206
                        <li><a href="<%=DocRepositiryLink%>techgp-00054" class="txt_linked" target="_blank">Unit Testing at ERG</a>  [TECHGP-00054]
207
                        </ul>
208
                     </td>
209
                  </tr>
210
               </table>
211
            </DIV>
212
         </td>
213
      </tr>
214
      <tr>
5590 dpurdie 215
         <td width="100%" align="right" nowrap class="wform_ttl">
216
            <SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Uploading... Please Wait!</SPAN>&nbsp;
217
            <input type="submit" name="btn" value="Submit" class="form_btn_comp">
218
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="parent.closeIFrame();">
219
         </td>
5357 dpurdie 220
      </tr>
221
   </table>
222
   <input type="hidden" name="pv_id" value="<%=parPv_id%>">
223
   <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
224
</form>
225
</body>
226
</html>
227
<!-- DESTRUCTOR ------->
228
<!--#include file="common/destructor.asp"-->