Subversion Repositories DevTools

Rev

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

Rev 3889 Rev 3891
Line 32... Line 32...
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
 36 
Dim parNewPackage
37 
Dim parPackageName
 37 
Dim parFRpkgName
38 
Dim parChangeType
 38 
Dim parChangeType
39 
Dim parBase_view_id
 39 
Dim parBase_view_id
40 
Dim parPersonal_view_id
 40 
Dim parPersonal_view_id
41 
Dim parBuildType
 41 
Dim parBuildType
42 
Dim newPkgPv_id
 42 
Dim newPkgPv_id
Line 48... Line 48...
48 
parFRnewver = QStrPar("FRnewver")
 48 
parFRnewver = QStrPar("FRnewver")
49 
parSetToPv_id = QStrPar("pv_id")
 49 
parSetToPv_id = QStrPar("pv_id")
50 
parSync_rtags = Request("sync_rtags")
 50 
parSync_rtags = Request("sync_rtags")
51 
 
 51 
 
52 
parNewPackage = Request("newPackage")
 52 
parNewPackage = Request("newPackage")
53 
parPackageName = Request("FRpkgName")
 53 
parFRpkgName = Request("FRpkgName")
54 
parChangeType = Request("change_type")
 54 
parChangeType = Request("change_type")
55 
parBase_view_id = Request("base_view_id")
 55 
parBase_view_id = Request("base_view_id")
56 
parPersonal_view_id = Request("personal_view_id")
 56 
parPersonal_view_id = Request("personal_view_id")
57 
parBuildType = Request("build_type")
 57 
parBuildType = Request("build_type")
58 
 
 58 
 
Line 209... Line 209...
209 
   Dim QueryString
 209 
   Dim QueryString
210 
   On Error Resume Next
 210 
   On Error Resume Next
211 
 
 211 
 
212 
    OraDatabase.Parameters.Add "retPV_ID", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
 212 
    OraDatabase.Parameters.Add "retPV_ID", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
213 
    QueryString = "BEGIN Seed_Package_Names_Versions ("&_
 213 
    QueryString = "BEGIN Seed_Package_Names_Versions ("&_
214 
                " '" & parPackageName & "'"&_
 214 
                " '" & parFRpkgName & "'"&_
215 
                ",'" & parFRnewver & "'" &_
 215 
                ",'" & parFRnewver & "'" &_
216 
                ",:USER_ID" &_
 216 
                ",:USER_ID" &_
217 
                ",:retPV_ID" &_
 217 
                ",:retPV_ID" &_
218 
                ",NULL" &_
 218 
                ",NULL" &_
219 
                ",'"& parBuildType & "'" &_
 219 
                ",'"& parBuildType & "'" &_
Line 286... Line 286...
286 
    '
 286 
    '
287 
    pkgFound = ""
 287 
    pkgFound = ""
288 
    Query_String = "SELECT pkg.*" &_
 288 
    Query_String = "SELECT pkg.*" &_
289 
         "  FROM packages pkg"&_
 289 
         "  FROM packages pkg"&_
290 
         " WHERE pkg.pkg_id != 0"&_
 290 
         " WHERE pkg.pkg_id != 0"&_
291 
         "   AND UPPER(pkg.pkg_name) = UPPER('"& Trim(parPackageName) & "')"
 291 
         "   AND UPPER(pkg.pkg_name) = UPPER('"& Trim(parFRpkgName) & "')"
292 
 
 292 
 
293 
    Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
 293 
    Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
294 
    If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 294 
    If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
295 
        pkgFound = rsQry("pkg_id")
 295 
        pkgFound = rsQry("pkg_id")
296 
    End If
 296 
    End If
Line 310... Line 310...
310 
    'For Each Item In Request.Form
 310 
    'For Each Item In Request.Form
311 
    '    Response.Write "User Data: " &Item & ": " & Request.Form(Item) & "<br>"
 311 
    '    Response.Write "User Data: " &Item & ": " & Request.Form(Item) & "<br>"
312 
    'Next
 312 
    'Next
313 
    'Response.Write "------------<br></pre>"
 313 
    'Response.Write "------------<br></pre>"
314 
 
 314 
 
315 
    If ( parPackageName <> "" and parFRnewver  <> "") Then
 315 
    If ( parFRpkgName <> "" and parFRnewver  <> "") Then
316 
 
 316 
 
317 
        ' Determine the state of the Release
 317 
        ' Determine the state of the Release
318 
        ' Can only add packages to a release that is in Open Mode(N) or Restricted Mode(R)
 318 
        ' Can only add packages to a release that is in Open Mode(N) or Restricted Mode(R)
319 
        Set rsQry = OraDatabase.DbCreateDynaset( "SELECT OFFICIAL FROM RELEASE_TAGS WHERE RTAG_ID ="&parRtag_id, cint(0))
 319 
        Set rsQry = OraDatabase.DbCreateDynaset( "SELECT OFFICIAL FROM RELEASE_TAGS WHERE RTAG_ID ="&parRtag_id, cint(0))
320 
        objEH.Try
 320 
        objEH.Try