Subversion Repositories DevTools

Rev

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