Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
' 			 	   NEW Unit Test
 4 
'                 NEW Unit Test
5 
'               --- PROCESS FORM ---
 5 
'               --- PROCESS FORM ---
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0   ' always load the page, dont store
12 
%>
 12 
%>
13 
 
 13 
 
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
Line 41... Line 41...
41 
'parPv_id = objUpload.Fields("pv_id").Value
 41 
'parPv_id = objUpload.Fields("pv_id").Value
42 
'----------------------------------------------
 42 
'----------------------------------------------
43 
%>
 43 
%>
44 
<%
 44 
<%
45 
Sub Update_Unit_Test ( nTest_id, nTestTypeId, nPv_id, sTest_summary, sNumOf_Test, sCompletion_date, sResults_attachment, _
 45 
Sub Update_Unit_Test ( nTest_id, nTestTypeId, nPv_id, sTest_summary, sNumOf_Test, sCompletion_date, sResults_attachment, _
46 
					sResults_url, nFileSize, outFileName )
 46 
               sResults_url, nFileSize, outFileName )
47 
	Dim retErrCode
 47 
   Dim retErrCode
48
48 
 
49 
	OraDatabase.Parameters.Add "TEST_ID", 			nTest_id, 			ORAPARM_INPUT, 	ORATYPE_NUMBER
 49 
   OraDatabase.Parameters.Add "TEST_ID",                 nTest_id,                  ORAPARM_INPUT,    ORATYPE_NUMBER
50 
	OraDatabase.Parameters.Add "TEST_TYPE_ID", 		nTestTypeId, 		ORAPARM_INPUT, 	ORATYPE_NUMBER
 50 
   OraDatabase.Parameters.Add "TEST_TYPE_ID",            nTestTypeId,               ORAPARM_INPUT,    ORATYPE_NUMBER
51 
	OraDatabase.Parameters.Add "PV_ID", 			nPv_id, 			ORAPARM_INPUT, 	ORATYPE_NUMBER
 51 
   OraDatabase.Parameters.Add "PV_ID",                   nPv_id,                    ORAPARM_INPUT,    ORATYPE_NUMBER
52 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 			ORAPARM_INPUT, 	ORATYPE_NUMBER
52 
   OraDatabase.Parameters.Add "USER_ID",                 objAccessControl.UserId,   ORAPARM_INPUT,    ORATYPE_NUMBER
53 
	OraDatabase.Parameters.Add "TEST_SUMMARY", 		sTest_summary, 		ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 53 
   OraDatabase.Parameters.Add "TEST_SUMMARY",            sTest_summary,             ORAPARM_INPUT,    ORATYPE_VARCHAR2
54 
	OraDatabase.Parameters.Add "NUMOF_TEST", 		sNumOf_Test, 		ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 54 
   OraDatabase.Parameters.Add "NUMOF_TEST",              sNumOf_Test,               ORAPARM_INPUT,    ORATYPE_VARCHAR2
55 
	OraDatabase.Parameters.Add "COMPLETION_DATE", 	sCompletion_date, 	ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 55 
   OraDatabase.Parameters.Add "COMPLETION_DATE",         sCompletion_date,          ORAPARM_INPUT,    ORATYPE_VARCHAR2
56 
	OraDatabase.Parameters.Add "DPKG_PATH", 		DOC_FOLDER, 		ORAPARM_INPUT, 	ORATYPE_VARCHAR2
56 
   OraDatabase.Parameters.Add "DPKG_PATH",               DOC_FOLDER,                ORAPARM_INPUT,    ORATYPE_VARCHAR2
57 
	OraDatabase.Parameters.Add "enumTEST_TYPE_AUTOMATIC", 	enumTEST_TYPE_AUTOMATIC,ORAPARM_INPUT, 	ORATYPE_NUMBER
 57 
   OraDatabase.Parameters.Add "enumTEST_TYPE_AUTOMATIC", enumTEST_TYPE_AUTOMATIC,   ORAPARM_INPUT,    ORATYPE_NUMBER
58 
 
 58 
 
59 
	If CInt(nTestTypeId) = enumTEST_TYPE_AUTOMATIC Then
 59 
   If CInt(nTestTypeId) = enumTEST_TYPE_AUTOMATIC Then
