Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
Option explicit
4
Response.Expires = 0	' always load the page, dont store
5
%>
6
<%
7
'=====================================================
8
'					Update 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
<!--#include file="upload/clsUpload2.asp"-->
20
<%
21
' Set rfile parameter. This is a return page after Login
22
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
23
'------------ ACCESS CONTROL ------------------
24
%>
25
<!--#include file="_access_control_login.asp"-->
26
<!--#include file="_access_control_general.asp"-->
27
<!--#include file="_access_control_project.asp"-->
28
<%
29
'------------ Variable Definition -------------
30
Dim parPv_id
31
Dim parTest_id
32
Dim rsQry
33
Dim rsUsr
34
Dim isDLocked
35
Dim objUpload
36
Dim sPath
37
Dim sPkgName
38
Dim sPkgVersion
39
Dim outFileName
40
'------------ Constants Declaration -----------
41
'------------ Variable Init -------------------
42
Set objUpload = New clsUpload
43
parPv_id = Request("pv_id")
44
parTest_id = Request("test_id")
45
parRtag_id = Request("rtag_id")
46
'----------------------------------------------
47
%>
48
<%
49
Sub Get_This_Unit_Test ( nTest_id, nPv_id, oRS )
50
	Dim Query_String
51
	Query_String = _
52
	"   SELECT tt.TEST_TYPE_NAME,"&_
53
	"		   ut.*"&_
54
	"	  FROM UNIT_TESTS ut,"&_
55
	"	  	   TEST_TYPES tt"&_
56
	"	 WHERE ut.TEST_TYPES_FK = tt.TEST_TYPE_ID"&_
57
	"	   AND ut.PV_ID = :PV_ID"&_
58
	"	   AND ut.TEST_ID = :TEST_ID"
59
	Query_String = Replace( Query_String, ":TEST_ID", nTest_id )
60
	Query_String = Replace( Query_String, ":PV_ID", nPv_id )
61
 
62
	Set oRS = OraDatabase.CreateDynaset( Query_String, cint(0))
63
End Sub
64
 
65
Function SQL_Get_Users ( nUser_id )
66
	SQL_Get_Users = _
67
	" SELECT usr.user_id, usr.full_name,"&_
68
	"	     DECODE(usr.user_id, "& nUser_id &", 'selected', NULL) AS selected"&_
69
	"   FROM USERS usr"&_
70
	"  WHERE usr.disabled = 'N'"&_
71
	" ORDER BY UPPER(usr.full_name)"
72
 
73
End Function
74
'----------------------------------------------------------------------------------------
75
%>
76
<%
77
'------------ Action Requirements -------------------
78
Call Get_Pkg_Short_Info(  parPv_id, NULL, NULL, NULL, NULL, NULL, isDLocked )
79
If isDLocked = "Y" Then
80
	' Move to Acceptance id package is locked
81
	Response.Redirect( "_wform_update_unit_test_acceptance.asp?test_id="& Request("test_id") &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id  )
82
End If
83
 
84
Call Get_This_Unit_Test ( parTest_id, parPv_id, rsQry )
85
Call Get_Pkg_Short_Info(  Request("pv_id"), NULL, sPkgName, sPkgVersion, NULL, NULL, NULL )
86
%>
87
 
88
<html>
89
<head>
90
<title>Release Manager</title>
91
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
92
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
93
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
94
<link rel="stylesheet" href="images/navigation.css" type="text/css">
95
<script language="JavaScript" src="images/common.js"></script>
96
<!--#include file="_menu_def.asp"-->
97
<!-- TIPS -->
98
<script language="JavaScript" src="images/tipster.js"></script>
99
<script language="JavaScript" src="images/_help_tips.js"></script>
100
</head>
101
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
102
<!-- TIPS LAYERS -------------------------------------->
103
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
104
<!----------------------------------------------------->
105
<form action="_update_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 width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
107
    <tr> 
108
      <td width="1%" background="images/lbox_bg_orange.gif"><img src="images/i_unit_test_off.gif" width="18" height="25" hspace="5" border="0"></td>
109
      <td width="1%" background="images/lbox_bg_blue.gif" nowrap class="wform_ttl">&nbsp;Unit  Test</td>
