Subversion Repositories DevTools

Rev

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

Rev 131 Rev 151
Line 37... Line 37...
37 
'------------ Variable Init -------------------
 37 
'------------ Variable Init -------------------
38 
parOLDpv_id = QStrPar("OLDpv_id")
 38 
parOLDpv_id = QStrPar("OLDpv_id")
39 
parFRnewver = QStrPar("FRnewver")
 39 
parFRnewver = QStrPar("FRnewver")
40 
parSetToPv_id = QStrPar("pv_id")
 40 
parSetToPv_id = QStrPar("pv_id")
41 
parSync_rtags = Request("sync_rtags")
 41 
parSync_rtags = Request("sync_rtags")
- 
 
 42 
 
42 
'----------------------------------------------
 43 
'----------------------------------------------
43 
%>
 44 
%>
44 
<%
 45 
<%
45 
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
 46 
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
46 
   Dim cAlterReleaseWhileRestrictive, rsQry
 47 
   Dim cAlterReleaseWhileRestrictive, rsQry
Line 131... Line 132...
131 
      "END;"
 132 
      "END;"
132 
 
 133 
 
133 
      retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
 134 
      retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
134 
   End If
 135 
   End If
135 
 
 136 
 
- 
 
 137 
   objEH.CatchORA ( OraSession )
- 
 
 138 
   If objEH.LastOraFailed = FALSE Then
- 
 
 139 
      Call UpdateChangeType (retNEWpv_id, Request("change_type"))
- 
 
 140 
      Call UpdateReasonForVersion (retNEWpv_id, Request("FRreason"))
- 
 
 141 
   End If
- 
 
 142 
 
136 
   rsQry.Close()
 143 
   rsQry.Close()
137 
   Set rsQry = nothing
 144 
   Set rsQry = nothing
138 
   objEH.CatchORA ( OraSession )
 - 
 
139 
 
 145 
 
140 
   OraDatabase.Parameters.Remove "ORIG_PV_ID"
 146 
   OraDatabase.Parameters.Remove "ORIG_PV_ID"
141 
   OraDatabase.Parameters.Remove "ALTER_RELEASE"
 147 
   OraDatabase.Parameters.Remove "ALTER_RELEASE"
142 
   OraDatabase.Parameters.Remove "PKG_VERSION"
 148 
   OraDatabase.Parameters.Remove "PKG_VERSION"
143 
   OraDatabase.Parameters.Remove "BUILD_TYPE"
 149 
   OraDatabase.Parameters.Remove "BUILD_TYPE"