Subversion Repositories DevTools

Rev

Rev 3621 | Rev 3889 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3621 Rev 3887
Line 31... Line 31...
31 
Dim parFRnewver
 31 
Dim parFRnewver
32 
Dim NEWpv_id
 32 
Dim NEWpv_id
33 
Dim parSetToPv_id
 33 
Dim parSetToPv_id
34 
Dim parSync_rtags
 34 
Dim parSync_rtags
35 
Dim toTouch
 35 
Dim toTouch
- 
 
 36 
Dim parNewPackage
- 
 
 37 
Dim parPackageName
- 
 
 38 
Dim parChangeType
- 
 
 39 
Dim parBase_view_id
- 
 
 40 
Dim parPersonal_view_id
- 
 
 41 
 
36 
'------------ Constants Declaration -----------
 42 
'------------ Constants Declaration -----------
37 
'------------ Variable Init -------------------
 43 
'------------ Variable Init -------------------
38 
parOLDpv_id = QStrPar("OLDpv_id")
 44 
parOLDpv_id = QStrPar("OLDpv_id")
39 
parFRnewver = QStrPar("FRnewver")
 45 
parFRnewver = QStrPar("FRnewver")
40 
parSetToPv_id = QStrPar("pv_id")
 46 
parSetToPv_id = QStrPar("pv_id")
41 
parSync_rtags = Request("sync_rtags")
 47 
parSync_rtags = Request("sync_rtags")
42 
 
 48 
 
- 
 
 49 
parNewPackage = Request("newPackage")
- 
 
 50 
parPackageName = Request("inputPackageName")
- 
 
 51 
parChangeType = Request("change_type")
- 
 
 52 
parBase_view_id = Request("base_view_id")
- 
 
 53 
parPersonal_view_id = Request("personal_view_id")
- 
 
 54 
 
43 
'----------------------------------------------
 55 
'----------------------------------------------
44 
%>
 56 
%>
45 
<%
 57 
<%
46 
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
 58 
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
47 
   Dim cAlterReleaseWhileRestrictive, rsQry
 59 
   Dim cAlterReleaseWhileRestrictive, rsQry
Line 58... Line 70...
58 
   OraDatabase.Parameters.Add "ORIG_PV_ID", NNorig_pv_id, ORAPARM_INPUT, ORATYPE_NUMBER
 70 
   OraDatabase.Parameters.Add "ORIG_PV_ID", NNorig_pv_id, ORAPARM_INPUT, ORATYPE_NUMBER
59 
 
 71 
 
60 
   If Request("build_type") = "M" Then
 72 
   If Request("build_type") = "M" Then
61 
      ' Manual build
 73 
      ' Manual build
62 
      OraDatabase.Parameters.Add "PKG_VERSION", SSnewver, ORAPARM_INPUT, ORATYPE_VARCHAR2
 74 
      OraDatabase.Parameters.Add "PKG_VERSION", SSnewver, ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 75 
      parChangeType = "F"
63 
   Else
 76 
   Else
64 
      ' Automated Build
 77 
      ' Automated Build
65 
      OraDatabase.Parameters.Add "PKG_VERSION", Request("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 78 
      OraDatabase.Parameters.Add "PKG_VERSION", Request("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
66 
   End If
 79 
   End If
67 
 
 80 
 
Line 138... Line 151...
138 
 
 151 
 
139 
   End If
 152 
   End If
140 
 
 153 
 
141 
   objEH.CatchORA ( OraSession )
 154 
   objEH.CatchORA ( OraSession )
142 
   If objEH.LastOraFailed = FALSE Then
 155 
   If objEH.LastOraFailed = FALSE Then
143 
      Call UpdateChangeType (retNEWpv_id, Request("change_type"))
 156 
      Call UpdateChangeType (retNEWpv_id, parChangeType )
144 
      Call UpdateReasonForVersion (retNEWpv_id, Request("FRreason"))
 157 
      Call UpdateReasonForVersion (retNEWpv_id, Request("FRreason"))
145 
   End If
 158 
   End If
146 
 
 159 
 
147 
   rsQry.Close()
 160 
   rsQry.Close()
148 
   Set rsQry = nothing
 161 
   Set rsQry = nothing
Line 190... Line 203...
190 
'-----------------------  MAIN LINE  ---------------------------
 203 
'-----------------------  MAIN LINE  ---------------------------
191 
Dim rsQry, Query_String, Record_Count
 204 
Dim rsQry, Query_String, Record_Count
192 
Dim versionToSanityCheck
 205 
Dim versionToSanityCheck
193 
 
 206 
 
194 
'--- Process submission ---
 207 
'--- Process submission ---
- 
 
 208 
' DPurdie: Late June 2013. Play with new package creation
- 
 
 209 
'    If parNewPackage <> "" Then
- 
 
 210 
'      Dim reResult
- 
 
 211 
'      Dim pkgFound
- 
 
 212 
'
- 
 
 213 
'      Response.write "Processing new package" & "<br>"
- 
 
 214 
'      Response.write "Called:" & parPackageName & "<br>"
- 
 
 215 
'
- 
 
 216 
'      ' Ensure that the named package does not exist
- 
 
 217 
'      ' Can't create it if it already exists
- 
 
 218 
'      '
- 
 
 219 
'      pkgFound = ""
- 
 
 220 
'      Query_String = "SELECT pkg.*" &_
- 
 
 221 
'         "  FROM packages pkg"&_
- 
 
 222 
'         " WHERE pkg.pkg_id != 0"&_
- 
 
 223 
'         "   AND UPPER(pkg.pkg_name) = UPPER('"& Trim(parPackageName) & "')"
- 
 
 224 
'
- 
 
 225 
'       Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
- 
 
 226 
'       If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
- 
 
 227 
'            pkgFound = rsQry("pkg_id")
- 
 
 228 
'       End If
- 
 
 229 
'       rsQry.Close
- 
 
 230 
'       Set rsQry = Nothing
- 
 
 231 
'      Response.write "Search:" & pkgFound & "<br>"
- 
 
 232 
'
- 
 
 233 
'       '
- 
 
 234 
'       ' Create the package if it does not exist
- 
 
 235 
'       '
- 
 
 236 
'       if not pkgFound <> "" Then
- 
 
 237 
'            Response.write "Creating new package<br>"
- 
 
 238 
'       End If
- 
 
 239 
'
- 
 
 240 
'
- 
 
 241 
'    End If
- 
 
 242 
 
195 
   If (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
 243 
   If (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
196 
      ' All mandatory parameters FOUND
 244 
      ' All mandatory parameters FOUND
197 
 
 245 
 
198 
      If ( (parSetToPv_id <> "") OR SanityCheck(parFRnewver) ) Then
 246 
      If ( (parSetToPv_id <> "") OR SanityCheck(parFRnewver) ) Then
199 
 
 247