60 
		If InStr( sResults_url, dpkg_archiveURL & sPkgName &"/"& sPkgVersion ) > 0 Then
 60 
      If InStr( sResults_url, dpkg_archiveURL & sPkgName &"/"& sPkgVersion ) > 0 Then
61 
			' URL is in dpkg_archive, hence remove front URL location
 61 
         ' URL is in dpkg_archive, hence remove front URL location
62 
			OraDatabase.Parameters.Add "RESULTS", 		Right( sResults_url, Len(sResults_url) - Len( dpkg_archiveURL & sPkgName &"/"& sPkgVersion ) ), 		ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 62 
         OraDatabase.Parameters.Add "RESULTS", Right( sResults_url, Len(sResults_url) - Len( dpkg_archiveURL & sPkgName &"/"& sPkgVersion ) ),       ORAPARM_INPUT,    ORATYPE_VARCHAR2
63 
	    Else
 63 
       Else
64 
			OraDatabase.Parameters.Add "RESULTS", 		sResults_url, 		ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 64 
         OraDatabase.Parameters.Add "RESULTS", sResults_url,       ORAPARM_INPUT,    ORATYPE_VARCHAR2
65 
		End If
 65 
      End If
66 
	Else
 66 
   Else
67 
		If nFileSize > 0 Then
 67 
      If nFileSize > 0 Then
68 
			OraDatabase.Parameters.Add "RESULTS", 	sResults_attachment,ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 68 
         OraDatabase.Parameters.Add "RESULTS", sResults_attachment,ORAPARM_INPUT,    ORATYPE_VARCHAR2
69 
		Else
 69 
      Else
70 
			OraDatabase.Parameters.Add "RESULTS", 	NULL,				ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 70 
         OraDatabase.Parameters.Add "RESULTS", NULL,               ORAPARM_INPUT,    ORATYPE_VARCHAR2
71 
		End If
 71 
      End If
72 
	End If
 72 
   End If
73
73 
 
74 
	' OUT PARAMETERS
 74 
   ' OUT PARAMETERS
75 
	OraDatabase.Parameters.Add "FILENAME", 			"",					ORAPARM_OUTPUT, ORATYPE_VARCHAR2
75 
   OraDatabase.Parameters.Add "FILENAME",      "",                 ORAPARM_OUTPUT, ORATYPE_VARCHAR2
76
76 
 
- 
 
 77 
   objEH.TryORA ( OraSession )
77 
	OraSession.BeginTrans
 78 
   On Error Resume Next
- 
 
 79 
 
78 
	OraDatabase.ExecuteSQL _
 80 
   OraDatabase.ExecuteSQL _
79 
	"BEGIN  Update_Unit_Test ( :TEST_ID,"&_
 81 
   "BEGIN  Update_Unit_Test ( :TEST_ID,"&_
80 
	"							:TEST_TYPE_ID,"&_
 82 
   "                     :TEST_TYPE_ID,"&_
81 
	"                           :PV_ID,"&_
 83 
   "                           :PV_ID,"&_
82 
	"                           :USER_ID,"&_
84 
   "                           :USER_ID,"&_
83 
    "                           :TEST_SUMMARY,"&_
 85 
    "                           :TEST_SUMMARY,"&_
84 
	"                           :NUMOF_TEST,"&_
 86 
   "                           :NUMOF_TEST,"&_
85 
	"                           :COMPLETION_DATE,"&_
 87 
   "                           :COMPLETION_DATE,"&_
86 
	"                           :DPKG_PATH,"&_
88 
   "                           :DPKG_PATH,"&_
87 
	"                           :enumTEST_TYPE_AUTOMATIC,"&_
 89 
   "                           :enumTEST_TYPE_AUTOMATIC,"&_
88 
	"                           :RESULTS,"&_
 90 
   "                           :RESULTS,"&_
89 
	"                           :FILENAME"&_
 91 
   "                           :FILENAME"&_
90 
	"	  					   );  END;"
 92 
   "                       );  END;"
91
93 
 
92 
	OraSession.CommitTrans
 94 
   objEH.CatchORA ( OraSession )
93
- 
 
94
95 
 
95 
	outFileName = OraDatabase.Parameters("FILENAME").Value
 96 
   outFileName = OraDatabase.Parameters("FILENAME").Value
