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