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"