<%@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
Call Destroy_All_Objects
%>