96
- 
 
97
97 
 
98 
	OraDatabase.Parameters.Remove "TEST_ID"
 98 
   OraDatabase.Parameters.Remove "TEST_ID"
99 
	OraDatabase.Parameters.Remove "TEST_TYPE_ID"
 99 
   OraDatabase.Parameters.Remove "TEST_TYPE_ID"
100 
	OraDatabase.Parameters.Remove "PV_ID"
 100 
   OraDatabase.Parameters.Remove "PV_ID"
101 
	OraDatabase.Parameters.Remove "USER_ID"
101 
   OraDatabase.Parameters.Remove "USER_ID"
102 
	OraDatabase.Parameters.Remove "TEST_SUMMARY"
 102 
   OraDatabase.Parameters.Remove "TEST_SUMMARY"
103 
	OraDatabase.Parameters.Remove "NUMOF_TEST"
 103 
   OraDatabase.Parameters.Remove "NUMOF_TEST"
104 
	OraDatabase.Parameters.Remove "COMPLETION_DATE"
 104 
   OraDatabase.Parameters.Remove "COMPLETION_DATE"
105 
	OraDatabase.Parameters.Remove "DPKG_PATH"
 105 
   OraDatabase.Parameters.Remove "DPKG_PATH"
106 
	OraDatabase.Parameters.Remove "enumTEST_TYPE_AUTOMATIC"
 106 
   OraDatabase.Parameters.Remove "enumTEST_TYPE_AUTOMATIC"
107 
	OraDatabase.Parameters.Remove "RESULTS"
 107 
   OraDatabase.Parameters.Remove "RESULTS"
108 
	OraDatabase.Parameters.Remove "FILENAME"
 108 
   OraDatabase.Parameters.Remove "FILENAME"
109
- 
 
110
- 
 
111 
End Sub
 109 
End Sub
112 
'--------------------------------------------------------------------------------------------------
 110 
'--------------------------------------------------------------------------------------------------
113 
%>
 111 
%>
114 
<%
 112 
<%
115 
'-----------------------  MAIN LINE  ---------------------------
 113 
'-----------------------  MAIN LINE  ---------------------------
116 
 
 114 
 
117 
'--- Process submition ---
 115 
'--- Process submition ---
118 
 
 116 
 
119 
If (objUpload.Fields("pv_id").Value <> "") Then
 117 
If (objUpload.Fields("pv_id").Value <> "") Then
120
118 
 
121 
	' Insert Unit Test Record
 119 
   ' Insert Unit Test Record
122 
	Call Get_Pkg_Short_Info(  objUpload.Fields("pv_id").Value, NULL, sPkgName, sPkgVersion, NULL, NULL, NULL )
 120 
   Call Get_Pkg_Short_Info(  objUpload.Fields("pv_id").Value, NULL, sPkgName, sPkgVersion, NULL, NULL, NULL )
123 
 
 121 
 
124 
	Call Update_Unit_Test ( objUpload.Fields("test_id").Value, _
 122 
   Call Update_Unit_Test ( objUpload.Fields("test_id").Value, _
125 
						 objUpload.Fields("test_type_id").Value, _
 123 
                   objUpload.Fields("test_type_id").Value, _
126 
						 objUpload.Fields("pv_id").Value, _
 124 
                   objUpload.Fields("pv_id").Value, _
127 
						 objUpload.Fields("test_summary").Value, _
 125 
                   objUpload.Fields("test_summary").Value, _
128 
						 objUpload.Fields("numof_test").Value, _
 126 
                   objUpload.Fields("numof_test").Value, _
129 
						 objUpload.Fields("completion_date").Value, _
 127 
                   objUpload.Fields("completion_date").Value, _
130 
						 objUpload.Fields("results_file").FileName, _
 128 
                   objUpload.Fields("results_file").FileName, _
131 
						 objUpload.Fields("results_url").Value, _
 129 
                   objUpload.Fields("results_url").Value, _
132 
						 objUpload.Fields("results_file").Length, _
 130 
                   objUpload.Fields("results_file").Length, _
133 
						 sFileName)
 131 
                   sFileName)
134
- 
 
135 
	'If retErrCode <> 0 Then
 - 
 
