Subversion Repositories DevTools

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

<!--#include file="common/globals.asp"-->
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/_popup_window_common.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="upload/clsUpload.asp"-->
<%
' Set rfile parameter. This is a return page after Login
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim parPv_id
Dim objUpload
Dim sFileName
Dim sPath
Dim newID
Dim retErrCode
Dim sPkgName
Dim sPkgVersion
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set objUpload = New clsUpload
'parPv_id = objUpload.Fields("pv_id").Value
'----------------------------------------------
%>
<%
Sub Update_Unit_Test ( nTest_id, nTestTypeId, nPv_id, sTest_summary, sNumOf_Test, sCompletion_date, sResults_attachment, _
                                        sResults_url, nFileSize, outFileName )
        Dim retErrCode
        
        OraDatabase.Parameters.Add "TEST_ID",                   nTest_id,                       ORAPARM_INPUT,  ORATYPE_NUMBER
        OraDatabase.Parameters.Add "TEST_TYPE_ID",              nTestTypeId,            ORAPARM_INPUT,  ORATYPE_NUMBER
        OraDatabase.Parameters.Add "PV_ID",                     nPv_id,                         ORAPARM_INPUT,  ORATYPE_NUMBER
        OraDatabase.Parameters.Add "USER_ID",                   objAccessControl.UserId,                        ORAPARM_INPUT,  ORATYPE_NUMBER  
        OraDatabase.Parameters.Add "TEST_SUMMARY",              sTest_summary,          ORAPARM_INPUT,  ORATYPE_VARCHAR2
        OraDatabase.Parameters.Add "NUMOF_TEST",                sNumOf_Test,            ORAPARM_INPUT,  ORATYPE_VARCHAR2
        OraDatabase.Parameters.Add "COMPLETION_DATE",   sCompletion_date,       ORAPARM_INPUT,  ORATYPE_VARCHAR2
        OraDatabase.Parameters.Add "DPKG_PATH",                 DOC_FOLDER,             ORAPARM_INPUT,  ORATYPE_VARCHAR2        
        OraDatabase.Parameters.Add "enumTEST_TYPE_AUTOMATIC",   enumTEST_TYPE_AUTOMATIC,ORAPARM_INPUT,  ORATYPE_NUMBER

        If CInt(nTestTypeId) = enumTEST_TYPE_AUTOMATIC Then
                If InStr( sResults_url, dpkg_archiveURL & sPkgName &"/"& sPkgVersion ) > 0 Then
                        ' URL is in dpkg_archive, hence remove front URL location
                        OraDatabase.Parameters.Add "RESULTS",           Right( sResults_url, Len(sResults_url) - Len( dpkg_archiveURL & sPkgName &"/"& sPkgVersion ) ),                 ORAPARM_INPUT,  ORATYPE_VARCHAR2
            Else
                        OraDatabase.Parameters.Add "RESULTS",           sResults_url,           ORAPARM_INPUT,  ORATYPE_VARCHAR2
                End If
        Else
                If nFileSize > 0 Then
                        OraDatabase.Parameters.Add "RESULTS",   sResults_attachment,ORAPARM_INPUT,      ORATYPE_VARCHAR2
                Else
                        OraDatabase.Parameters.Add "RESULTS",   NULL,                           ORAPARM_INPUT,  ORATYPE_VARCHAR2
                End If
        End If
        
        ' OUT PARAMETERS
        OraDatabase.Parameters.Add "FILENAME",                  "",                                     ORAPARM_OUTPUT, ORATYPE_VARCHAR2        
                
        OraSession.BeginTrans
        OraDatabase.ExecuteSQL _
        "BEGIN  Update_Unit_Test ( :TEST_ID,"&_
        "                                                       :TEST_TYPE_ID,"&_
        "                           :PV_ID,"&_
        "                           :USER_ID,"&_        
    "                           :TEST_SUMMARY,"&_
        "                           :NUMOF_TEST,"&_
        "                           :COMPLETION_DATE,"&_
        "                           :DPKG_PATH,"&_      
        "                           :enumTEST_TYPE_AUTOMATIC,"&_
        "                           :RESULTS,"&_
        "                           :FILENAME"&_
        "                                                  );  END;"
        
        OraSession.CommitTrans
        
        
        outFileName = OraDatabase.Parameters("FILENAME").Value
        
        
        OraDatabase.Parameters.Remove "TEST_ID"
        OraDatabase.Parameters.Remove "TEST_TYPE_ID"
        OraDatabase.Parameters.Remove "PV_ID"
        OraDatabase.Parameters.Remove "USER_ID" 
        OraDatabase.Parameters.Remove "TEST_SUMMARY"
        OraDatabase.Parameters.Remove "NUMOF_TEST"
        OraDatabase.Parameters.Remove "COMPLETION_DATE"
        OraDatabase.Parameters.Remove "DPKG_PATH"
        OraDatabase.Parameters.Remove "enumTEST_TYPE_AUTOMATIC"
        OraDatabase.Parameters.Remove "RESULTS"
        OraDatabase.Parameters.Remove "FILENAME"
        
        
