<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Update 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_id Dim rsQry Dim rsUsr Dim isDLocked Dim sPath Dim sPkgName Dim sPkgVersion Dim outFileName '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = Request("pv_id") parTest_id = Request("test_id") parRtag_id = Request("rtag_id") '---------------------------------------------- %> <% Sub Get_This_Unit_Test ( nTest_id, nPv_id, oRS ) Dim Query_String Query_String = _ " SELECT tt.TEST_TYPE_NAME,"&_ " ut.*"&_ " FROM UNIT_TESTS ut,"&_ " TEST_TYPES tt"&_ " WHERE ut.TEST_TYPES_FK = tt.TEST_TYPE_ID"&_ " AND ut.PV_ID = :PV_ID"&_ " AND ut.TEST_ID = :TEST_ID" Query_String = Replace( Query_String, ":TEST_ID", nTest_id ) Query_String = Replace( Query_String, ":PV_ID", nPv_id ) Set oRS = OraDatabase.CreateDynaset( Query_String, cint(0)) End Sub Function SQL_Get_Users ( nUser_id ) SQL_Get_Users = _ " SELECT usr.user_id, usr.full_name,"&_ " DECODE(usr.user_id, "& nUser_id &", 'selected', NULL) AS selected"&_ " FROM USERS usr"&_ " WHERE usr.disabled = 'N'"&_ " ORDER BY UPPER(usr.full_name)" End Function '---------------------------------------------------------------------------------------- %> <% '------------ Action Requirements ------------------- Call Get_Pkg_Short_Info( parPv_id, NULL, NULL, NULL, NULL, NULL, isDLocked ) If isDLocked = "Y" Then ' Move to Acceptance id package is locked Call Destroy_All_Objects Response.Redirect( "_wform_update_unit_test_acceptance.asp?test_id="& Request("test_id") &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id ) End If Call Get_This_Unit_Test ( parTest_id, parPv_id, rsQry ) Call Get_Pkg_Short_Info( Request("pv_id"), NULL, sPkgName, sPkgVersion, NULL, NULL, NULL ) %>

<%If Request("save_stat") <> "" Then%>Saving complete.<%End If%> <%Call Generate_Tab_Menu ( TABarray6, "Unit Test Details", "blue" )%>       Test Type <%=Quick_Help ( "ut_test_type" )%> <%=rsQry("test_type_name")%>   <%If rsQry("test_types_fk") = 5 Then%> Results URL "> NOTE: Root dpkg_archive URL is <%=dpkg_archiveURL%> <%Else%> Results File Attachment <%End If%>   Passed # / Total <%=Quick_Help ( "ut_passed" )%> " size="20">   Completion Date " size="20" maxlength="10">   Test Summary <%=Quick_Help ( "ut_summary" )%> <%=rsQry("test_summary")%>

">