110
	  <td width="100%" background="images/lbox_bg_blue.gif" align="right" nowrap class="wform_ttl">
111
		<input type="submit" name="btn" value="Save" class="form_btn">
112
		<input type="reset" name="btn" value="Close" class="form_btn" onclick="self.close()">
113
      </td>
114
      <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap><img src="images/h_trsp_dot.gif" width="5" height="22"></td>
115
    </tr>
116
    <tr> 
117
      <td height="100%" width="1%">&nbsp;</td>
118
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif"> 
119
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
120
          <tr>
121
            <td width="1%" nowrap class="sublbox_hitem"><img src="images/h_trsp_dot.gif" width="10" height="30"><%If Request("save_stat") <> "" Then%>Saving complete.<%End If%></td>
122
            <td width="100%" align="right" valign="bottom">
123
			<!-- TABS ------------------------------------->
124
			<%Call Generate_Tab_Menu ( TABarray6, "Unit Test Details", "blue" )%>
125
			</td>
126
          </tr>
127
          <tr>
128
            <td background="images/lbox_bg_blue.gif"></td>
129
            <td background="images/lbox_bg_blue.gif">&nbsp;</td>
130
          </tr>
131
        </table>
132
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
133
          <tr> 
134
            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
135
            <td width="1%" nowrap class="form_group" valign="bottom"></td>
136
            <td nowrap width="100%">&nbsp; </td>
137
          </tr>
138
          <tr> 
139
            <td>&nbsp;</td>
140
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Test 
141
              Type <%=Quick_Help ( "ut_test_type" )%></td>
142
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
143
			<select name="test_type" class="form_item" disabled>
144
				<option><%=rsQry("test_type_name")%></option>
145
            </select></td>
146
          </tr>
147
          <tr> 
148
            <td>&nbsp;</td>
149
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
150
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">
151
			<%If rsQry("test_types_fk") = 5 Then%>
152
			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> 
153
			<span class="rep_small">NOTE: Root dpkg_archive URL is <%=dpkg_archiveURL%></span>
154
			<%Else%>
155
			Results File Attachment <br><input name="results_file" type="file" class="form_item" size="65" class="form_txt">
156
			<%End If%>
157
 
158
 
159
 
160
            </td>
161
          </tr>
162
          <tr>
163
            <td>&nbsp;</td>
164
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Passed<br>
165
              # / Total <%=Quick_Help ( "ut_passed" )%></td>
166
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><input name="numof_test" type="text" class="form_item" id="numof_test" value="<%=rsQry("numof_test")%>" size="20">
167
            </td>
168
          </tr>
169
          <tr> 
170
            <td>&nbsp;</td>
171
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Completion 
172
              Date </td>
173
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><input name="completion_date" type="text" class="form_item" id="completion_date" value="<%=EuroDate ( rsQry("completion_date") ) %>" size="20" maxlength="10"> 
174
            </td>
175
          </tr>
176
          <tr> 
177
            <td width="1%">&nbsp;</td>
178
            <td nowrap width="1%" valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Test Summary <%=Quick_Help ( "ut_summary" )%></td>
179
            <td width="100%" valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><textarea cols="80" rows="20" name="test_summary" class="form_item" id="test_summary"><%=rsQry("test_summary")%></textarea> 
180
            </td>
181
          </tr>
182
          <tr> 
183
            <td width="1%">&nbsp;</td>
184
            <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
185
            <td nowrap width="100%"> <p>&nbsp;</p></td>
186
          </tr>
187
      </table> </td>
188
    </tr>
189
    <tr>
190
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
191
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
192
    </tr>
193
  </table>
194
  <input type="hidden" name="save_stat" value="true">
195
  <input type="hidden" name="action" value="true">
196
  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
197
  <input type="hidden" name="test_id" value="<%=parTest_id%>">
198
  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
199
  <input type="hidden" name="test_type_id" value="<%=rsQry("test_types_fk")%>">
200
</form>
201
</body>
202
</html>
203
 
204
<!-- DESTRUCTOR ------->
205
<!--#include file="common/destructor.asp"-->