End Sub
'--------------------------------------------------------------------------------------------------
%>
<%
'-----------------------  MAIN LINE  ---------------------------

'--- Process submition ---

If (objUpload.Fields("pv_id").Value <> "") Then
        
        ' Insert Unit Test Record
        Call Get_Pkg_Short_Info(  objUpload.Fields("pv_id").Value, NULL, sPkgName, sPkgVersion, NULL, NULL, NULL )

        'Call Update_Unit_Test ( objUpload.Fields("test_id").Value, _
        '                                        objUpload.Fields("test_type_id").Value, _
        '                                        objUpload.Fields("pv_id").Value, _
        '                                        objUpload.Fields("test_summary").Value, _
        '                                        objUpload.Fields("numof_test").Value, _
        '                                        objUpload.Fields("completion_date").Value, _
        '                                        objUpload.Fields("results_file").FileName, _
        '                                        objUpload.Fields("results_url").Value, _
        '                                        objUpload.Fields("results_file").Length, _
        '                                        sFileName)
                                                  
        'If retErrCode <> 0 Then
        '       OraSession.RollBack
        '       Call RaiseMsg ( enum_MSG_DUPLICATE_UT, objUpload.Fields("test_name").Value )
        'End If
        
        ' Upload File
        'On Error Resume Next
        If objUpload.Fields("results_file").FileName <> "" Then
                
                If objUpload.Fields("results_file").Length > 0 Then
                        ' Compile path to save file to
                        sPath = Server.MapPath( TEMP_FOLDER )
                        Call Create_Folder ( sPath, sPkgName )
                        
                        sPath = sPath & "\" & sPkgName
                        Call Create_Folder ( sPath, sPkgVersion )
                        
                        sPath = sPath &"\"& sPkgVersion
                        Call Create_Folder ( sPath, DOC_FOLDER )
                        
                        sPath = sPath &"\"& DOC_FOLDER &"\"& sFileName
                        Call DeleteFile( sPath )                ' Delete the file if already exists
                        
                        ' Save the binary data to the file system
                        objUpload("results_file").SaveAs sPath
                End If
                
        End If
        
        
        If Err.number <> 0 Then
                Call RaiseMsgInParent ( enum_MSG_ERROR, "Upload is not completed.<br>"& Err.description )
        Else
                Call OpenInParentWindow ("fixed_issues.asp?pv_id="& objUpload.Fields("pv_id").Value &"&rtag_id="& objUpload.Fields("rtag_id").Value )
        End If
        
        'Response.write "PLEASE TRY USING THIS LATER! (Debuging)<br>"& objUpload.Fields("pv_id").Value
        
        
        Set objUpload = Nothing
        Call CloseWindow
        
Else
        Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
        Response.write QSTR_All 
        
End If
%>


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