| Line 65... |
Line 65... |
| 65 |
|
65 |
|
| 66 |
On Error Resume Next
|
66 |
On Error Resume Next
|
| 67 |
objEH.TryORA( OraSession )
|
67 |
objEH.TryORA( OraSession )
|
| 68 |
|
68 |
|
| 69 |
' Move package back to work-in-progress table (changes dlocked to "R" in doing so)
|
69 |
' Move package back to work-in-progress table (changes dlocked to "R" in doing so)
|
| 70 |
OraDatabase.ExecuteSQL _
|
- |
|
| 71 |
"BEGIN "&_
|
- |
|
| 72 |
" PK_ENVIRONMENT.MAKE_REJECT ( :PV_ID, :RTAG_ID, :USER_ID ); "&_
|
70 |
OraDatabase.ExecuteSQL ("BEGIN PK_ENVIRONMENT.MAKE_REJECT ( :PV_ID, :RTAG_ID, :USER_ID ); END; ")
|
| 73 |
"END; "
|
- |
|
| 74 |
|
71 |
|
| 75 |
If Err.Number = 0 Then
|
72 |
If Err.Number = 0 Then
|
| 76 |
|
73 |
|
| 77 |
' Remove the entry from the do not ripple table but only if it is a direct exlusion entry caused by some build problem.
|
74 |
' Remove the entry from the do not ripple table but only if it is a direct exlusion entry caused by some build problem.
|
| 78 |
' This way, if user has deliberately excluded the package from the build (root_pv_id is null, root_cause is null
|
75 |
' This way, if user has deliberately excluded the package from the build (root_pv_id is null, root_cause is null
|
| 79 |
' and root_file is null) then it will remain exlcuded, as it will if there is some underlying package that has caused
|
76 |
' and root_file is null) then it will remain exlcuded, as it will if there is some underlying package that has caused
|
| 80 |
' the exclusion.
|
77 |
' the exclusion.
|
| - |
|
78 |
Dim count : count = 0
|
| 81 |
OraDatabase.ExecuteSQL ("DELETE FROM do_not_ripple "&_
|
79 |
count = OraDatabase.ExecuteSQL ("DELETE FROM do_not_ripple " &_
|
| 82 |
" WHERE pv_id = :PV_ID "&_
|
80 |
"WHERE pv_id = :PV_ID " &_
|
| 83 |
" AND rtag_id = :RTAG_ID "&_
|
81 |
" AND rtag_id = :RTAG_ID " &_
|
| 84 |
" AND nvl(root_pv_id,-1) < 0"&_
|
82 |
" AND nvl(root_pv_id,-1) < 0" &_
|
| 85 |
" AND ((root_cause IS NOT NULL) OR (root_file IS NOT NULL))" )
|
83 |
" AND ((root_cause IS NOT NULL) OR (root_file IS NOT NULL))" )
|
| 86 |
|
84 |
|
| 87 |
If Err.Number = 0 Then
|
85 |
If Err.Number = 0 Then
|
| 88 |
|
- |
|
| 89 |
OraDatabase.ExecuteSQL ("BEGIN Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION ); END;")
|
86 |
OraDatabase.ExecuteSQL ("BEGIN Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION ); END;")
|
| 90 |
|
87 |
|
| - |
|
88 |
'
|
| - |
|
89 |
' If we have removed a package from the do_not_ripple list, then we need to increment the release sequence
|
| - |
|
90 |
' number so that the build system will come and re-plan the build.
|
| - |
|
91 |
'
|
| - |
|
92 |
If count > 0 Then
|
| - |
|
93 |
OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
|
| - |
|
94 |
End If
|
| 91 |
End If
|
95 |
End If
|
| 92 |
|
- |
|
| 93 |
End If
|
96 |
End If
|
| 94 |
|
97 |
|
| 95 |
objEH.CatchORA( OraSession )
|
98 |
objEH.CatchORA( OraSession )
|
| 96 |
|
99 |
|
| 97 |
OraDatabase.Parameters.Remove "PV_ID"
|
100 |
OraDatabase.Parameters.Remove "PV_ID"
|
| Line 127... |
Line 130... |
| 127 |
Else
|
130 |
Else
|
| 128 |
'Do the reject operation - this execution path rejects a Pending package version back to Work In Progress
|
131 |
'Do the reject operation - this execution path rejects a Pending package version back to Work In Progress
|
| 129 |
Call MakeReject()
|
132 |
Call MakeReject()
|
| 130 |
End If
|
133 |
End If
|
| 131 |
|
134 |
|
| 132 |
|
- |
|
| 133 |
|
- |
|
| 134 |
Call Destroy_All_Objects
|
135 |
Call Destroy_All_Objects
|
| 135 |
If Request("rfile") <> "" Then
|
- |
|
| 136 |
Response.Redirect ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
|
136 |
Response.Redirect ( RequestDefault("rfile", "dependencies.asp") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
|
| 137 |
Else
|
- |
|
| 138 |
Response.Redirect ( "dependencies?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
|
- |
|
| 139 |
End If
|
- |
|
| 140 |
|
137 |
|
| 141 |
Else
|
138 |
Else
|
| 142 |
Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
|
139 |
Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
|
| 143 |
Response.write QSTR_FullQuery
|
140 |
Response.write QSTR_FullQuery
|
| 144 |
End If
|
141 |
End If
|