Subversion Repositories DevTools

Rev

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

Rev 119 Rev 5097
Line 31... Line 31...
31 
parRfile = QStrPar("rfile")
 31 
parRfile = QStrPar("rfile")
32 
'----------------------------------------------
 32 
'----------------------------------------------
33 
%>
 33 
%>
34 
<%
 34 
<%
35 
Sub RunGenerateComponents ( nPv_id )
 35 
Sub RunGenerateComponents ( nPv_id )
36 
	Dim objWSH
 36 
'   Dim objWSH
37 
	Set objWSH = Server.CreateObject("WScript.Shell")
 37 
'   Set objWSH = Server.CreateObject("WScript.Shell")
38
38 
'
39 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:GetComponents "&_
 39 
'   objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:GetComponents "&_
40 
                 "/pv_id:"& nPv_id &" /f", _
 40 
'                "/pv_id:"& nPv_id &" /f", _
41 
                 0, True
41 
'                0, True
42
42
43
43
44 
	'OraSession.BeginTrans
 44 
	'OraSession.BeginTrans
45 
	'OraDatabase.ExecuteSQL " UPDATE package_versions "&_
 45 
	'OraDatabase.ExecuteSQL " UPDATE package_versions "&_
46 
	'					   " SET release_notes_info = '"& enum_RELEASE_NOTES_FILES_RECAPTURED &"'"&_
 46 
	'					   " SET release_notes_info = '"& enum_RELEASE_NOTES_FILES_RECAPTURED &"'"&_