<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' Unit Test
'=====================================================
%>
<%
' Set rfile parameter. This is a return page after Login
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim parPv_id
Dim parTest_Type_id
Dim rsQry
Dim sPkgName
Dim sPkgVersion
Dim isDLocked
Dim criticalSectionIsEditable
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPv_id = Request("pv_id")
parTest_Type_id = Request("test_type_id")
If parTest_Type_id = "" Then parTest_Type_id = enumTEST_TYPE_INTERACTIVE
'----------------------------------------------
%>
<%
Function SQL_GetTestTypes ( )
SQL_GetTestTypes = _
" SELECT tt.TEST_TYPE_ID, tt.TEST_TYPE_NAME"&_
" FROM TEST_TYPES tt"&_
" WHERE NOT tt.DISPLAY_ORDER IS NULL "&_
" ORDER BY tt.DISPLAY_ORDER"
End Function
%>
<%
'------------ Action Requirements -------------------
Call Get_Pkg_Short_Info( Request("pv_id"), NULL, sPkgName, sPkgVersion, NULL, NULL, isDLocked )
criticalSectionIsEditable = Is_Critical_Section_Editable ( isDLocked )
%>
Release Manager