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
        
        OraSession.BeginTrans
        
        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;"
        
        OraSession.CommitTrans
        
        
        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 mendatory parameters are missing!" & "<br>" 'TODO
        Response.write QSTR_All 
        
End If
%>

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