136 
	'	OraSession.RollBack
 - 
 
137 
	'	Call RaiseMsg ( enum_MSG_DUPLICATE_UT, objUpload.Fields("test_name").Value )
 - 
 
138 
	'End If
 - 
 
139
132 
 
- 
 
 133 
   If objEH.LastOraFailed = FALSE Then
140 
	' Upload File
 134 
      ' Upload File
141 
	'On Error Resume Next
 - 
 
142 
	If CInt(objUpload.Fields("test_type_id").Value) <> enumTEST_TYPE_AUTOMATIC AND objUpload.Fields("results_file").FileName <> "" Then
 135 
      If CInt(objUpload.Fields("test_type_id").Value) <> enumTEST_TYPE_AUTOMATIC AND objUpload.Fields("results_file").FileName <> "" Then
143
136 
 
144 
		If objUpload.Fields("results_file").Length > 0 Then
 137 
         If objUpload.Fields("results_file").Length > 0 Then
145 
			' Compile path to save file to
 138 
            ' Compile path to save file to
146 
			sPath = Server.MapPath( TEMP_FOLDER )
 139 
            sPath = Server.MapPath( TEMP_FOLDER )
147 
			Call Create_Folder ( sPath, sPkgName )
 140 
            Call Create_Folder ( sPath, sPkgName )
148
141 
 
149 
			sPath = sPath & "\" & sPkgName
 142 
            sPath = sPath & "\" & sPkgName
150 
			Call Create_Folder ( sPath, sPkgVersion )
 143 
            Call Create_Folder ( sPath, sPkgVersion )
151
144 
 
152 
			sPath = sPath &"\"& sPkgVersion
 145 
            sPath = sPath &"\"& sPkgVersion
153 
			Call Create_Folder ( sPath, DOC_FOLDER )
 146 
            Call Create_Folder ( sPath, DOC_FOLDER )
154
147 
 
155 
			sPath = sPath &"\"& DOC_FOLDER &"\"& sFileName
 148 
            sPath = sPath &"\"& DOC_FOLDER &"\"& sFileName
156 
			Call DeleteFile( sPath )		' Delete the file if already exists
 149 
            Call DeleteFile( sPath )      ' Delete the file if already exists
157
150 
 
158 
			' Save the binary data to the file system
 151 
            ' Save the binary data to the file system
159 
			objUpload("results_file").SaveAs sPath
 152 
            objUpload("results_file").SaveAs sPath
160 
		End If
 153 
         End If
161
154 
      End If
162 
	End If
 155 
   End If
163
- 
 
164
156 
 
165 
	If Err.number <> 0 Then
 157 
   If Err.number <> 0 Then
166 
		Call RaiseMsgInParent ( enum_MSG_ERROR, "Upload is not completed.<br>"& Err.description )
 158 
      Call RaiseMsgInParent ( enum_MSG_ERROR, "Upload is not completed.<br>"& Err.description )
167 
	Else
 159 
   Else
168 
		Call OpenInParentWindow ("fixed_issues.asp?pv_id="& objUpload.Fields("pv_id").Value &"&rtag_id="& objUpload.Fields("rtag_id").Value )
 160 
      Call OpenInParentWindow ("fixed_issues.asp?pv_id="& objUpload.Fields("pv_id").Value &"&rtag_id="& objUpload.Fields("rtag_id").Value )
169 
	End If
 161 
   End If
170
162 
 
171 
	'Response.write "PLEASE TRY USING THIS LATER! (Debuging)<br>"& objUpload.Fields("pv_id").Value
 163 
   'Response.write "PLEASE TRY USING THIS LATER! (Debuging)<br>"& objUpload.Fields("pv_id").Value
172
164 
 
173
165 
 
174 
	Set objUpload = Nothing
 166 
   Set objUpload = Nothing
175 
	Call CloseWindow
 167 
   Call CloseWindow
176
168 
 
177 
Else
 169 
Else
178 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 170 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
179 
	Response.write QSTR_All
171 
   Response.write QSTR_All
180
172 
 
181 
End If
 173 
End If
182 
%>
 174 
%>
183 
 
 175 
 
184 
 
 176 
 
185 
<!-- DESTRUCTOR ------->
 177 
<!-- DESTRUCTOR ------->