Subversion Repositories DevTools

Rev

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

Rev 165 Rev 167
Line 15... Line 15...
15 
private m_pkg_name
 15 
private m_pkg_name
16 
private m_pkg_version
 16 
private m_pkg_version
17 
private m_pkg_id
 17 
private m_pkg_id
18 
private m_proj_id
 18 
private m_proj_id
19 
 
 19 
 
20 
 
 - 
 
21 
'-----------------------------------------------------------------------------------------------------------------
 20 
'-----------------------------------------------------------------------------------------------------------------
22 
' Retrieves package infomation for the specified package version
 21 
' Retrieves package infomation for the specified package version
23 
' This information is required for the make_release_changed script
 22 
' This information is required for the make_release_changed script
24 
Public Sub Get_Package_Info (artag_id,apv_id)
 23 
Public Sub Get_Package_Info (artag_id,apv_id)
25 
   Dim ssql, rsTemp, stable
 24 
   Dim ssql, rsTemp
26 
   Dim iEnvTab
 - 
 
27
25
28 
   ' Get package information
26 
   ' Get package information
29 
   ssql = _
 27 
   ssql = _
30 
   " SELECT pv.pkg_id,pk.pkg_name,pv.pkg_version,rt.proj_id"&_
 28 
   " SELECT pv.pkg_id,pk.pkg_name,pv.pkg_version,rt.proj_id"&_
31 
   " FROM package_versions pv, packages pk, release_tags rt"&_
 29 
   " FROM package_versions pv, packages pk, release_tags rt"&_
Line 55... Line 53...
55 
Sub Run_ReleaseChanged_List(artag_id,apv_id_list,amode_id)
 53 
Sub Run_ReleaseChanged_List(artag_id,apv_id_list,amode_id)
56 
  Dim pv_id, idArr
 54 
  Dim pv_id, idArr
57 
 
 55 
 
58 
  idArr = Split(apv_id_list,",")
 56 
  idArr = Split(apv_id_list,",")
59 
  For Each pv_id in idArr
 57 
  For Each pv_id in idArr
- 
 
 58 
    If IsReleased(artag_id,pv_id) Then
60 
    Call Run_ReleaseChanged(artag_id,pv_id,amode_id,true)
 59 
      Call Run_ReleaseChanged(artag_id,pv_id,amode_id,true)
- 
 
 60 
    End If
61 
  Next
 61 
  Next
62 
End Sub
 62 
End Sub
63 
 
 63 
 
64 
'-----------------------------------------------------------------------------------------------------------------
 64 
'-----------------------------------------------------------------------------------------------------------------
65 
' Run script job, ReleaseChanged, of script, on_Make_Official.wsf for the specified package version.
 65 
' Run script job, ReleaseChanged, of script, on_Make_Official.wsf for the specified package version.
Line 73... Line 73...
73 
 
 73 
 
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)
 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)
75 
  Set sysShell = Nothing
 75 
  Set sysShell = Nothing
76 
End Sub
 76 
End Sub
77 
 
 77 
 
- 
 
 78 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 79 
' Get the package are in which the package version resides (ie wip, planned, released)
- 
 
 80 
Function Get_Pkg_Area (artagId, apvId)
- 
 
 81 
   OraDatabase.Parameters.Add "RTAG_ID",        artagId,                 ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 82 
   OraDatabase.Parameters.Add "PV_ID",          apvId,                   ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 83 
   OraDatabase.Parameters.Add "PKG_AREA",       -1,                      ORAPARM_OUTPUT,ORATYPE_NUMBER
- 
 
 84 
 
- 
 
 85 
   OraDatabase.ExecuteSQL _
- 
 
 86 
   "BEGIN "&_
- 
 
 87 
   " :PKG_AREA := PK_ENVIRONMENT.GET_PACKAGE_AREA ( :PV_ID, :RTAG_ID ); "&_
- 
 
 88 
   "END; "
- 
 
 89 
   Get_Pkg_Area = OraDatabase.Parameters("PKG_AREA").Value
- 
 
 90
- 
 
 91 
   OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 92 
   OraDatabase.Parameters.Remove "PV_ID"
- 
 
 93 
   OraDatabase.Parameters.Remove "PKG_AREA"
- 
 
 94 
End Function
- 
 
 95 
 
- 
 
 96 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 97 
' Returns TRUE if the specified package is released
- 
 
 98 
Function IsReleased (artagId, apvId)
- 
 
 99 
  IsReleased = (CInt(Get_Pkg_Area(artagId, apvId)) = CInt(enum_PKG_AREA_RELEASED))
- 
 
 100 
End Function
- 
 
 101 
 
78 
End Class
 102 
End Class
79 
%>
 103 
%>