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) == "