Subversion Repositories DevTools

Rev

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

Rev 5172 Rev 5251
Line 14... Line 14...
14 
 
 14 
 
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 
Private m_dlocked
19 
Private m_data_collected
 20 
Private m_data_collected
20 
 
 21 
 
21 
Public last_resultCode
 22 
Public last_resultCode
22 
Public last_errorMsg
 23 
Public last_errorMsg
23 
 
 24 
 
Line 37... Line 38...
37 
   On Error Resume Next
 38 
   On Error Resume Next
38 
   m_data_collected = false
 39 
   m_data_collected = false
39
40
40 
   ' Get package information
41 
   ' Get package information
41 
   ssql = _
 42 
   ssql = _
42 
   " SELECT pv.pkg_id,pk.pkg_name,pv.pkg_version,rt.proj_id"&_
 43 
   " SELECT pv.pkg_id,pk.pkg_name,pv.pkg_version,rt.proj_id,pv.dlocked"&_
43 
   " FROM package_versions pv, packages pk, release_tags rt"&_
 44 
   " FROM package_versions pv, packages pk, release_tags rt"&_
44 
   " WHERE" &_
 45 
   " WHERE" &_
45 
   "     pv.pv_id = " & apv_id &_
 46 
   "     pv.pv_id = " & apv_id &_
46 
   " AND pv.pkg_id = pk.pkg_id" &_
 47 
   " AND pv.pkg_id = pk.pkg_id" &_
47 
   " AND rt.rtag_id = " & artag_id
 48 
   " AND rt.rtag_id = " & artag_id
Line 56... Line 57...
56 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 57 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
57 
      m_pkg_name = rsTemp("pkg_name")
 58 
      m_pkg_name = rsTemp("pkg_name")
58 
      m_pkg_version = rsTemp("pkg_version")
 59 
      m_pkg_version = rsTemp("pkg_version")
59 
      m_pkg_id = rsTemp("pkg_id")
 60 
      m_pkg_id = rsTemp("pkg_id")
60 
      m_proj_id = rsTemp("proj_id")
 61 
      m_proj_id = rsTemp("proj_id")
- 
 
 62 
      m_dlocked = rsTemp("dlocked")
61 
      m_data_collected = true
 63 
      m_data_collected = true
62 
   Else
 64 
   Else
63 
      last_resultCode = 8
 65 
      last_resultCode = 8
64 
      last_errorMsg = "Error getting package information.  PV_ID:" & APV_ID & " not found in. RTAG_ID:" & artag_id
 66 
      last_errorMsg = "Error getting package information.  PV_ID:" & APV_ID & " not found in. RTAG_ID:" & artag_id
65 
      Err.Raise 8, "release_changed.asp", last_errorMsg
 67 
      Err.Raise 8, "release_changed.asp", last_errorMsg
Line 120... Line 122...
120 
    If not m_data_collected Then
 122 
    If not m_data_collected Then
121 
        Report_Event enumEVENT_ERROR, "make_release_changed", "", "Package Info not present"
 123 
        Report_Event enumEVENT_ERROR, "make_release_changed", "", "Package Info not present"
122 
        Exit Sub
 124 
        Exit Sub
123 
    End If
 125 
    End If
124 
 
 126 
 
- 
 
 127 
    '   Don't run the release chnaged notification if the package has not been released
- 
 
 128 
    '   Trying to prevent WIP packages being sent via blat
- 
 
 129 
    If m_dlocked <> "Y" Then
- 
 
 130 
        Exit Sub
- 
 
 131 
    End If
- 
 
 132 
 
125 
    ' Build up the command line to the target script
 133 
    ' Build up the command line to the target script
126 
    ' Note: DoubleQuotes quotes will be escaped \"
 134 
    ' Note: DoubleQuotes quotes will be escaped \"
127 
    '       Double space will be process as <ret> for error reporting
 135 
    '       Double space will be process as <ret> for error reporting
128 
    ' Chr(92) == \
 136 
    ' Chr(92) == \
129 
    ' Chr(34) == "
 137 
    ' Chr(34) == "