| Line 1... |
Line 1... |
| 1 |
<%@LANGUAGE="VBSCRIPT"%>
|
1 |
<%@LANGUAGE="VBSCRIPT"%>
|
| 2 |
<%
|
2 |
<%
|
| 3 |
'=====================================================
|
3 |
'=====================================================
|
| - |
|
4 |
' _make_rejected.asp
|
| - |
|
5 |
' Reject a package from pending back to a WIP
|
| 4 |
' MAKE UNOFFICIAL
|
6 |
' Used to Reject a failed build
|
| 5 |
' --- PROCESS FORM ---
|
7 |
' Used to Reject before being built
|
| 6 |
'=====================================================
|
8 |
'=====================================================
|
| 7 |
%>
|
9 |
%>
|
| 8 |
<%
|
10 |
<%
|
| 9 |
Option explicit
|
11 |
Option explicit
|
| 10 |
' Good idea to set when using redirect
|
12 |
' Good idea to set when using redirect
|
| Line 112... |
Line 114... |
| 112 |
|
114 |
|
| 113 |
If isDLocked = "A" Then
|
115 |
If isDLocked = "A" Then
|
| 114 |
'Do the reject operation - this execution path rejects an Approved package version back to Pending
|
116 |
'Do the reject operation - this execution path rejects an Approved package version back to Pending
|
| 115 |
|
117 |
|
| 116 |
'We can only do this operation if the build daemon is not going to be doing anything with the entry in
|
118 |
'We can only do this operation if the build daemon is not going to be doing anything with the entry in
|
| 117 |
'the "package versions" table. We can only guarantee this if the Daemon has failed to build the package version
|
119 |
'the "package versions" table. We can only guarantee this
|
| 118 |
'and placed an entry for it in the "do not ripple" table, so check this.
|
120 |
' if the Daemon has failed to build the package version and placed an entry for it in the "do not ripple" table
|
| - |
|
121 |
' OR the release has no active build daemons
|
| 119 |
If isInDoNotRippleTable( Request("rtag_id"), Request("pv_id") ) = TRUE Then
|
122 |
If activeDaemonCount(parRtag_id) = 0 OR isInDoNotRippleTable( Request("rtag_id"), Request("pv_id") ) = TRUE Then
|
| 120 |
Call RejectAutobuild()
|
123 |
Call RejectAutobuild()
|
| 121 |
Else
|
124 |
Else
|
| 122 |
Call RaiseMsg(enum_MSG_ERROR, "Cannot reject unless item is certain not to be examined concurrently by a build daemon during the reject operation. Wait for the build to fail.")
|
125 |
Call RaiseMsg(enum_MSG_ERROR, "Cannot reject unless item is certain not to be examined concurrently by a build daemon during the reject operation. Wait for the build to fail.")
|
| 123 |
End If
|
126 |
End If
|
| 124 |
Else
|
127 |
Else
|