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 New_Unit_Test ( nPv_id, _
 45 
Sub New_Unit_Test ( nPv_id, _
46 
					nTestTypeId, _
 46 
               nTestTypeId, _
47 
					sTest_summary, _
 47 
               sTest_summary, _
48 
					sNumofTest, _
 48 
               sNumofTest, _
49 
					sResults_attachment, _
 49 
               sResults_attachment, _
50 
					sResults_url, _
 50 
               sResults_url, _
51 
					sCompletion_date, _
 51 
               sCompletion_date, _
52 
					nFileSize, _
 52 
               nFileSize, _
53 
					outFileName )
 53 
               outFileName )
54
54 
 
55 
	' IN PARAMETERS
 55 
   ' IN PARAMETERS
56
56 
 
57 
	OraDatabase.Parameters.Add "PV_ID", 			nPv_id, 			ORAPARM_INPUT, 	ORATYPE_NUMBER
 57 
   OraDatabase.Parameters.Add "PV_ID",        nPv_id,        ORAPARM_INPUT, ORATYPE_NUMBER
58 
	OraDatabase.Parameters.Add "TEST_TYPE_ID", 		nTestTypeId, 		ORAPARM_INPUT, 	ORATYPE_NUMBER
 58 
   OraDatabase.Parameters.Add "TEST_TYPE_ID", nTestTypeId,   ORAPARM_INPUT, ORATYPE_NUMBER
59 
	OraDatabase.Parameters.Add "TEST_SUMMARY", 		sTest_summary, 		ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 59 
   OraDatabase.Parameters.Add "TEST_SUMMARY", sTest_summary, ORAPARM_INPUT, ORATYPE_VARCHAR2
60 
	OraDatabase.Parameters.Add "NUMOF_TEST", 		sNumofTest, 		ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 60 
   OraDatabase.Parameters.Add "NUMOF_TEST",   sNumofTest,    ORAPARM_INPUT, ORATYPE_VARCHAR2
61 
	OraDatabase.Parameters.Add "DPKG_PATH", 		DOC_FOLDER, 		ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 61 
   OraDatabase.Parameters.Add "DPKG_PATH",    DOC_FOLDER,    ORAPARM_INPUT, ORATYPE_VARCHAR2
62
62 
 
63 
	If CInt(nTestTypeId) = enumTEST_TYPE_AUTOMATIC Then
 63 
   If CInt(nTestTypeId) = enumTEST_TYPE_AUTOMATIC Then
64 
		If InStr( sResults_url, dpkg_archiveURL & sPkgName &"/"& sPkgVersion ) > 0 Then
 64 
      If InStr( sResults_url, dpkg_archiveURL & sPkgName &"/"& sPkgVersion ) > 0 Then
65 
			' URL is in dpkg_archive, hence remove front URL location
 65 
         ' URL is in dpkg_archive, hence remove front URL location
66 
			OraDatabase.Parameters.Add "RESULTS", 		Right( sResults_url, Len(sResults_url) - Len( dpkg_archiveURL & sPkgName &"/"& sPkgVersion ) ), 		ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 66 
         OraDatabase.Parameters.Add "RESULTS",       Right( sResults_url, Len(sResults_url) - Len( dpkg_archiveURL & sPkgName &"/"& sPkgVersion ) ),       ORAPARM_INPUT,    ORATYPE_VARCHAR2
67 
	    Else
 67 
       Else
68 
			OraDatabase.Parameters.Add "RESULTS", 		sResults_url, 		ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 68 
         OraDatabase.Parameters.Add "RESULTS",       sResults_url,     ORAPARM_INPUT,    ORATYPE_VARCHAR2
69 
		End If
 69 
      End If
70 
	Else
 70 
   Else
71 
		If nFileSize > 0 Then
 71 
      If nFileSize > 0 Then
72 
			OraDatabase.Parameters.Add "RESULTS", 	sResults_attachment,ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 72 
         OraDatabase.Parameters.Add "RESULTS",    sResults_attachment, ORAPARM_INPUT,    ORATYPE_VARCHAR2
73 
		Else
 73 
      Else
74 
			OraDatabase.Parameters.Add "RESULTS", 	NULL,				ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 74 
         OraDatabase.Parameters.Add "RESULTS",    NULL,                ORAPARM_INPUT,    ORATYPE_VARCHAR2
75 
		End If
 75 
      End If
76 
	End If
 76 
   End If
77
77 
 
