Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'                 NOT DONE Unit Test
'               --- PROCESS FORM ---
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0   ' always load the page, dont store
%>

<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/common_dbedit.asp"-->
<%
' Set rfile parameter. This is a return page after Login
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login.asp"-->
<!--#include file="_access_control_general.asp"-->
<!--#include file="_access_control_project.asp"-->
<%
'------------ Variable Definition -------------
Dim parPv_id
Dim parNOT_DONE
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPv_id = Request("pv_id")
parRtag_id = Request("rtag_id")
parNOT_DONE = Request("notdone")
'----------------------------------------------
%>
<%
Sub Insert_NOT_DONE_Unit_Test ( nPv_id )
   ' IN PARAMETERS
   OraDatabase.Parameters.Add "PV_ID",                   nPv_id,                 ORAPARM_INPUT,    ORATYPE_NUMBER
   OraDatabase.Parameters.Add "TEST_TYPE_ID",            enumTEST_TYPE_NOT_DONE, ORAPARM_INPUT,    ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "TEST_SUMMARY",            NULL,                   ORAPARM_INPUT,    ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "NUMOF_TEST",              NULL,                   ORAPARM_INPUT,    ORATYPE_CHAR
   OraDatabase.Parameters.Add "DPKG_PATH",               NULL,                   ORAPARM_INPUT,    ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "RESULTS",                 NULL,                   ORAPARM_INPUT,    ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "COMPLETION_DATE",         EuroDate ( Date ),      ORAPARM_INPUT,    ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "COMPLETED_BY",            objAccessControl.UserId,ORAPARM_INPUT,    ORATYPE_NUMBER
   OraDatabase.Parameters.Add "enumTEST_TYPE_AUTOMATIC", NULL,                   ORAPARM_INPUT,    ORATYPE_NUMBER
   OraDatabase.Parameters.Add "enumTEST_TYPE_NOT_DONE",  NULL,                   ORAPARM_INPUT,    ORATYPE_NUMBER


   ' OUT PARAMETERS
   OraDatabase.Parameters.Add "FILENAME",          NULL,            ORAPARM_OUTPUT, ORATYPE_VARCHAR2

   objEH.TryORA ( OraSession )
   On Error Resume Next

   OraDatabase.ExecuteSQL _
   "BEGIN  New_Unit_Test  ( :PV_ID,"&_
   "                        :TEST_TYPE_ID,"&_
   "                        :TEST_SUMMARY,"&_
   "                        :NUMOF_TEST,"&_
   "                        :DPKG_PATH,"&_
   "                        :RESULTS,"&_
   "                        :COMPLETION_DATE,"&_
   "                        :COMPLETED_BY,"&_
   "                        :enumTEST_TYPE_AUTOMATIC, "&_
   "                        :enumTEST_TYPE_NOT_DONE, "&_
   "                        :FILENAME "&_
   "                    );  END;"

   objEH.CatchORA ( OraSession )

   OraDatabase.Parameters.Remove "PV_ID"
   OraDatabase.Parameters.Remove "TEST_TYPE_ID"
   OraDatabase.Parameters.Remove "TEST_SUMMARY"
   OraDatabase.Parameters.Remove "NUMOF_TEST"
   OraDatabase.Parameters.Remove "DPKG_PATH"
   OraDatabase.Parameters.Remove "RESULTS"
   OraDatabase.Parameters.Remove "COMPLETION_DATE"
   OraDatabase.Parameters.Remove "COMPLETED_BY"
   OraDatabase.Parameters.Remove "enumTEST_TYPE_AUTOMATIC"
   OraDatabase.Parameters.Remove "enumTEST_TYPE_NOT_DONE"
   OraDatabase.Parameters.Remove "FILENAME"

End Sub
%>
<%
'-----------------------  MAIN LINE  ---------------------------

'--- Process submition ---
If parNOT_DONE <> "" AND parPv_id <> "" AND parRtag_id <> "" Then
   ' Insert NOT_DONE record
   Call Insert_NOT_DONE_Unit_Test ( parPv_id )

   Response.Redirect("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&#UNIT_TESTS" )

Else
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
   Response.write QSTR_All

End If
%>

<!-- DESTRUCTOR ------->
<!--#include file="common/destructor.asp"-->