Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5957
Line 179... Line 179...
179 
        Dim objRC: Set objRC = New ReleaseChanged
 179 
        Dim objRC: Set objRC = New ReleaseChanged
180 
        Call objRC.Run_ReleaseChanged_List(Request("rtag_id"),pv_id_list,enumRELEASE_CHANGE_MODE_PKG_ADDED)
 180 
        Call objRC.Run_ReleaseChanged_List(Request("rtag_id"),pv_id_list,enumRELEASE_CHANGE_MODE_PKG_ADDED)
181 
        Set objRC = Nothing
 181 
        Set objRC = Nothing
182 
      End If
 182 
      End If
183
183
- 
 
 184 
      Call Destroy_All_Objects
184 
      Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id"))
 185 
      Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id"))
185 
   Else
 186 
   Else
186 
      Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 187 
      Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
187 
      Response.write QSTR_FullQuery
 188 
      Response.write QSTR_FullQuery
188 
   End If
 189 
   End If
189 
 
 190 
 
190 
Else
 191 
Else
191 
   Err.Raise 8, "Cannot ADD a package in a CLOSED or CCB Release Mode"
 192 
   Err.Raise 8, "Cannot ADD a package in a CLOSED or CCB Release Mode"
192 
End If
 193 
End If
193 
   rsQry.Close
 194 
rsQry.Close
194 
   Set rsQry = nothing
 195 
Set rsQry = nothing
195 
objEH.Catch
 196 
objEH.Catch
196 
%>
 197 
%>
197 
 
 - 
 
198 
<!-- DESTRUCTOR ------->
 198 
<!-- DESTRUCTOR ------->
199 
<!--#include file="common/destructor.asp"-->
 199 
<!--#include file="common/destructor.asp"-->