| Line 69... |
Line 69... |
| 69 |
|
69 |
|
| 70 |
if aget_info then
|
70 |
if aget_info then
|
| 71 |
Call Get_Package_Info (artag_id,apv_id)
|
71 |
Call Get_Package_Info (artag_id,apv_id)
|
| 72 |
end if
|
72 |
end if
|
| 73 |
|
73 |
|
| - |
|
74 |
' Note: Call Run such that we wait for the result code
|
| - |
|
75 |
' If we don't do this then we may flood the server with requests and then it jams up.
|
| - |
|
76 |
'
|
| 74 |
Call sysSHell.Run("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:ReleaseChanged" & " /pkg_name:""" & m_pkg_name & """" & " /pkg_version:""" & m_pkg_version & """" & " /rtag_id:" & artag_id & " /pkg_id:" & m_pkg_id & " /pv_id:" & apv_id & " /proj_id:" & m_proj_id & " /mode_id:" & amode_id, 0, False)
|
77 |
Call sysSHell.Run("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:ReleaseChanged" & " /pkg_name:""" & m_pkg_name & """" & " /pkg_version:""" & m_pkg_version & """" & " /rtag_id:" & artag_id & " /pkg_id:" & m_pkg_id & " /pv_id:" & apv_id & " /proj_id:" & m_proj_id & " /mode_id:" & amode_id, 0, True)
|
| 75 |
Set sysShell = Nothing
|
78 |
Set sysShell = Nothing
|
| 76 |
End Sub
|
79 |
End Sub
|
| 77 |
|
80 |
|
| 78 |
'-----------------------------------------------------------------------------------------------------------------------------
|
81 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 79 |
' Get the package are in which the package version resides (ie wip, planned, released)
|
82 |
' Get the package are in which the package version resides (ie wip, planned, released)
|