78 
	OraDatabase.Parameters.Add "COMPLETION_DATE", 	sCompletion_date, 				ORAPARM_INPUT, 	ORATYPE_VARCHAR2
 78 
   OraDatabase.Parameters.Add "COMPLETION_DATE",         sCompletion_date,        ORAPARM_INPUT,    ORATYPE_VARCHAR2
79 
	OraDatabase.Parameters.Add "COMPLETED_BY", 		objAccessControl.UserId, 		ORAPARM_INPUT, 	ORATYPE_NUMBER
 79 
   OraDatabase.Parameters.Add "COMPLETED_BY",            objAccessControl.UserId, ORAPARM_INPUT,    ORATYPE_NUMBER
80 
	OraDatabase.Parameters.Add "enumTEST_TYPE_AUTOMATIC", 	enumTEST_TYPE_AUTOMATIC,ORAPARM_INPUT, 	ORATYPE_NUMBER
 80 
   OraDatabase.Parameters.Add "enumTEST_TYPE_AUTOMATIC", enumTEST_TYPE_AUTOMATIC, ORAPARM_INPUT,    ORATYPE_NUMBER
81 
	OraDatabase.Parameters.Add "enumTEST_TYPE_NOT_DONE", 	enumTEST_TYPE_NOT_DONE, ORAPARM_INPUT, 	ORATYPE_NUMBER
 81 
   OraDatabase.Parameters.Add "enumTEST_TYPE_NOT_DONE",  enumTEST_TYPE_NOT_DONE,  ORAPARM_INPUT,    ORATYPE_NUMBER
82
- 
 
83
82 
 
84 
	' OUT PARAMETERS
 83 
   ' OUT PARAMETERS
85 
	OraDatabase.Parameters.Add "FILENAME", 			"",					ORAPARM_OUTPUT, ORATYPE_VARCHAR2
 84 
   OraDatabase.Parameters.Add "FILENAME",                "",                      ORAPARM_OUTPUT, ORATYPE_VARCHAR2
86
- 
 
87
- 
 
88
85 
 
- 
 
 86 
   objEH.TryORA ( OraSession )
89 
	OraSession.BeginTrans
 87 
   On Error Resume Next
90
- 
 
91
88 
 
92 
	OraDatabase.ExecuteSQL _
 89 
   OraDatabase.ExecuteSQL _
93 
	"BEGIN  New_Unit_Test  ( :PV_ID,"&_
 90 
   "BEGIN  New_Unit_Test  ( :PV_ID,"&_
94 
	"                        :TEST_TYPE_ID,"&_
 91 
   "                        :TEST_TYPE_ID,"&_
95 
	"                        :TEST_SUMMARY,"&_
 92 
   "                        :TEST_SUMMARY,"&_
96 
	"                        :NUMOF_TEST,"&_
 93 
   "                        :NUMOF_TEST,"&_
97 
	"                        :DPKG_PATH,"&_
 94 
   "                        :DPKG_PATH,"&_
98 
	"                        :RESULTS,"&_
 95 
   "                        :RESULTS,"&_
99 
	"                        :COMPLETION_DATE,"&_
 96 
   "                        :COMPLETION_DATE,"&_
100 
	"                        :COMPLETED_BY,"&_
 97 
   "                        :COMPLETED_BY,"&_
101 
	"                        :enumTEST_TYPE_AUTOMATIC, "&_
 98 
   "                        :enumTEST_TYPE_AUTOMATIC, "&_
102 
	"                        :enumTEST_TYPE_NOT_DONE, "&_
 99 
   "                        :enumTEST_TYPE_NOT_DONE, "&_
103 
	"                        :FILENAME "&_
 100 
   "                        :FILENAME "&_
104 
	"                      );  END;"
 101 
   "                      );  END;"
105
102 
 
106
103 
 
107 
	OraSession.CommitTrans
 104 
   objEH.CatchORA ( OraSession )
108
- 
 
109
- 
 
110
105 
 
111 
	outFileName = OraDatabase.Parameters("FILENAME").Value
106 
   outFileName = OraDatabase.Parameters("FILENAME").Value
112
- 
 
113
- 
 
114
- 
 
115
107 
 
116 
	OraDatabase.Parameters.Remove "PV_ID"
 108 
   OraDatabase.Parameters.Remove "PV_ID"
117 
	OraDatabase.Parameters.Remove "TEST_TYPE_ID"
 109 
   OraDatabase.Parameters.Remove "TEST_TYPE_ID"
118 
	OraDatabase.Parameters.Remove "TEST_SUMMARY"
 110 
   OraDatabase.Parameters.Remove "TEST_SUMMARY"
