Subversion Repositories DevTools

Rev

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

Rev 165 Rev 1334
Line 43... Line 43...
43 
'----------------------------------------------
 43 
'----------------------------------------------
44 
%>
 44 
%>
45 
<%
 45 
<%
46 
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 )
47 
   Dim cAlterReleaseWhileRestrictive, rsQry
 47 
   Dim cAlterReleaseWhileRestrictive, rsQry
- 
 
 48 
   Dim Original_SSnewver
- 
 
 49 
   Original_SSnewver = SSnewver
48 
 
 50 
 
49 
   On Error Resume Next
 51 
   On Error Resume Next
50 
   objEH.ErrorRedirect = TRUE
 52 
   objEH.ErrorRedirect = TRUE
51 
 
 53 
 
52 
   If Request("build_type") = "A" Then
 54 
   If Request("build_type") = "A" Then
Line 114... Line 116...
114 
         " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
 116 
         " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
115 
         "END;"
 117 
         "END;"
116 
 
 118 
 
117 
         retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
 119 
         retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
118 
 
 120 
 
- 
 
 121 
      If (Original_SSnewver) <> ""  Then
119 
        Call UpdateSubVersionSrcPath(retNEWpv_id)
 122 
        Call UpdateSubVersionSrcPath(retNEWpv_id)
- 
 
 123 
      End If
120 
 
 124 
 
121 
      End If
 125 
      End If
122 
   Else
 126 
   Else
123 
      OraDatabase.ExecuteSQL _
 127 
      OraDatabase.ExecuteSQL _
124 
      "BEGIN "&_
 128 
      "BEGIN "&_
Line 134... Line 138...
134 
      " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
 138 
      " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
135 
      "END;"
 139 
      "END;"
136 
 
 140 
 
137 
      retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
 141 
      retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
138 
 
 142 
 
- 
 
 143 
      If (Original_SSnewver) <> ""  Then
139 
      Call UpdateSubVersionSrcPath(retNEWpv_id)
 144 
        Call UpdateSubVersionSrcPath(retNEWpv_id)
- 
 
 145 
      End If
140 
 
 146 
 
141 
   End If
 147 
   End If
142 
 
 148 
 
143 
   objEH.CatchORA ( OraSession )
 149 
   objEH.CatchORA ( OraSession )
144 
   If objEH.LastOraFailed = FALSE Then
 150 
   If objEH.LastOraFailed = FALSE Then