119 
	OraDatabase.Parameters.Remove "NUMOF_TEST"
 111 
   OraDatabase.Parameters.Remove "NUMOF_TEST"
120 
	OraDatabase.Parameters.Remove "DPKG_PATH"
 112 
   OraDatabase.Parameters.Remove "DPKG_PATH"
121 
	OraDatabase.Parameters.Remove "RESULTS"
 113 
   OraDatabase.Parameters.Remove "RESULTS"
122 
	OraDatabase.Parameters.Remove "COMPLETION_DATE"
 114 
   OraDatabase.Parameters.Remove "COMPLETION_DATE"
123 
	OraDatabase.Parameters.Remove "COMPLETED_BY"
 115 
   OraDatabase.Parameters.Remove "COMPLETED_BY"
124 
	OraDatabase.Parameters.Remove "enumTEST_TYPE_AUTOMATIC"
 116 
   OraDatabase.Parameters.Remove "enumTEST_TYPE_AUTOMATIC"
125 
	OraDatabase.Parameters.Remove "enumTEST_TYPE_NOT_DONE"
 117 
   OraDatabase.Parameters.Remove "enumTEST_TYPE_NOT_DONE"
126 
	OraDatabase.Parameters.Remove "FILENAME"
 118 
   OraDatabase.Parameters.Remove "FILENAME"
127
119 
 
128 
End Sub
 120 
End Sub
129 
%>
 121 
%>
130 
<%
 122 
<%
131 
'-----------------------  MAIN LINE  ---------------------------
 123 
'-----------------------  MAIN LINE  ---------------------------
132 
 
 124 
 
133 
'--- Process submition ---
 125 
'--- Process submition ---
134 
 
 126 
 
135 
If (objUpload.Fields("pv_id").Value <> "") Then
 127 
If (objUpload.Fields("pv_id").Value <> "") Then
136
128 
 
137 
	' Insert Unit Test Record
 129 
   ' Insert Unit Test Record
138 
	Call Get_Pkg_Short_Info(  objUpload.Fields("pv_id").Value, NULL, sPkgName, sPkgVersion, NULL, NULL, NULL )
 130 
   Call Get_Pkg_Short_Info(  objUpload.Fields("pv_id").Value, NULL, sPkgName, sPkgVersion, NULL, NULL, NULL )
139
131 
 
140
132 
 
141 
	If instr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") > 0 Then
 133 
   If instr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") > 0 Then
142 
		Call New_Unit_Test ( objUpload.Fields("pv_id").Value, _
 134 
      Call New_Unit_Test ( objUpload.Fields("pv_id").Value, _
143 
							objUpload.Fields("test_type_id").Value, _
 135 
                     objUpload.Fields("test_type_id").Value, _
144 
							objUpload.Fields("test_summary").Value, _
 136 
                     objUpload.Fields("test_summary").Value, _
145 
							objUpload.Fields("numof_test").Value, _
 137 
                     objUpload.Fields("numof_test").Value, _
146 
							objUpload.Fields("results_file").FileName, _
 138 
                     objUpload.Fields("results_file").FileName, _
147 
							objUpload.Fields("results_url").Value, _
 139 
                     objUpload.Fields("results_url").Value, _
148 
							objUpload.Fields("completion_date").Value, _
 140 
                     objUpload.Fields("completion_date").Value, _
149 
							objUpload.Fields("results_file").Length, _
 141 
                     objUpload.Fields("results_file").Length, _
150 
							sFileName )
 142 
                     sFileName )
151 
	Else
 143 
   Else
152 
		Call New_Unit_Test ( objUpload.Fields("pv_id").Value, _
 144 
      Call New_Unit_Test ( objUpload.Fields("pv_id").Value, _
153 
							objUpload.Fields("test_type_id").Value, _
 145 
                     objUpload.Fields("test_type_id").Value, _
154 
							objUpload.Fields("test_summary").Value, _
 146 
                     objUpload.Fields("test_summary").Value, _
155 
							objUpload.Fields("numof_test").Value, _
 147 
                     objUpload.Fields("numof_test").Value, _
156 
							objUpload.Fields("results_file").FilePath, _
 148 
                     objUpload.Fields("results_file").FilePath, _
157 
							objUpload.Fields("results_url").Value, _
 149 
                     objUpload.Fields("results_url").Value, _
158 
							objUpload.Fields("completion_date").Value, _
 150 
                     objUpload.Fields("completion_date").Value, _
159 
							objUpload.Fields("results_file").Length, _
 151 
                     objUpload.Fields("results_file").Length, _
160 
							sFileName )
 152 
                     sFileName )
161 
	End If
 153 
   End If
162
154 
 
163 
	'If retErrCode <> 0 Then
 155 
   'If retErrCode <> 0 Then
164 
	'	OraSession.RollBack
 156 
   '   OraSession.RollBack
165 
	'	Call RaiseMsg ( enum_MSG_DUPLICATE_UT, objUpload.Fields("test_name").Value )
 157 
   '   Call RaiseMsg ( enum_MSG_DUPLICATE_UT, objUpload.Fields("test_name").Value )
166 
	'End If
 158 
   'End If
167
159 
 
168 
	' Upload File
 160 
   ' Upload File
169 
	'On Error Resume Next
 161 
   'On Error Resume Next
170 
	If CInt(objUpload.Fields("test_type_id").Value) <> enumTEST_TYPE_AUTOMATIC AND objUpload.Fields("results_file").FilePath <> "" Then
 162 
   If CInt(objUpload.Fields("test_type_id").Value) <> enumTEST_TYPE_AUTOMATIC AND objUpload.Fields("results_file").FilePath <> "" Then
171
163 
 
172 
		If objUpload.Fields("results_file").Length > 0 Then
 164 
      If objUpload.Fields("results_file").Length > 0 Then
173 
			' Compile path to save file to
 165 
         ' Compile path to save file to
174 
			sPath = Server.MapPath( TEMP_FOLDER )
 166 
         sPath = Server.MapPath( TEMP_FOLDER )
175 
			Call Create_Folder ( sPath, sPkgName )
 167 
         Call Create_Folder ( sPath, sPkgName )
176
168 
 
177 
			sPath = sPath & "\" & sPkgName
 169 
         sPath = sPath & "\" & sPkgName
178 
			Call Create_Folder ( sPath, sPkgVersion )
 170 
         Call Create_Folder ( sPath, sPkgVersion )
179
171 
 
180 
			sPath = sPath &"\"& sPkgVersion
 172 
         sPath = sPath &"\"& sPkgVersion
181 
			Call Create_Folder ( sPath, DOC_FOLDER )
 173 
         Call Create_Folder ( sPath, DOC_FOLDER )
182
174 
 
183 
			sPath = sPath &"\"& DOC_FOLDER &"\"& sFileName
 175 
         sPath = sPath &"\"& DOC_FOLDER &"\"& sFileName
184 
			Call DeleteFile( sPath )		' Delete the file if already exists
 176 
         Call DeleteFile( sPath )      ' Delete the file if already exists
185
177 
 
186 
			' Save the binary data to the file system
 178 
         ' Save the binary data to the file system
187 
			objUpload("results_file").SaveAs sPath
 179 
         objUpload("results_file").SaveAs sPath
188 
		End If
 180 
      End If
189
181 
 
190 
	End If
 182 
   End If
191
183 
 
192
184 
 
193 
	If Err.number <> 0 Then
 185 
   If Err.number <> 0 Then
194 
		Call RaiseMsgInParent ( enum_MSG_ERROR, "Upload is not completed.<br>"& Err.description )
 186 
      Call RaiseMsgInParent ( enum_MSG_ERROR, "Upload is not completed.<br>"& Err.description )
195 
	Else
 187 
   Else
196 
		Call OpenInParentWindow ("fixed_issues.asp?pv_id="& objUpload.Fields("pv_id").Value &"&rtag_id="& objUpload.Fields("rtag_id").Value )
 188 
      Call OpenInParentWindow ("fixed_issues.asp?pv_id="& objUpload.Fields("pv_id").Value &"&rtag_id="& objUpload.Fields("rtag_id").Value )
197 
	End If
 189 
   End If
198
190 
 
199 
	'Response.write "PLEASE TRY USING THIS LATER! (Debuging)<br>"& objUpload.Fields("pv_id").Value
 191 
   'Response.write "PLEASE TRY USING THIS LATER! (Debuging)<br>"& objUpload.Fields("pv_id").Value
200
192 
 
201
193 
 
202 
	Set objUpload = Nothing
 194 
   Set objUpload = Nothing
203 
	Call CloseWindow
 195 
   Call CloseWindow
204
196 
 
205 
Else
 197 
Else
206 
	Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 198 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
207 
	Response.write QSTR_All
199 
   Response.write QSTR_All
208
200 
 
209 
End If
 201 
End If
210 
 
 202 
 
211 
 
 203 
 
212 
%>
 204 
%>
213 
 
 205